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

#declare Saeule = union {
	cylinder {
		<0, 0, 0>, <0, 0.3, 0>, 1.2
		texture {
			PinkAlabaster
		}
	}

	cone {
		<0, 0.3, 0>, 0.8, <0, 3.5, 0>, 0.6
		texture {
			Blood_Marble
		}
	}
	scale <0.5, 1, 0.5>
}
		
camera {
	location	<0, 2, -5>
	look_at		<0, 2,  2>
}

plane {
	<0, 1, 0>,	0
	pigment {
		checker
			color Black
			color White
	}
	scale 2
}

object {
	Saeule
	translate	<-1, 0, 1>
}

object {
	Saeule
	translate	<1, 0, 1>
}

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

object {
	Saeule
	translate	<3, 0, 3>
}

object {
	Saeule
	translate	<0, 0, 51>
}

sphere {
	<3, 0.5, 1>,	0.5
	texture {
		Glass
		ior		3.0
		refraction	1.0
	}
}

light_source {
	<2, 4, -3>	color White
}

plane {
	<0, 1, 0>, 	100
	texture {
		Blood_Sky
		ambient 0.5
		scale 500
	}
}

light_source {
	<-2, 4, 3>	color Yellow
}