PM 2Ring wrote:
> 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}
> 
Oooo... I like it. All it needs is for the end to be open, then it will 
make soem really nice shells. A macro with various options to change and 
randomize the shell would also be cool. :)

Post a reply to this message