#include "colors.inc"
#include "glass.inc"
#include "metals.inc"

camera {
	location <0, 5, -15>
	look_at <0, 5, 0>
}

box {
	<-15, -15, 15>, <15, 15, 16>
	pigment { White	}
	
}

#declare lamp = union {
	difference {
		merge {	
			blob {
				threshold .31
				sphere {
					<0, 8, 0>, 5, 1
				}
				cylinder {
					<0, 3.5, 0>, <0, 6, 0>, 3, 1
				}
				texture { T_Glass1 }
			}
			lathe {
				linear_spline
				3, <0, 0>, <1, 0>, <2, 1>
				texture { T_Silver_5A }
			}
			cylinder {
				<0, 1, 0>, <0, 3.5, 0>, 2
				texture { T_Silver_5A }
			}
		}
		torus {
			2, .15
			texture { T_Silver_5A }
			translate <0, 1.5, 0>
		}
		torus {
			2, .15
			texture { T_Silver_5A }
			translate <0, 2, 0>
		}
		torus {
			2, .15
			texture { T_Silver_5A }
			translate <0, 2.5, 0>
		}
		torus {
			2, .15
			texture { T_Silver_5A }
			translate <0, 3.0, 0>
		}
	}
	cylinder {
		<0, 0, 0>, <0, 5, 0>, 0.75
		texture { T_Glass4 }
	}
	cylinder {
		<-.5, 5, 0>, <-1.5, 8, 0>, 0.05
		texture { T_Silver_1A }
	}
	cylinder {
		<.5, 5, 0>, <1.5, 8, 0>, 0.05
		texture { T_Silver_1A }
	}
	cylinder {
		<-1.5, 8, 0>, <1.5, 8, 0>, 0.025
		texture { T_Silver_1A }
	}
}

#declare lamp_light_red = light_source {
	<0, 8.1, 0>
	Red
	fade_distance 20
	fade_power 200
}

#declare lamp_light_green = light_source {
	<0, 8.1, 0>
	Green
	fade_distance 20
	fade_power 200
}

#declare lamp_light_blue = light_source {
	<0, 8.1, 0>
	Blue	
	fade_distance 20
	fade_power 200
}

union {
	object { lamp }
	object { lamp_light_green }
	translate <0, 0, 0>
	scale .5
}

union {
	object { lamp }
	object { lamp_light_red }
	translate <-10, 0, 0>
	scale .5
}

union {
	object { lamp }
	object { lamp_light_blue }
	translate <10, 0, 0>
	scale .5
}