// NET / Disordering Hexagon Net '00.11 // By Tsutomu HIGO E-mail: nj2t-hg@asahi-net.or.jp #version 3.1; global_settings { assumed_gamma 2.2 } light_source {<-1, 6, -10> color <1,0.5,1>} camera { location <0,0,-10> angle 5.85 look_at <0, 0, 0> } #declare R1 = seed(7); #declare Cos30 = cos(pi/6); #macro Meshsquare(Pmaxx,Pmaxy,Rrand,Rsize) //initialize the coordinates #declare Cp=array[Pmaxx][Pmaxy][3] #declare Xp=0; #while (Xp Rsize/Pmaxx } #if (Yp>0) #if (mod(Xp+Yp,2)=1) cylinder { Rsize/Pmaxx } #end #end #if (Xp>0) cylinder { Rsize/Pmaxx } #end #declare Yp=Yp+1; #end #declare Xp=Xp+1; #end pigment {color rgbt <0.2,0.8,1,0.8>} finish { reflection 1 phong 2 brilliance 1 ambient 0.4 } no_shadow translate <0.5/Pmaxx,0.5/Pmaxx,0> } #end Meshsquare(25,11,0.8,0.2)