// Tuba canora e computosa
// Last edited on 2003-05-31 12:13:50 by stolfi
// 15/05/2003 Thiago Barroso Fonte Boa

#include "textures.inc"

#declare ctr = < 0,0,0 >;
camera {
  location  ctr + 0.5 * <  -10, 6, -10 >
  right 1.0*x  up 0.75*y
  look_at ctr  
} 

light_source{ 100 * < -7, 25, -10> color rgb 1.2*<1,1,1>} 
light_source{ 100 * < +7, 15, -10> color rgb 0.8*<1,1,1>} 
light_source{ 100 * < 1,  5,  -23> color rgb 0.4*<1,1,1>} 

#declare CorChao = color rgb 1.3*<0.5,0.3,0.1>;
#declare CorFalante = color rgb 1.7*<0.5,0.6,0.3>;

plane{y,-5 pigment{ CorChao } }

sky_sphere{
  pigment {Blue_Sky}
}

#declare falante=
lathe{
  5,
  <0.5,0>,<0.8,0>,<1.4,-2>,<1.1,-2>,<0.5,0>
  finish{
    ambient 0.1 diffuse 0.3
    reflection 0.4
    specular 0.3 roughness 0.001
  }
  pigment { CorFalante }
}

#declare falante1=
lathe{
  5,
  <0.3,0>,<0.6,0>,<1.0,-2>,<0.7,-2>,<0.3,0>
  finish{
    ambient 0.1 diffuse 0.3
    reflection 0.4
    specular 0.3 roughness 0.001
  }
  pigment {CorFalante}
}

#declare pega=
prism{
  0,1.5,6,
  <0.3,0.3>,<0.6,0.3>,<0.7,0.6>,<0.4,1>,<0.2,0.7>,<0.3,0.3>
  finish{
    ambient 0.1 diffuse 0.3
    reflection 0.4
    specular 0.3 roughness 0.001
  }
  pigment {CorFalante}
}

#declare tuba=
difference{
union{
  lathe{
    5,
    <0.5,0>,<0.8,0>,<0.8,5>,<0.5,5>,<0.5,0>
    finish{
      ambient 0.1 diffuse 0.3
      reflection 0.4
      specular 0.3 roughness 0.001
    }
    pigment {CorFalante}
  }

  falante
  object{falante1 rotate<0,0,90> translate<0.4,1,0>}
  object{falante1 rotate<0,0,-90> translate<-0.4,1,0>}
  object{pega rotate<90,0,0> translate<-0.46,1.2,0.8> scale<2,2,1>}
  object{pega rotate<90,0,0> translate<-0.46,2.4,0.8> scale<2,2,1>}
}

cylinder{
  <0,1.7,0>,<0,1.7,-5>,0.4 pigment{CorFalante}}
cylinder{
  <0,3.6,0>,<0,3.6,-5>,0.4 pigment{CorFalante}}
}

object{tuba rotate <90,90,0>}