// Last edited on 2009-07-23 13:57:47 by stolfilocal
// Processed by remove-cam-lights

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

#declare parede = 
  texture {
    pigment { color rgb < 0.67, 0.5, 0.34 > }
    finish { diffuse 0.8 specular 0.1 ambient 0.1 }
  }
 
#declare n2=0;
#declare z2=0;
#declare fator_muro=1;
#declare fator_forte=1.2;
#declare fator_torre=3;

#declare larg_muro=0.5;
#declare larg_forte=2;
#declare larg_torre=5;
 
#while( larg_torre>0.1 )

  #if( larg_muro>0.1 )
    box {
      <-10-larg_muro, -10-larg_muro, fator_muro*z2>,
      < 10+larg_muro, -10+larg_muro, fator_muro*z2+fator_muro>
      texture{parede}
    }

    box {
      <-10-larg_muro,  10-larg_muro, fator_muro*z2>,
      < 10+larg_muro,  10+larg_muro, fator_muro*z2+fator_muro>
      texture{parede}
    }

    box {
      <-10-larg_muro, -10-larg_muro, fator_muro*z2>,
      <-10+larg_muro,  10+larg_muro, fator_muro*z2+fator_muro>
      texture{parede}
    }

    box {
      <10-larg_muro, -10-larg_muro, fator_muro*z2>,
      <10+larg_muro,  10+larg_muro, fator_muro*z2+fator_muro>
      texture{parede}
    }

  #end

  #if( larg_forte>0.1 )
    cylinder {
      <-10, -10, fator_forte*z2>,
      <-10, -10, fator_forte*z2+fator_forte>,
      larg_forte
      texture{parede}
    }

    cylinder {
      <-10, 10, fator_forte*z2>,
      <-10, 10, fator_forte*z2+fator_forte>,
      larg_forte
      texture{parede}
    }

    cylinder {
      <10, 10, fator_forte*z2>,
      <10, 10, fator_forte*z2+fator_forte>,
      larg_forte
      texture{parede}
    }

    cylinder {
      <10, -10, fator_forte*z2>,
      <10, -10, fator_forte*z2+fator_forte>,
      larg_forte
      texture{parede}
    }
  #end

  #if( larg_torre>0.1 )
    cylinder {
      <0, 0, fator_torre*z2>,
      <0, 0, fator_torre*z2+fator_torre>,
      larg_torre
      texture{parede}
    }
  #end

  #declare n2 = n2+1;
  #declare z2 = z2+1;

  #declare larg_muro = larg_muro*0.8;
  #declare larg_forte = larg_forte*0.8;
  #declare larg_torre = larg_torre*0.8;

#end

// Original camera parameters:
// #local cam_ctr = <0.00,0.00,10.00>
// #local cam_vec = (<30.00,30.00,21.00>-<0.00,0.00,10.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<0.00,0.00,0.00>,<10,7,5>,50.0,z,1.0)