// NET / Twin Hills Face of Square 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 {<0, 0, -10> color <1,1,1>} camera { location <0,-12,-12> angle 3.5 look_at <0, 0.02, 0> } #declare R1 = seed(7); #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) cylinder { Rsize/Pmaxx } #end #if (Xp>0) cylinder { Rsize/Pmaxx } #end #declare Yp=Yp+1; #end #declare Xp=Xp+1; #end pigment {color rgb <1,1,1>} finish { ambient 0.6 } no_shadow translate <0.5/Pmaxx,0.5/Pmaxx,0> } #end Meshsquare(50,48,0.6,0.06)