// Last edited on 2005-01-05 23:09:36 by stolfi
// Processed by remove-cam-lights

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

#declare raio = 2.000;

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

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

#declare tinta_C =
  texture{
    pigment { color rgb <0.00,1.00,0.00>}
    finish { diffuse 0.8 specular 0.4 roughness 0.005 ambient 0.1 }
  }

#declare tx_cristal=
 texture{
  finish{
   ambient 0.1 diffuse 0.1 reflection 0.25
   specular 0.5 roughness 0.001
  }
  pigment {color rgb <0.00,1.00,0.00> filter 1}
 }

#declare tx_espelho=
 texture{
  pigment{ color rgb < 0.10, 0.80, 1.00 > }
  finish {
   ambient 0.05 diffuse 0.05 reflection rgb 0.8*< 0.10, 0.80, 1.00 >
   specular 0.20 roughness 0.05
  }
 }

#declare tx_espelho2=
 texture{
  pigment{ color rgb < 1.00, 0.00, 0.00 > }
  finish {
   ambient 0.05 diffuse 0.05 reflection rgb 0.8*< 1.00, 0.00, 0.00 >
   specular 0.20 roughness 0.05
  }
 }
#declare rosca=
 torus{
 6,1
 texture {tinta_B}
 }

#declare lat=
 lathe {
     linear_spline
      5,
      <1,0>, <2,1>, <1,2>, <2,3>, <0,5>
   texture {tx_espelho}
 finish {
       ambient .3
       phong .75
     }
}
#declare lat3=
 lathe {
     linear_spline
      5,
      <1,0>, <2,1>, <1,2>, <2,3>, <0,5>
   texture {tx_espelho2}
 finish {
       ambient .3
       phong .75
     }
}

#declare lat2=
 lathe {
     linear_spline
      5,
      <1,0>, <2,1>, <1,2>, <2,3>,  <0,7>
   texture {tx_cristal}
 finish {
       ambient .3
       phong .75
     }
}

#declare plano=
 plane {z,0
 texture{
  pigment{checker <0.50,0.55,0.60>,<1.00,1.00,1.00>}
  finish{ambient 0.6 diffuse 0.4}
  scale 0.5
  }
 }

union {
 union {
  object {lat3}
  rotate 90*x
  translate <6.00,0.00,1.00>
 }
 union{
  object {lat}
  rotate 90*x
  translate <0.00,6.00,1.00>
 }
 union {
  object {lat2}
  rotate 90*x
  translate <5.00,5.00,1.00>
 }
 union {
  object {rosca}
  rotate 90*x
  translate <0.00,0.00,1.00>
 }
 object {plano}
}

#include "camlight.inc"
camlight(<0,0,0>,<12,12,9>,1.30,z,1.0)