|
|
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'
|
|