// NET / Twin Hills Face of Triangle 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, -20> color <1,1,1>} camera { location <0,-12,-15> angle 3.1 look_at <0, 0.5, 0> } #declare R1 = seed(8); #declare Cos30 = cos(pi/6); #macro Meshsquare(Pmaxx,Pmaxy,Rrand,Rsize) #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 #if (Yp>0) #if (Xp>-mod(Yp,2)) #if (Xp Rsize/Pmaxx } #end #end #end #declare Yp=Yp+1; #end #declare Xp=Xp+1; #end pigment {color rgb <1,1,1>} finish { ambient 0.4 } no_shadow translate <0.5/Pmaxx,0.5/Pmaxx,0> } #end Meshsquare(36,32,0.6,0.06)