// BEADS / Extention '99.12 // By Tsutomu HIGO E-mail: nj2t-hg@asahi-net.or.jp #version 3.1; global_settings { max_trace_level 6 assumed_gamma 2.2 } light_source {<40, -100, -50> color <1,1,1>} camera { location <-50,-280,-180> angle 48 look_at <60, 250, 0> } #declare Rdg=100; #declare Imax=9000; #declare Cp=array[Imax][2] #declare I=0; #while (I0) #declare Ad=0.8*rand(Rndm); #end #if (Ae-Ap<0) #declare Ap=Ap-2*pi; #end #if (Ae-Ap-As/Ri-Al/Ri-Ad/Ri>0) #declare I=0; #while (I0) #declare I=0; #while (I0) #declare Ai=sqrt(Cp[I][0]*Cp[I][0]+Cp[I][1]*Cp[I][1])/2/Rdg; #declare Ri=sin(Ai)*cos(Ai)/(Ai+0.000001); #else #declare Ai=0; #declare Ri=1; #end #declare Ri0=sin(pi/6)*cos(pi/6)/(Ai+0.0000001)+1/2-pi/12/(Ai+0.0000001); #if (Ai 1 #else sphere { 1 #end pigment { color rgbt <1-3*I/Pe,1-I/Pe,0.5+0.5*I/Pe,0.98> } finish { reflection 1.5 ambient 0.2 phong 0.3 brilliance 1 diffuse 2 } } #declare I=I+1; #end background {color rgbt <0,0,0.01>}