# Specular reflection of sphere

DEFINE crystal GLASS
{
	PHONG 10
	INDEX .92	# Choosen to match Plate III.10
	COLOUR
	{
		RGB 1 1 1
		K 0.00 0.05 1
		TRANS 0.89 0.89 0.89
	}
}

DEFINE silver PLASTIC
{
	PHONG 5
	COLOUR
	{
		RGB 1 1 1
		K 0 0.5 1
		REFLECT 0.7 0.7 0.7
	}
}

DEFINE blue COLOUR RGB 1 0.5 0


SCHEME (define sphere_orig '(1.2 .8 3))
DEFINE sphere SPHERE
{
	ORIENT ORIG sphere_orig

	RADIUS 1.9

	crystal
}

SCHEME (define sphere_orig_2 '(-0.8 0 4))
DEFINE sphere_2 SPHERE
{
	ORIENT ORIG sphere_orig_2

	RADIUS 1.5

	silver
}

DEFINE floor PLANE
{
	ORIENT
	{
		ORIG 0 -1.5 3
		VCT_Z 0 1 0
	}
	CHECKERBOARD
	{
		LAMBERTIAN { } 
		COLOUR { RGB 0 1 1 K 0.25 0.8 0.8 }
		COLOUR { RGB 0 0 1 K 0.25 0.8 0.8 }
		DENSITY 2 2 2
	}
	POLYGON 4 5 5 1 5 -5 1 
		  -5 -5 1 -5 5 1
}	

DEFINE camera CAMERA
{
	SCHEME (define camera_orig '(0 2 -4))
	ORIG camera_orig
	LOOKDIR (-v '(0 0 4) camera_orig)
	VCTUP 0 1 0
	ORTHOGONALIZE TRUE
	FOCAL 1.0
	PRINTSTATUS TRUE
}

SCENE
{
	sphere
	sphere_2
	floor

	camera

	LIGHT
	{
		COLOUR 0.5 0.5 0.5 
		ORIG -2 2 0
	}
	LIGHT
	{
		COLOUR 0.5 0.5 0.5
		ORIG 0.5 4 3
	}

	blue

	AMBIENT 1.0
}