Thank you all for your help!

My real problem was not to create a sphere; it was merely an example.
But just for the fun of it I tried to make a unit sphere as perfect as
possible.
Here's one that has a radius ranging from 0.999 to 1.001.

#declare Patch =
bicubic_patch {
   type 1 flatness 0 u_steps 4 v_steps 4
   <-1,0.000,-0.000>, <-1,0.553, 0.000>, <-0.553,1.000, 0.000>, <0,1.000,
0.000>,
   <-1,0.006,-0.003>, <-1,0.553,-0.300>, <-0.553,1.000,-0.553>,
<0,1.000,-0.553>,
   <-1,0.003,-0.006>, <-1,0.300,-0.553>, <-0.553,0.553,-1.000>,
<0,0.553,-1.000>,
   <-1,0.000,-0.000>, <-1,0.000,-0.553>, <-0.553,0.000,-1.000>,
<0,0.000,-1.000>
}

union {
   object {Patch scale <+1,+1,+1>}
   object {Patch scale <-1,+1,+1>}
   object {Patch scale <+1,-1,+1>}
   object {Patch scale <-1,-1,+1>}
   object {Patch scale <+1,+1,-1>}
   object {Patch scale <-1,+1,-1>}
   object {Patch scale <+1,-1,-1>}
   object {Patch scale <-1,-1,-1>}
   pigment {color rgb 1}
}

Rune
--
\ Include files, tutorials, 3D images, raytracing jokes,
/ The POV Desktop Theme, and The POV-Ray Logo Contest can
\ all be found at http://rsj.mobilixnet.dk (updated October 9)
/ Also visit http://www.povrayusers.org

Post a reply to this message