// Last edited on 2009-07-22 16:26:29 by stolfilocal
// Processed by remove-cam-lights

background{ color rgb < 1, 1, 1 > }

#declare cinza = 
  texture {
    pigment { color rgb < 1.00, 1.00, 1.00 > }
    finish { diffuse 0.8 ambient 0.1 }
  }

#declare amarelo =
  texture {
    pigment { color rgb < 1, 1, 0 > }
    finish { diffuse 0.8 ambient 0.1 }
  }

#declare vermelho =
  texture {
    pigment { color rgb < 1.00, 0.40, 0.20 > }
    finish { diffuse 0.8 ambient 0.1 }
  }

#declare pizza =
  cylinder {
    < 0,0,0 >,
    < 0,0,0.5>,
    10
    texture { vermelho }
  }

#macro frac(n)
  #if (n = 0)
    object { pizza }
  #else
    union {
      object { frac(n-1) translate < 0,0,0.5 > }
      object { frac(n-1) translate < 10,0,0 > }
      object { frac(n-1) translate < -10,0,0 > }
      object { frac(n-1) translate < 0,10,0 > }
      object { frac(n-1) translate < 0,-10,0 > }
    }
    scale < 0.5,0.5,1 >
  #end
#end

union {
  frac(5) 
}

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <0,0,50.00>
// #local cam_sky = z

#include "camlight.inc"
camlight(<0,0,0>,<10,4,7>,25.0,z,1.0)