#include "sprock.pov"

#include "RMCRing.pov"                
#declare ShinyTex=texture{T_Chrome_4C finish{ambient .6}}
#declare NotAsShinyTex=texture{T_Chrome_4C finish{ambient .53}}
#declare DarkMetal=texture{T_Chrome_4C finish{ambient .12}}
#declare MyChrome = texture {NotAsShinyTex}     
//#declare MyChrome = texture {DarkMetal}              
                                            
#declare NutSide=0; 
#declare HalfANutSide=.12345; //.14; //.13;  //.2;//.4;
#declare FarOutness=.33;   //.5; //1; 
#declare CrankNut=difference{union{#while (NutSide<12)
                                     box{<-HalfANutSide,0,-HalfANutSide><HalfANutSide,.1,HalfANutSide> translate x*FarOutness rotate y*NutSide*30}
                                     #declare NutSide=NutSide+1;
                                   #end}  
                             cylinder{ -.1*y, .2*y, .36}    //hole in the nut yo...
                             }  //end our differences!!                 
                                                          
                             
#declare HalfANut=// linear prism in x-direction: from ... to ..., number of points (first = last)
prism { 0.00 ,.100 , 7
 <3,5>, <-3,5>, <-5,0>, <-3,-5>, <3, -5>, <5,0>, <3,5>  // last point = first point!!!
        //rotate<-90,-90,0> //turns prism in x direction! Don't change this line!  

      texture { NotAsShinyTex} // end of texture

       scale .08
       rotate<0,0,0> 
       translate<0.00, 0.00, 0.00>                                                    
     } // end of prism --------------------------------------------------------       
     
#declare CrankNut2=union{object{HalfANut} 
                        object{HalfANut rotate y*30}}     
                        
#declare NutSide=0;   
#declare HalfNutSize=.6;
#declare CrankNut3=difference{union{cylinder{0, .075*y,.75}
                                    sphere{<0,.13,0>,.42 scale <.96,.29,.96>}  }  //close uhion! the "puff" top !  
                              box{<-1,0,-1><1,-1,1>} //cut off below "lip" sphere first...      
                              #while (NutSide<12)    
                                box{<-.2,-.01,-.2> <.2,.101,.2> translate x*HalfNutSize rotate y*30*NutSide}   //biting off a 12th of the disk/cylinder
                                box{<-.1,.07,-.1><.1,.08,.1> rotate <0,30*NutSide-15,45>}
                                #declare NutSide=NutSide+1;
                              #end  //while loop  
                              cylinder{ -5*y, 5*y, .33}  //the nuthole  
                              
                               
                              }  //close diff               
                               
                  
                  

#declare Cranx=difference{union{//disc{<23,-2,11.5>,y,3.3,2.6 }                // top cranx gear 
                                object{RMCRing rotate z*90 translate<23,-2,11.5>}  
                                //object{CrankNut translate <23,1.75,11.5>}    
                                //object{CrankNut3 translate <23,1.75,11.5>}
                                cone{<23,1.75,11.5>,.33,<23,1.6,11.5>,.37}    //threaded blurmp...
                                

                                cylinder{<23,1.475,11.5>,<23,1.375,11.5>,.86}            //dust cover
                                cylinder{<23,1.55,11.5>,<23,1.475,11.5>,.82}         //and a washer, kinda big?
                                cylinder{<23,1.55,11.5>,<23,1.60,11.5>,.56}           //and the  washer under the nut... 
                                object{CrankNut3 translate <23,1.60,11.5> scale 1 texture{pigment{color Red}}}
                                 
                                cylinder{<23,-2,11.5>,<18,-3,16.5>,.37 } 
                                sphere { <18,-3,16.5>, 0.33 }  // end of sphere   
                                sphere { <23,-2,11.5>, 0.33 }   
                                sphere { <23,2,11.5>, 0.33 }
                                cylinder {<23,2,11.5>,<28,3,6>,.33}            // and cranx   
                                sphere { <28,3,6>, 0.33 }                              // now with ballsy ends!!     
                                cylinder {<23,2,11.5>,<23,-2,11.5>,.33}  //bottom bracket (Ashtabula style!)   
                                 } //end big Ashtabula chrome-hunk... 
                                cylinder {<28,3.4,6>,<28,1.9,6>,.17}          //pedal hole R
                                cylinder {<18,-3.4,16.5>,<18,-1.9,16.5>,.17}    //pedal hole L    
                                  texture { MyChrome }}