Greetings, Raytracers!

I've been lurking around here for a few months & have decided it's about
time I joined in the fun. :) See my message "A sphere (or two) and a
checkered floor" in the binary.images group.

//POV-Ray 3.1+ Scene File. Classic Pickover shell.
global_settings{max_trace_level 256 assumed_gamma 1}
#macro Shell(N,A,B,C,K)#local D=(11/3-A)/N;union{#local I=1;
#while(I<N)#local T=I/N;#local R=B*exp(A*K);sphere{R*<1,0,C/B>
R rotate z*A*360 pigment{rgb<T,.6,1-T*T>}finish{reflection{0,1}
phong .7}}#local I=I+1;#local A=A+D;#end rotate x*9 translate
<0,3,9>}#end Shell(99,-2,.15,.35,.75)plane{y,-9 pigment{checker
rgb 0 rgb 1 scale 5 rotate 45*y}finish{reflection 1 ambient 0}
rotate -x*35}light_source{<2,4,-8>rgb 1.3}

Post a reply to this message