// Last edited on 2009-07-22 15:01:01 by stolfilocal
// Processed by remove-cam-lights

background{ color rgb < 0.75, 0.80, 0.85 > }

#declare tinta_A = 
  texture {
    pigment { color rgb < 0.10, 0.80, 1.00 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare e = 1;
#declare tt = 10/30;
  
#macro Sierp(n)
       #if (n = 0)
union{
  cylinder {<0.5 ,0.5 ,0>,<0.5 ,0.5, e>, 0.3 texture {tinta_A} translate<1,1,0>}
  cylinder {<0.5 ,0.5 ,0>,<0.5 ,0.5, e>, 0.3 texture {tinta_A} rotate <90, 0, 0> translate<0,1,0> translate<1,1,0>}
}
     #else
    union{
  object{Sierp(n-1) translate<1,0,0>}
  object{Sierp(n-1) translate<0,1,0>}

  
  cylinder {<0.5 ,0.5 ,0>,<0.5 ,0.5, e>, 0.3 texture {tinta_A} translate<1,1,0>}
  cylinder {<0.5 ,0.5 ,0>,<0.5 ,0.5, e>, 0.3 texture {tinta_A} rotate <90, 0, 0> translate<0,1,0> translate<1,1,0>}

  object{Sierp(n-1) translate<2,1,0>}
  object{Sierp(n-1) translate<1,2,0>}
  scale<tt,tt,0.6>
  }
 #end
#end

object{Sierp(4)}

// Original camera parameters:
// #local cam_ctr = <1.00,1.00,0.00>
// #local cam_vec = (<-0.50,0.0,3.0>-<1.00,1.00,0.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<0.5,0.5,0.1>,<10,3,7>,1.5,z,1.0)