// Last edited on DATE TIME by USER
// Processed by remove-cam-lights

  

  

  

  

 
 

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

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

#declare YELLOW = 
  texture {
    pigment { color rgb < 1.0, 1.0, 0.0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
#declare GREEN = 
 texture {
   pigment { color rgb < 0.20, 0.80, 0.10 > }
   finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
 }

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

#declare SILVER = 
 texture {
   pigment { color rgb < 0.86, 0.86, 0.86 > }
   finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
 }

#declare GOLDENROD = 
 texture {
   pigment { color rgb < 0.854, 0.64, 0.125 > }
   finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
 }

#declare def_font = "arial.ttf";
#declare def_width = 2;
#declare def_spacing = 0;
#declare word = "RA064761"
#declare def_radius = 3;

#macro draw_letter(l)
 text{
  ttf def_font
  l
  def_width, def_spacing  
 }
#end

#declare draw_text_cylinder =
 difference{
  cylinder{
   <0,0,0>
   <0,4,0>
   def_radius
  }
  #declare i = 1;
  #declare n = 8;
  
  #while (i <= n)
   #declare letter = substr(word, i, 1)
   object{
    draw_letter(letter)
    translate < 0, 2, -def_radius>
    rotate <0, 45-i*100/n,0>
   }
   #declare i = i + 1;
  #end

 }
 

#declare tubo =
 lathe{
    cubic_spline
     5,
     <0, 0>, <1, 0>, <1, 3>, <0, 3>, <1, 0>
 }
#declare trombone = 
 merge{
  cone{
   <0,2,0>,2
   <0,17,0>,0.1
  }
  object{tubo
   translate <1,0,-0.5>
  }
  object{tubo
   translate <-1,0,-0.5>
  }
  object{tubo
   translate <0,0,1>
  }
 }

#declare caixa =
 merge{
  prism{
   linear_spline
   0, 2, 10,
   <0, 0>, <5,0>, <3,4>,<2,4>,<0,0>,
   <1, 0.5>, <4,0.5>, <2.8,3>,<2,3>,<1,0.5>
  }
  prism{
   linear_spline
   1.6, 1.8, 5,
   <0.1, 0.1>, <4.9,0.1>, <3.1,3.9>,<2.1,3.9>,<0.1,0.1>
  }
  object{ tubo
   scale <1.3,0.7,1>   
   translate <1.5,-0.1,0>
   
  }  
  object{ tubo
   scale <1.3,0.7,1>   
   translate <3.5,-0.1,0>
   
  }  
 }

object {
 caixa 
 rotate <90, 0, 0>
 texture{
  pigment{
   onion
   color_map{
    [0.0 color rgb <1.0, 0.5 0.4>]
    [0.3 color rgb <0, 0.1 0.8>]
    [0.7 color rgb <0.1, 0.8 0.2>]    
    [1 color rgb <1, 0.1 0.1>]    
   }  
  }
    finish { diffuse 0.2 specular 0.6  ambient 0.2 } 
 }
}

object {
 trombone
 translate < -2, 0, 0>
 texture{
  pigment{
   waves
   color_map{
    [0.0 color rgb <1.0, 0.5 0.4>]
    [0.3 color rgb <0, 0.1 0.8>]
    [0.7 color rgb <0.1, 0.8 0.2>]    
    [1 color rgb <1, 0.1 0.1>]    
   }  
  }
    finish { diffuse 0.2 specular 0.6  ambient 0.2 } 
 }
}

// Original camera parameters:
// #local cam_ctr = <1.00,0.00,2.00>
// #local cam_vec = (<-5.0,-15,10.00>-<1.00,0.00,2.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<1.00,0.00,2.00>,<10,10,10>,20.0,z,1.0)