And


#macro DrawCircle (C, PigmNr)

 //#debug concat( "C = ", vstr(3, C, ", ", 0, 3), " \n")
 //torus {abs(C.z), Line texture {pigment {colour Colours[PigmNr]} finish
{emission 1}} rotate x*90 translate <C.x, C.y, 0>}
 #if (C.z > 0 & C.z < 0.6)
 sphere {0, abs(C.z) scale <1, 1, 1+pow(abs(C.z), 0.001)> texture {pigment
{colour Colours[PigmNr]} finish {specular 0.4}} translate <C.x, C.y, 0>}
 #end
#end

Post a reply to this message

Attachments:
Download 'mjf_appollonianellipsoids.png' (133 KB)

Preview of image 'mjf_appollonianellipsoids.png'