// 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 <.65,.75,-1.5 > look_at<0,0,-1> 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,.69> }           //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"  

                                  

#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 ogcTex=  texture { pigment{ color rgb<1,0.60,0.0>}
                 finish { phong 1 reflection{ 0.00 metallic 0.00} } 
               } // end of texture 

#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,-.6>}  }  //and end two-box union...
                            }  // woohoo, end of INNER intersection!           
               }  //and end the intersection     
               
#declare LBAssy=union{object{BrakeBlock pigment{Gray20}} 
                      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}}   
                                         
                      difference{cone { <0,-.1,-.75,>,0.13,<0,-.1,-.95>,.069 texture{ogcTex}}             //and some cone shit on the end shit
                                 cylinder { <0,-.1,-.73>,<0,-.11,-.96>, .045 } 
                                 translate<0,-.45,0>  } 
                      difference{cylinder{<0,-.1,-.7>,<0,-.1,-.6>,.16}
                                 cylinder{<0,-.1,-.71>,<0,-.1,-.59>,.045}
                                        translate<0,-.45,0>                                }  //end difference
                      }//ooh and end that big union!!!  there'sa left brake assembly!!