// Last edited on 2009-07-22 14:57:41 by stolfilocal
// Processed by remove-cam-lights

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

#declare colorDarkBlue = 
  texture {
    pigment { color rgb < 0.00, 0.00, 0.80 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.205 ambient 0.1 }
  }

#declare colorLightBlue = 
  texture {
    pigment { color rgb < 0.00, 0.40, 1.00 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.205 ambient 0.1 }
  }

#declare colorDarkGreen = 
  texture {
    pigment { color rgb < 0.00, 0.80, 0.00 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
  
#declare colorLightGreen = 
  texture {
    pigment { color rgb < 0.00, 1.00, 0.00 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
  
#declare colorYellow =
  texture {
    pigment { color rgb < 1.00, 1.00, 0.00 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
  
#declare colorRed =
  texture {
    pigment { color rgb < 1.00, 0.00, 0.00 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
  
#declare colorBrown = 
  texture {
    pigment { color rgb < 0.90, 0.90, 0.75 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
  
#declare colorGrey = 
  texture {
    pigment { color rgb < 0.90, 0.90, 0.90 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.205 ambient 0.1 }
  }
  
#declare colorArray = array[6] {colorDarkBlue,colorLightBlue,colorDarkGreen,colorLightGreen,colorYellow,colorRed};

#declare s = 1.0/5.0;

#macro Sierp(n)
  #if (n=0)
    difference {
      
      box { < 0, 0, -0.05 > , < 5, 5, 0.05 > texture { colorRed } }
        
        box { < 0, 0, -0.10 > , < 1, 1, 0.10 > texture { colorDarkBlue } translate < 1, 1, n > }
        box { < 0, 0, -0.10 > , < 1, 1, 0.10 > texture { colorDarkBlue } translate < 1, 3, n > }
        box { < 0, 0, -0.10 > , < 1, 1, 0.10 > texture { colorDarkBlue } translate < 2, 2, n > }
        box { < 0, 0, -0.10 > , < 1, 1, 0.10 > texture { colorDarkBlue } translate < 3, 1, n > }
        box { < 0, 0, -0.10 > , < 1, 1, 0.10 > texture { colorDarkBlue } translate < 3, 3, n > }
    }
  #else
    union {
      object { Sierp(n-1) scale < s, s, 1/n > translate < 0, 0, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 1, 0, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 2, 0, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 3, 0, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 4, 0, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 0, 1, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 2, 1, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 4, 1, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 0, 2, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 1, 2, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 3, 2, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 4, 2, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 0, 3, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 2, 3, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 4, 3, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 0, 4, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 1, 4, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 2, 4, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 3, 4, 0 > } 
      object { Sierp(n-1) scale < s, s, 1/n > translate < 4, 4, 0 > } 
      
    }
  #end
#end
  
object { Sierp(3) }

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

#include "camlight.inc"
camlight(<2.5,2.5,0>,<10,10,10>,8.0,z,1.0)