See povray.binaries.images for an image.

#macro Curser( L )

  cone{<0,0,0>,.125,<0,1,0>,(.125*.6) pigment{rgb 1}}

  #if (L > 0)
    #local New_L = L - 1;

    union{
     Curser(New_L) sphere{0,.01 pigment{rgb 0}}
     scale .65 rotate y*45 translate y*1
    }
    union{
     Curser(New_L) sphere{0,.01 pigment{rgb 0}}
     scale .65 rotate<0,45,90> translate y*1
    }
    union{
     Curser(New_L) sphere{0,.01 pigment{rgb 0}}
     scale .65 rotate<0,45,-90> translate y*1
    }

  #end

  #if(New_L<1) torus{.2,.1 pigment{rgb<.15 .8 .3>} finish{diffuse .9}
translate y*1} #end

#end


--
Samuel Benge

E-Mail: STB### [at] aolcom

Visit the still unfinished isosurface tutorial:
http://members.aol.com/stbenge

Post a reply to this message