Ring_Sphere
Sfera d'anelli

object{ Ring_Sphere (Rmaj_H, Rmaj_V, Rmin_H, Rmin_V,
                     Number_of_Rings_horizontal,
                     Number_of_Rings_vertical)
        texture{ ... ... }
      } // end of object ------------------------

#include "shapes_lo.inc"
object{Ring_Sphere  (1.00, 1.02, 0.025, 0.025, 12, 16)
        texture { pigment{color  <1,1,1>}
                  finish {ambient 0.1 diffuse 0.7
                          phong 1 reflection 0.25}
                } // end of texture
        scale <1,1,1>
        rotate <-20,0,-7>
        translate <0,1.00,0>
      } // end of object ----------------------------------- 

Due while loops d'annelli, tutti i raggi sono calculati con la funzione coseno:

//----------------------------------------------- macro Ring_Sphere(...) #macro Ring_Sphere (Rmaj_H, Rmaj_V, Rmin_H, Rmin_V, Number_of_Rings_horizontal, Number_of_Rings_vertical) #if (Rmin_H > 0) #declare RingsH1 = union{ #declare AngleD = 180/ Number_of_Rings_horizontal; #declare Nr = -90+AngleD; #declare EndNr = 90; #while (Nr < EndNr) #declare RingR = Rmaj_H*cos(radians(Nr)); #declare RingH = Rmaj_H*sin(radians(Nr)); torus{RingR,Rmin_H translate<0, RingH,0>} #declare Nr = Nr + AngleD; #end // --------------- end of loop #declare LastR= RingR; }//----------------- #end // of "#if (Rmin_H > 0)" #if (Rmin_V > 0) #declare RingsV1 = // vertical union{ #declare Nr = 0; #declare EndNr = Number_of_Rings_vertical #while (Nr < EndNr) torus{Rmaj_V-Rmin_V,Rmin_V rotate<90,0,0> rotate<0, Nr*360/EndNr,0>} #declare Nr = Nr + 1; #end // --------------- end of loop }//--------------------------------- #end // of "#if (Rmin_V > 0)" union{ #if (Rmin_H > 0) object{ RingsH1} #end #if (Rmin_V > 0) object{ RingsV1} #end sphere{<0, Rmaj_H,0>,Rmin_H} sphere{<0,-Rmaj_H,0>,Rmin_H} } #end //--------------------------------- end of macro Ring_Sphere(...)

Qui qualche variazione di questa macro:
 

"Ring_Sphere(1.00, 1.02, 0.005, 0.005, 32, 46)"	"Ring_Sphere(1.03, 1.00, 0.015, 0.005, 30, 15)"