//rounded convex polyhedron

light_source { <-2,3,-1>*100, 1 }

sky_sphere {
	pigment {
		/*gradient y
		scale 2
		cubic_wave*/
		granite
		colour_map {
			[.0 rgb <.7,.8,.9>]
			[1 rgb <.1,.2,.3>]
		}
	}
}

box { -1, <1,0,1> scale 3 translate -1.101*y pigment { rgb 1 } }

camera {
	location <4,2,-6> look_at 0
}

global_settings {
	assumed_gamma 1
	max_trace_level 8
}

#include "roundedboxoid.inc"

#local boxPoints = array[8] {
	< -1.0, -1.0, -1.5>,
	<  1.0, -1.0, -1.5>,
	< -1.0,  1.0, -0.5>,
	<  1.0,  1.0, -0.5>,
	< -1.0, -1.0,  1.5>,
	<  1.0, -1.0,  1.5>,
	< -1.0,  1.0,  0.5>,
	<  1.0,  1.0,  0.5>
}

#local rounding = .1;

object {	
	RoundedBoxoid( rounding, boxPoints )
	
	pigment {
		rgb 0 transmit 1
	}
	finish {
		diffuse .8
		ambient .2
		reflection { 0, 1 fresnel }
	}
	interior {
		ior 1.4
		fade_power 1
		fade_colour rgb <0,.3,.2>
		fade_distance 10
	}
}