// Standard pre-defined colors
//
#include "colors.inc"

// Set a color of the background (sky)
background { color rgb< 0, 0, 1> }

// create a regular point light source
light_source {0*x color rgb <1,1,1>    translate <2, 0, 3>}            
light_source {0*x color rgb <1,1,1>    translate <-1, 0, -3>}   

 //camera{location <45,0,45> look_at<50.75,0,31.25> sky x right x*image_width/image_height  }             //bars head-on
  camera{location <.05,3.5,1.5> look_at<0,0,1.5> sky x right x*image_width/image_height  }    //flat lookin' in..
  camera{location <3,1.5,1.5 > look_at<0,0,1.5> sky x right x*image_width/image_height  }   //overtop
   //camera{location <9,9,9> look_at<0,0,0> sky x right x*image_width/image_height  }  

#declare ogseTex=texture{ pigment{ color rgb<1,0.75,0.1> } finish { phong 1 }} // original superellipsoid texture (via insert)                                                                                            
declare BrakeBlock=difference {union{superellipsoid{ <0.25,0.25> scale <.2,.5,.6> }           //this is the main "block" of the brake                           
                             superellipsoid{<.25,.25> scale<.2,.2,.6> translate y*-.5}         // front schnurd
                             } //end union of two supelips
                             torus {.85,0.5                         //the cuttin' torus!
                                    scale <.69,1,1>} // end of torus  -------------------------------              
                                   }//yeah end diff, with a fat torus in      
                               //end union with topschnurd   ...  end of brake "block"  
object{BrakeBlock pigment{Gray20}} 
                                  

#declare BigOuterRing= difference{cylinder{<-.5,0,0>,<.5,0,0>,14}    //that which encapsulates the lever, used with intersecting 
                                  cylinder{<-.6,0,0>,<.6,0,0>,12.94} //cut out center of "differencing" cylinder 
                                  box{<1,-15,-.69>,<-1,15,-15>}  //half off!
                                  translate <0,12.5,0>}                                    
#declare ogtTex= texture {pigment{ color rgbt<1,1,1,0>} finish {phong 1 reflection{ 0.00 metallic 0.00} }}

#declare BrakeLever=
  intersection{object{BigOuterRing} 
               intersection{difference{torus { 13.0,0.1  }
                                     torus { 13.0,0.07   }  //end inner scoopout torus
                                     rotate<0,0,90>  translate<0,12.5,0> }//end diff after you hack the shit out of that..
                            union{box{<.1,0,0> <-.1,-.7,4> rotate x*-16 translate y*-.5}
                                  box{<.5,-1,1> <-.5,1,-1>}  }  //and end two-box union...
                            }  // woohoo, end of INNER intersection!           
               }  //and end the intersection   
               
object{BrakeLever scale <1,.8,1> translate <0,-.1,0> texture{ogtTex}}               
object{BrakeLever scale .8 translate <0,-.17,0> rotate x*3 pigment{Gray10}}                            
                                   
           // box{<.1,0,-1> <-.1,-.5,3.5> rotate x*-4 translate y*-.42 texture{pigment{Red}} }                        
        // box{<.1,-.4,0> <-.1,-.5,3> texture{pigment{Red}} } 
        //box{<.1,0,0> <-.1,-.5,4>  texture{pigment{Red}}}