// Persistence of Vision Ray Tracer Scene Description File
// File: .pov
// Vers: 3 
// Date: June 1, 1997 
// Auth: Beth Randall
// A Crenellated Tower.

#version 3.0
global_settings { assumed_gamma 2.2 }

#include "colors.inc"	// Standard Color definitions
#include "textures.inc"	// Standard Texture definitions

#declare Window = prism {
	linear_sweep 
  	linear_spline 
   	0, 6,       
	5, 
  	<-0.05, 0.10>, <-0.05, 0.5>, <0.05, 0.5>, 
	<0.05, 0.10>, <-0.05, 0.10>
	translate <0, 0.25, 0>
}

#declare Door = union {
	lathe {
		linear_spline
		4, 
		<0, 0>, <0.25, 0>, <0.25, 1>, <0, 1>
	}
	lathe {
		quadratic_spline
		3, 
		<0, 0.75>, <0.25, 1>, <0, 1.25>
	}
}

#declare Support = difference {
	box {
		<0, 0, -0.05>, <0.5, 0.5, 0.05>
		pigment {color Red}
	} 
	cylinder {
		<0, -1, 0>
		<0, 1, 0>,
		0.45
		rotate <270, 0, 0>
		pigment {color Pink}
	}
}

#declare SupportRing = union {
	object {Support translate <-1.5, 3.65, 0>}
	object {Support translate <-1.5, 3.65, 0> rotate <0, 22.5, 0>}
	object {Support translate <-1.5, 3.65, 0> rotate <0, 45, 0>}
	object {Support translate <-1.5, 3.65, 0> rotate <0, 67.5, 0>}
	object {Support translate <-1.5, 3.65, 0> rotate <0, 90, 0>}
	object {Support translate <-1.5, 3.65, 0> rotate <0, 112.5, 0>}
	object {Support translate <-1.5, 3.65, 0> rotate <0, 135, 0>}
	object {Support translate <-1.5, 3.65, 0> rotate <0, 157.5, 0>}
	object {Support translate <-1.5, 3.65, 0> rotate <0, 180, 0>}
	object {Support translate <-1.5, 3.65, 0> rotate <0, 202.5, 0>}
	object {Support translate <-1.5, 3.65, 0> rotate <0, 225, 0>}
	object {Support translate <-1.5, 3.65, 0> rotate <0, 247.5, 0>}
	object {Support translate <-1.5, 3.65, 0> rotate <0, 270, 0>}
	object {Support translate <-1.5, 3.65, 0> rotate <0, 292.5, 0>}
	object {Support translate <-1.5, 3.65, 0> rotate <0, 315, 0>}
	object {Support translate <-1.5, 3.65, 0> rotate <0, 337.5, 0>}
}	
	
#declare Crenoid = union {
	box {
		<-0.15, 0, -0.1>, <0.15, 0.5, 0.1>
		pigment {color Red}
	}
	cylinder {
		<0, 0, 0>
		<0, 0.5, 0>,
		0.03
		translate <-0.15, 0, -0.1>
		pigment {color Pink}
	}
	cylinder {
		<0, 0, 0>
		<0, 0.5, 0>,
		0.03
		translate <0.15, 0, -0.1>
		pigment {color Pink}
	}
	cylinder {
		<0, 0, 0>
		<0, 0.3, 0>,
		0.03
		rotate <0, 0, 270>
		translate <-0.15, 0.5, -0.1>
		pigment {color Pink}
	}
}

#declare TowerCrenoid = union {
	object {Crenoid translate <0, 4.75, -1.5>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 20, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 40, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 60, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 80, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 100, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 120, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 140, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 160, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 160, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 180, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 200, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 220, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 240, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 260, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 280, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 300, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 320, 0>}
	object {Crenoid translate <0, 4.75, -1.5> rotate <0, 340, 0>}
}

#declare DoorWindows = union {
	object {Door translate <0, 0.5, -1>}
	object {Window rotate <270, 10, 0>    translate <0, 3, 0>}
	object {Window rotate <270, 32.5, 0>  translate <0, 3, 0>} 
	object {Window rotate <270, 55, 0>    translate <0, 3, 0>}  
	object {Window rotate <270, 77.5, 0>  translate <0, 3, 0>} 
	object {Window rotate <270, 100, 0>   translate <0, 3, 0>} 
	object {Window rotate <270, 122.5, 0> translate <0, 3, 0>}
	object {Window rotate <270, 145, 0>   translate <0, 3, 0>} 
	object {Window rotate <270, 167.5, 0> translate <0, 3, 0>}
	object {Window rotate <270, 190, 0>   translate <0, 3, 0>}
	object {Window rotate <270, 235, 0>   translate <0, 3, 0>} 
	object {Window rotate <270, 257.5, 0> translate <0, 3, 0>}
	object {Window rotate <270, 280, 0>   translate <0, 3, 0>}
	object {Window rotate <270, 302.5, 0> translate <0, 3, 0>} 
	object {Window rotate <270, 325, 0>   translate <0, 3, 0>} 
	object {Window rotate <270, 347.5, 0> translate <0, 3, 0>} 
}

#declare Tower = difference { 
	union {
		lathe {
  			linear_spline 
  			10, 
  			<0, 0>, <1.75, 0>, <1.75, 0.5>, <1.5,0.5>, <1.5, 1>, 
			<1, 1>, <1, 4.25>, 
			<1.5, 4.25>, <1.5, 4.75>, <0, 4.75>	
		}
		torus {
			1.5, 0.06
			pigment {Pink}
			translate <0, 4.25, 0>
		}	
		torus {
			1.5, 0.06
			pigment {Pink}
			translate <0, 4.75, 0>
		}
		object {TowerCrenoid}
		object {SupportRing}
		pigment{color Red}
  		finish { 
    		ambient .3      
    		phong .75 
  		}
	}
	object {DoorWindows}
	pigment {color SemiSweetChoc}
}

object {Tower translate <0, 0, -3>}

plane {z, 15
	pigment {rgb <0.196078, 0.6, 0.8>}
}

camera {  
  angle 10
  location <1, 9, -50>
  look_at <0, 2, 0>        
}


plane { <0, 1, 0>, 0
	pigment {
		checker rgb <0, 0.8, 0.8>, rgb <0.752941, 0.752941, 0.752941>
	}
}

light_source { <2, 4, -3> rgb 1 }