Wasn't it Oleguer Vilella who wrote:
>Hi all,
>
>I have done this code:
>======================================
>======================================
>How can I unife all the spheres?

Do you mean like this?

#macro Make_All(N,M)
  blob {threshold 0.1
  #local Ample=-12;
  #while (Ample<N)
    #local Fons=0;
    #while (Fons<M)
      sphere {<0,0,0>, 2, 1
        rotate <0,0*Ample,0> translate<3*Ample,9*cos (Ample/8),0>
        translate <0,3*sin (Fons/8),3*Fons> translate <10, -20, 30>
      }
      #local Fons=Fons+1;
    #end
    #local Ample=Ample+1;
  #end
  }
#end 

object {Make_All(100,50)
  texture {
    pigment { color Red }
    finish { ambient 0.2 diffuse 0.8 phong 1 }
  }
}

-- 
Mike Williams
Gentleman of Leisure

Post a reply to this message