"Dave Dunn" <poi### [at] aolcom> wrote in message
news:3C95DD52.58BCC79C@aol.com...
>
> Now there's an idea whose time has come. I can never seem to get those spheres
> round enough. They always end up with sharp edges. I am posting sample code.
> What am I doing wrong?
>
> box  {<-1,-1,-1>,<1,1,1> pigment {MyPigment}}
>

A common beginner's mistake. Try:

// decrease step for higher quality
#local Step = 20;
intersection{
  box{0,1 translate -0.5}
  #local M = 0;
  #while(M <= 360)
    #local N = 0;
    #while(N <= 360)
      plane{x,1/2 rotate z*M rotate y*N}
      #local N = N + Step;
    #end
    #local M = M + Step;
  #end
  pigment{Red}
}

Post a reply to this message