// why cannot I do this:
// perhaps I **have** hit the brick wall of povray after all.
//

#declare iter=3;
#declare scal=0.5;
#declare AH=.20;

#macro set1()
        sphere {0,0.5,1 translate
#end

#declare i=0;
#while(i<iter)
#macro set2()
 set1() }
 set1() scale scal translate < AH, AH, AH>}
 set1() scale scal translate < AH, AH,-AH>}
 set1() scale scal translate < AH,-AH, AH>}
 set1() scale scal translate < AH,-AH,-AH>}
 set1() scale scal translate <-AH, AH, AH>}
 set1() scale scal translate <-AH, AH,-AH>}
 set1() scale scal translate <-AH,-AH, AH>}
 set1() scale scal translate <-AH,-AH,-AH>}

#end                //scale scal

#declare i=i+1;
#end

#macro set1()
  set2()
#end


blob{
threshold 0.5
set1()
pigment{color rgb <0.9,0.1,0.3>}}

Post a reply to this message

Greg M. Johnson wrote:
> #macro set1()
>         sphere {0,0.5,1 translate
> #end
> [...]
>  set1() }
>  set1() scale scal translate < AH, AH, AH>}

...which results in:
         sphere {0,0.5,1 translate }
         sphere {0,0.5,1 translate scale scal translate < AH, AH, AH>}

And this is supposed to do what? :-)

Anders

--
light_source{6#local D=#macro B(E)#macro A(D)#declare E=(E-#declare
C=mod(E D);C)/D;C#end#while(E)#if(A(8)=7)#declare D=D+2.8;#else#if(
C>2)}torus{1..2clipped_by{box{-2y}}rotate<1 0C>*90translate<D+1A(2)
*2+1#else}cylinder{0(C-v=1).2translate<D+C*A(2)A(4)#end-2 13>finish
{specular 1}pigment{rgb x}#end#end#end-8;1B(445000298)B(519053970)B
(483402386)B(1445571258)B(77778740)B(541684549)B(42677491)B(70)}

Post a reply to this message

On Thu, 16 May 2002 16:12:37 -0400, "Greg M. Johnson" <gregj:-)565### [at] aolcom>
wrote:

> // why cannot I do this:

becouse you have no value for translation of sphere

ABX

Post a reply to this message

See p.b-t.b.

Post a reply to this message