
#declare Pylon =
difference {

sphere { <0, 0, 0>, 1

  pigment {Dark_Wood}
  scale<1, 0.033, 0.085>

}

plane{ x, -0.55 rotate<-20, 0, 0>}
plane{ x, 0.55 inverse rotate<-20, 0, 0>}

}

#declare Stab =
 box{
   <-0.05, -0.4, -0.015>, <0.05, -0.05, 0.015>
   texture { Dark_Wood }
   rotate< 0, 0, -15>
}



#declare Hull =
merge {
difference {
	sphere {
	<0,0,0>, 1

	scale <1.0, 0.38, 0.3>
	}


	plane { -y, 0.01}
	plane { x, -0.5 rotate<20, 0, 0>}
  }

  object {Pylon   translate<0, -0.3, 0.5>}

  object {Pylon   translate<0, -0.3, -0.5>}


  object { Stab
   rotate< 45, 0, 0>
   translate<-0.2, 0, 0>
   translate<0, 0, -0.2>
  }

  object { Stab
   rotate< 45, 0, 0>
   translate<0.4, 0, 0>
   translate<0, 0, -0.2>
  }


  object { Stab
   rotate< -45, 0, 0>
   translate<-0.2, 0, 0>
   translate<0, 0, 0.2>
  }

   object { Stab
   rotate< -45, 0, 0>
   translate<0.4, 0, 0>
   translate<0, 0, 0.2>
  }




  cylinder{ <0.9, -0.05, 0>, <1.3, 0.025, 0> 0.013}

  cylinder {
	<-0.15, -0.1, 0>, <-0.15, 0.85, 0> 0.0175

  }

  cylinder {
	<0.2, -0.1, 0>, <0.2, 1.2, 0> 0.0175

  }

  cylinder {
	<0.55, -0.1, 0>, <0.55, 0.8, 0> 0.0175

  }

  texture {DMFDarkOak scale <0.4, 0.3, 0.2> rotate<90, 0, 90> }
}

#declare Sail=
difference {
	sphere { <0, 0, 0>, 1}

	sphere { <-0.1, 0, 0> 1}
	plane { y, -0.5}
	plane { y, 0.5 inverse}
        plane { x, 0.41}
scale <0.35, 0.3, 0.35>
pigment {Quartz}
finish { ambient .7}
	}

#declare Toy_Boat=
union{

  object {	Hull
	}

// Back Sail.
  object {
	Sail
  translate <-0.3, 0.55, 0>  }

  object {
	Sail
  translate <-0.3, 0.175, 0>  }

// Main Sail.
  object {
	Sail
  translate <0, 0.925, 0>  }

  object {
	Sail
  translate <0, 0.55, 0>  }

  object {
	Sail
  translate <0., 0.175, 0>  }

// Fore Sail.

  object {
	Sail
  translate <0.33, 0.55, 0>  }

  object {
	Sail
  translate <0.33, 0.175, 0>  }
}
