#include "FullPullTex.inc"



#declare Post =
union{  
  
  #declare  py = 1.6;
  #declare  pz = 0.5;
  #declare  pR = 0.3;
  #declare  pr = 0.02;
  #declare  l  = 0.02;
  
  difference{
    object{lozenge(py, pz, pR, pr) }
    union{
      box{<-pR-1,-1,-pz/2+.1><pR+1,py+1,pz>}    
      object{lozenge(py-.1,pz+3,pR-.1,pr)}
    }
    texture{ChromeTex}
  }
  difference{
    object{lozenge(py, pz, pR, pr) }
    box{<-pR-1,-1,-pz/2+.1><pR+1,py+1,pz>} 
    rotate 180*y   
    texture{ChromeTex}
  }
  
  object{lozenge(py-l, pz-l, pR-l, pr) texture{PostTex}}

}


#declare sWheel =

union{
  
  difference{
    cylinder{<0,0,0><0,0,0.02>.5}
    union{
       cylinder{<0,0,8><0,0,-8> .5  scale <1,1.5,1> translate<-.6,.3,0>}
       cylinder{<0,0,8><0,0,-8> .5  scale <1,1.5,1> translate< .6,.3,0>}
       cylinder{<0,0,8><0,0,-8> .2  scale <1,1,1> translate< 0,-.5,0>}
       
       cylinder{<0,0,8><0,0,-8> .04  translate< 0,.4,0>}
       cylinder{<0,0,8><0,0,-8> .04  translate< 0,.28,0>}
       cylinder{<0,0,8><0,0,-8> .04  translate< 0,.16,0>}   
       
       cylinder{<0,0,8><0,0,-8> .05  translate< -.09,-.2,0>}
       cylinder{<0,0,8><0,0,-8> .05  translate<  .09,-.2,0>}

       cylinder{<0,0,8><0,0,-8> .035  translate< -.18,-.29,0>}
       cylinder{<0,0,8><0,0,-8> .035  translate<  .18,-.29,0>}

    } 
  }
  
  cylinder{<0,0,0><0,0,-1.5>.06 }
  
  torus{.06,.03 rotate 90*x scale<1,1,3> translate <0,0,-0.03> texture{ChromeTex}}
  
  torus{.1,.02 rotate 90*x translate <0,0,-1> texture{ChromeTex}}

  cone{<0,0,-1>.1<0,0,-1.6>.2 texture{ChassisTex}}
  
  texture{AlloyTex}
  
  rotate -30*x
  translate<0,5.8,-2.5>
}

#declare SteeringWheel =
union{
  object{sWheel}
  object{Post translate<0,3.8,-4>}

}