#include "colors.inc"
#include "shapes.inc"
#include "textures.inc"

camera {location<9,5,-5>  look_at<6,0,0> }                

light_source {<10, 50, -30> color 2*White}


#declare flight =  object{
                          prism{linear_spline -0.02,0.02,6,
                                <-1,0>,<2,0>,<1,1.2>,<-0.7,1.2>,<-0.9,1>,<-1,0>      
                          }
                          rotate -90*x
                                 
                          pigment{color White}

                   }                                             
                                  
//---------------------------------------------------------flight                 
                
object{flight}
object{flight
       rotate 180*x
}
object{flight
       rotate 90*x
}
object{flight
       rotate -90*x
}

//---------------------------------------------------------shaft
       
union{       
      object{Sphere
             scale <2.5,0.2,0.2>
             texture{Soft_Silver}
             translate 2.5*x
             pigment{color Black}
      }          
      object{cone{<5,0,0>,0.25,<2.8,0,0>,0}
             texture{Soft_Silver}
             pigment{color Black}
      } 
}

//---------------------------------------------------------barrel
          
difference{
                                                                      
           object{cylinder{<5,0,0>,<9,0,0>,0.25
                           texture{Soft_Silver}
                  }
           }

           
           #declare i=0;
           #while (i<18)
                  object{torus{0.25,0.05}
                               rotate 90*z
                               translate 5.3*x
                               translate <0.2*i,0,0>
                               texture {Soft_Silver}           
                  }
           #declare i=i+1;
           #end       
}

//--------------------------------------------------------tip

object{cone{<9,0,0>,0.25,<10,0,0>,0.06}
             texture{Soft_Silver}
             pigment{color Black}
}

object{cylinder{<9,0,0>,<10.7,0,0>,0.06}
}



object{Sphere
       scale 0.06
       translate 10.7*x
}      

//--------------------------------------------------------other

object{
        Plane_XZ
        pigment {color White}
        finish{
               diffuse 0.4
               crand 0.01 
        }
        translate -1*y
}