//A shuttle to the space station. I don't really like it, but I did not want to
//spend the time to make a better one, because it's so small in the picture

//parts of the shuttle are:
//upper body front, upper body end
//lower body front, lower body end
//left wing, left back wing 
//right wing, right back wing


#declare u_body_front=object{
    intersection{sphere{ <0,0,0> 1}
		 plane{x,0}
		 plane{-y,0}
		 scale<1,6,.5>
	 texture {pigment { color red 1 green 1 blue 1 } finish { phong 10 } }
	 }
	   clipped_by{cylinder{<-0.4,0.,-2> ,<-0.4,0.,2> ,.1 inverse}}
	   clipped_by{cylinder{<-0.4,0.5,-2>,<-0.4,0.5,2>,.1 inverse}}
	   clipped_by{cylinder{<-0.4,1.0,-2>,<-0.4,1.0,2>,.1 inverse}}
	   clipped_by{cylinder{<-0.4,1.5,-2>,<-0.4,1.5,2>,.1 inverse}}
	   clipped_by{cylinder{<-0.4,2.0,-2>,<-0.4,2.0,2>,.1 inverse}}
	   clipped_by{box{<-.4,0,-.2>,<-.3,6,-.05> inverse}}
	   clipped_by{box{<-.4,0, .2>,<-.3,6, .05> inverse}}
	   }

#declare u_body_end= object{
  intersection{ cylinder{ <0,0,0>,<0,-5,0>, 1 open}
		 plane{x,0}
		 scale<1,1,.5>

	 texture {pigment { color red 1 green 1 blue 1 } finish { phong 10 } }
	 }
	   clipped_by{cylinder{<-0.4,0.,-2>,<-0.4,0.,2>,.1 inverse}}
	   clipped_by{cylinder{<-0.4,-0.5,-2>,<-0.4,-0.5,2>,.1 inverse}}
	   clipped_by{cylinder{<-0.4,-1.0,-2>,<-0.4,-1.0,2>,.1 inverse}}
	   clipped_by{cylinder{<-0.4,-1.5,-2>,<-0.4,-1.5,2>,.1 inverse}}
	   clipped_by{cylinder{<-0.4,-2.0,-2>,<-0.4,-2.0,2>,.1 inverse}}}

#declare u_body_engine= object{
  intersection{ sphere{ <0,-3,0> 1}
		 plane{x,0}
		 plane{-y,3}
		 scale<1,2,.7>

	 texture {pigment { color red 1 green 1 blue 1 } finish { phong 10 } }
	 }
	   clipped_by{cylinder{<-0.4,0.,-2>,<-0.4,0.,2>,.1 inverse}}
	   clipped_by{cylinder{<-0.4,-0.5,-2>,<-0.4,-0.5,2>,.1 inverse}}
	   clipped_by{cylinder{<-0.4,-1.0,-2>,<-0.4,-1.0,2>,.1 inverse}}
	   clipped_by{cylinder{<-0.4,-1.5,-2>,<-0.4,-1.5,2>,.1 inverse}}
	   clipped_by{cylinder{<-0.4,-2.0,-2>,<-0.4,-2.0,2>,.1 inverse}}}


#declare l_body_front=
  intersection{ sphere{ <0,0,0> 1}
		 plane{-x,0}
		 plane{-y,0}
		 scale<.3,6,.5>

	 texture {pigment { color red 1 green 1 blue 1 } finish { phong 10 } }
	 }

#declare l_body_end=
  intersection{ cylinder{ <0,0,0>,<0,-6,0>, 1 open}
		plane{-x,0}
		scale<.3,1,.5>

	 texture {pigment { color red 1 green 1 blue 1 } finish { phong 10 } }
	 }


#declare l_wing=
   intersection{ sphere{ <0,0,0> 1 scale <.1,1.,6> translate -1*y rotate 15.*x}
		 plane{-z,0}
		 plane{z,4}
		 plane{-y,7}
	 texture {pigment { color red 1 green 1 blue 1 } finish { phong 10 } }
	 }

#declare r_wing=
   intersection{ sphere{ <0,0,0> 1 scale <.1,1.,6> translate -1*y rotate -15.*x}
		 plane{z,0}
		 plane{-z,4}
		 plane{-y,7}
	 texture {pigment { color red 1 green 1 blue 1 } finish { phong 10 } }
	 }

#declare l_backwing=
   intersection{ sphere{ <0,0,0> 1 scale <.05,.5,3> rotate -65.*y translate -5.3*y}
		 plane{-z,0}
		 plane{z,1.5}
	 texture {pigment { color red 1 green 1 blue 1 } finish { phong 10 } }
	 }

#declare r_backwing=
   intersection{ sphere{ <0,0,0> 1 scale <.05,.5,3> rotate 65.*y translate -5.3*y}
		 plane{z,0}
		 plane{-z,1.5}
	 texture {pigment { color red 1 green 1 blue 1 } finish { phong 10 } }
	 }



#declare shuttle= union{
	 object{u_body_front}
	 object{l_body_front}
	 object{u_body_end}
	 object{l_body_end}
	 object{u_body_engine}
	 object{l_wing}
	 object{r_wing}
	 object{l_backwing}
	 object{r_backwing}

	 texture {pigment { color red 1 green 1 blue 1 } finish { phong 10 } }
	 
	 }