// Last edited on 2003-12-14 22:49:11 by stolfi
#include "colors.inc"

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


light_source {
  < 20.00, 0.00, 0.00 >
  color rgb < 1.00, 1.00, 1.00 >
} 


light_source {
  < 10.00, 0.00, 0.00 >
  color rgb < 0.00, 0.00, 1.00 >
} 


#declare ctr = < 0.00, 0.00, 0.00 >;
#declare camDir = < 30.00, 0.00, 0.00 >;

camera {
  location   ctr + 1.25*camDir
  right      -1.00*x
  up         1.00*z
  sky        z
  look_at    ctr
}
 

#declare tinta_A = 
  texture {
    pigment { color rgb < 0.50, 0.50, 1.0 > }
    finish { diffuse 0.05 specular 0.2 roughness 0.005 ambient 0.05 reflection color rgb < 0.5 , 0.5, 1.0 >}
  }


#declare tinta_B = 
  texture {
    pigment { color rgb < 1.0, 1.0, 1.0 > }
    finish { diffuse 0.05 specular 0.2 roughness 0.005 ambient 0.05 reflection color rgb < 1. , 1, 1.0 >}
  }


#declare tinta_P =
  texture {
    pigment { color rgb < 0.80, 0.75, 0.5> }
    finish { diffuse 0.5 specular 0.5 roughness 1 ambient 0.1 }
}


#declare tinta_C = 
  texture {
    pigment { color rgb < 1.00, 1.00, 1.00 > filter .85}
    finish { diffuse 0.1 specular 0.1 roughness 0.001 ambient 0.1 reflection 0.15}
  }

plane { x 0  texture {tinta_A}}

#declare lupa = 
        union {

  sphere { <0,0,0> 5 
    texture {tinta_C}
    scale <.5,0,0>
         }
  difference {
  
    cylinder { <.5,0,0> , <-.5,0,0> 5.5
      texture {tinta_B}
    } 
    cylinder { <.6,0,0> , <-.6,0,0> 5 
      texture {tinta_B}
    }
  }
  
  union {
  cone { <0,0,-5.5> 1 <0,0,-10.5> 1.5
    texture {tinta_P}
  
  }
  
  difference {
    sphere { <0,0,0> 1.5
      texture {tinta_P}
    }
    box { <2,-2,2> <-2,2,0> 
    }
        translate <0,0,-10.5>
  }
  rotate x*45
        }
}

#declare L = 
  union {
         union {
    cylinder { <0,0,-2> <0,0,6> 2  
        texture {tinta_P}
    }
    cylinder { <0,0,0> <0,6,0> 2
      texture {tinta_P}
    }
    cylinder { <0,0,6> <0,0,10> .5
      texture {tinta_P}
    }
    cylinder { <0,6,0> <0,10,0> .5
      texture {tinta_P}
    }
  }
  
}  
  
#declare I = 
  union {
    cylinder {<0,0,0> <0,0,7> .5 
      texture {tinta_P}
    }
    cylinder { <0,0,7> <0,0,10> 1.5
      texture {tinta_P}
    }
    translate <0,12,0>
  }

#declare V = 
  union {
    cylinder {<0,-2.5,2.5> <0,-6,6> .5
      texture {tinta_P}
    }
    cylinder {<0,-2.5,2.5> <0,0,0> 2
      texture {tinta_P}
    }
    cylinder { <0,-1.3,-1.3> <0,2.5,2.5> 2 texture {tinta_P}} 
    cylinder { <0,2.5,2.5> <0,6,6> .5 texture {tinta_P}}
    translate <0,14,0>
  }    

union {object { L } object { lupa translate <4,1.6,0>} translate <0,-10,0>}
union {object { lupa rotate x*-90 scale .5  translate <4,12      ,8.5> } object {I} translate <0,-9,0>} 

union {object {lupa rotate x*120 scale .7 translate <4,13,0>} object {V} translate <0,-3,0>}