/* astroidale comme enveloppe d'une famille de plans [[cos(1/2*j*pi/n)*cos(1/2*i*pi/n),0,0],[0,cos(1/2*j*pi/n)*sin(1/2*i*pi/n),0],[0,0,sin(1/2*j*pi/n)]] # i=0..4*n),j=-n..n) # pour tout avoir > # i=1..n),j=1..n) # pour un huitième */ #include "colors.inc" #include "glass.inc" camera { orthographic location <0,4,-15> look_at<0,0,0> angle 10} light_source { <0,7,-10> color White } light_source { <-5,-10,-10> color Red*0.7 shadowless } light_source { <10,5,-10> color Yellow*0.7 shadowless } background{rgb <1,1,1>*1} // ---------------------------------------- #declare R1 = seed(500); #declare n=5; #declare m=6; #declare coi=pi/2/n; #declare coj=pi/2/m; union{ #declare i=1; #while(i<=4*n) #declare j=-m; #while(j<=m) triangle{ ,<0,cos(j*coj)*sin(i*coi),0>,<0,0,sin(j*coj)> texture{ T_Glass1 /* normal { agate 1 turbulence 2 scale 0.8 accuracy 0.00001 } */ pigment{ color rgb } finish{ambient 0.5 diffuse 0.3 reflection 0.2 specular 0.4 roughness 0.00001}}} #declare j=j+1; #end #declare i=i+1; #end rotate <95,70,5> }