> #declare Tex = texture { pigment { color rgb <0.95,0.65,0.55> } finish {
> phong 1 phong_size 100 } }
> #declare S = sphere { 0, 0.25 texture { Tex } }
>
> #declare Precision = 0.5;
> union {
>   #declare T = 0;
>   #while (T<360)
>     object { S translate <0,T/180,-2> rotate 4*y*T }
>     #local T = T + 1/Precision;
>   #end
> rotate x*-20 }
>
> Now, my question is, "Is there is any way to cause each subsequent sphere to
> have a smaller or larger diameter than the one before it?"

Replace the "#declare S" and "object" lines by

  #macro S(T) = sphere {0, (something that depends on T) texture {Tex}}
  object {S(T) translate <0,T/180,-2> rotate 4*y*T}

On a side note you may want to look into the sphere_sweep object. That one
can help you reduce Precision while improving accuracy.

Best regards,

  Mark Weyer

Post a reply to this message