On 3 Jul 2001 09:15:15 -0400, Warp wrote:
>camera{location<1,2,-3>look_at 0}#macro P(d)pigment{checker rgb 6translate d
>scale.15rotate 45*y}#end sphere{y-x#macro F(S,T,E,G)box{<S,T,-.01><E,G,1>scale
>.35rotate 90*x P(1)}#end 1finish{reflection 1}}fog{rgb 1fog_type 2distance 2
 .35rotate x*90P(1)}...


-- 
#macro R(L P)sphere{L F}cylinder{L P F}#end#macro P(V)merge{R(z+a z)R(-z a-z)R(a
-z-z-z a+z)torus{1F clipped_by{plane{a 0}}}translate V}#end#macro Z(a F T)merge{
P(z+a)P(z-a)R(-z-z-x a)pigment{rgbf 1}hollow interior{media{emission 3-T}}}#end 
Z(-x-x.2x)camera{location z*-10rotate x*90normal{bumps.02scale.05}}

Post a reply to this message