POV-Ray : Newsgroups : povray.advanced-users : Pappus Chain : Re: Pappus Chain Server Time
18 Jul 2024 07:24:45 EDT (-0400)
  Re: Pappus Chain  
From: Bald Eagle
Date: 17 Jun 2024 18:35:00
Message: <web.6670b9d73bd24dfe1f9dae3025979125@news.povray.org>
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'
mjf_appollonianellipsoids.png


 

Copyright 2003-2023 Persistence of Vision Raytracer Pty. Ltd.