#include "colors.inc"

#declare SqSize = 4;
#declare RodWidth = 0.5;
#declare TotalSize = 3*SqSize + 4*RodWidth;
#declare RodHeight = 0.8;
#declare extra = 0.1;
#declare SpRadius = 1.6;
#declare SpClearance = 0.01;
#declare eps = 0.000001;

#declare Green = rgb<244/255,116/255,33/255>;
#declare Aubergine = rgb<72/255,24/255,45/255>;

camera{
	location <0,20,-7>
	look_at 0
}

light_source{
	<7,25,-15>
	0.6*White
	spotlight
	point_at -z
	radius 18
	falloff 25
	photons{
		reflection on
		refraction on
	}
}

light_source{
	<-7,25,-15>
	0.6*White
	spotlight
	point_at -z
	radius 18
	falloff 25
	photons{
		reflection on
		refraction on
	}
}
light_source{
	10*y
	0.3*White
	photons{
		reflection off
		refraction off
	}
}

plane{
	y, 0
	texture{
		pigment{color White}
	}
}

#declare RemoveSq = box { <-SqSize/2, -extra, -SqSize/2> , <SqSize/2, RodHeight+extra, SqSize/2>}

difference{
	box{
		<-TotalSize/2, 0, -TotalSize/2>, <TotalSize/2, RodHeight, TotalSize/2>
	}
	object{RemoveSq translate <- SqSize - RodWidth, 0, - SqSize - RodWidth>}
	object{RemoveSq translate <- SqSize - RodWidth, 0, 0>}
	object{RemoveSq translate <- SqSize - RodWidth, 0, SqSize + RodWidth>}
	object{RemoveSq translate <0, 0, - SqSize - RodWidth>}
	object{RemoveSq translate <0, 0, 0>}
	object{RemoveSq translate <0, 0, SqSize + RodWidth>}
	object{RemoveSq translate <SqSize + RodWidth, 0, - SqSize - RodWidth>}
	object{RemoveSq translate <SqSize + RodWidth, 0, 0>}
	object{RemoveSq translate <SqSize + RodWidth, 0, SqSize + RodWidth>}
	texture{
		pigment{color (1.5*Aubergine + <0,0,0,0.4>)}
		finish{reflection 0.2 specular 0.2}
	}
	interior{ior 2}
	photons{
		target
		reflection on
		refraction on
	}
}

#declare Sph = sphere{
	0, SpRadius
	texture{
		pigment{color (Green + <0,0,0,0.9>)}
		finish{specular 0.2 diffuse 0}
	}
	interior{ior 1.2}
	photons{
		target
		reflection on
		refraction on
	}
	hollow on
}

union{
	object{Sph translate <- SqSize - RodWidth, 0, - SqSize - RodWidth>}
	//object{Sph translate <- SqSize - RodWidth, 0, 0>}
	//object{Sph translate <- SqSize - RodWidth, 0, SqSize + RodWidth>}
	object{Sph translate <0, 0, - SqSize - RodWidth>}
	//object{Sph translate <0, 0, 0>}
	object{Sph translate <0, 0, SqSize + RodWidth>}
	object{Sph translate <SqSize + RodWidth, 0, - SqSize - RodWidth>}
	object{Sph translate <SqSize + RodWidth, 0, 0>}
	//object{Sph translate <SqSize + RodWidth, 0, SqSize + RodWidth>}
	translate (SpRadius + SpClearance)*y
}

global_settings{
	radiosity{}
	ambient_light 0
	max_trace_level 20
	photons{count 100000}
}