/*
 * view.ray
 *
 * How to view stereograms
 *
 * Stuart Warmink, January 1993
 * sw@groucho.att.com
 * Feel free to use and/or distribute for non-commercial purposes as long
 * as this header remains with the file.
 *
 */

#ifndef IMAGE
#define IMAGE /u9/sw/programs/rayshade4/test/scope.mtv
#endif

sample	3
screen 640 480

/****************************************************************************/

surface	paper	ambient 0.7 0.7 0.7
		diffuse	0.3 0.3 0.3

surface oak	ambient 0.4 0.32 0.22
		diffuse 0.4 0.32 0.22

surface brass	ambient		0.2 0.15 0.025
		diffuse		0.4 0.30 0.05
		reflect		0.5
		specular	0.4 0.30 0.05
		specpow		80

surface	green	ambient	0.0 0.3 0.0
		diffuse	0.0 0.3 0.0
		reflect		0.2
		specular	1 1 1
		specpow		40

/****************************************************************************/

name	picture
	box	paper	0 0 0 	6.2 -6.2 0.01
		texture	image	IMAGE
			map planar
			0 0 0		/* origin */
			0  1 0		/* vaxis */
			-1 0 0		/* uaxis */
			scale	6.2 6.2 1

name	sheet
	box	14 11 0		-14 -11 0.005

name	viewer
list
	cylinder	3.3	0 0 0	0 0 28
		translate	3.3 0 0
	cylinder	3.3	0 0 0	0 0 28
		translate	-3.3 0 0
end

name	tabletop
	box	50 40 -4	-50 -40 0

name	basic_cyl
list	
	disc	5	 10 0 0	 1 0 0
	disc	5	-10 0 0	-1 0 0
	cylinder 5	 10 0 0	-10 0 0
end

name	shield
difference
	difference
		object basic_cyl
		object basic_cyl
			scale 0.95 0.95 0.95
	end
	box	11 6 0	-11 -6 -6
end
scale	1 1 1.6
translate	0 0 -4

name	support
union
	object basic_cyl
		scale	0.2 0.3 0.3
		translate	0 0 16
	object basic_cyl
		scale	0.8 0.2 0.2
		rotate	0 1 0	90
		translate	0 0 8
end

name	base
union
	object	basic_cyl
		scale	0.05 1 1
		rotate	0 1 0	90
		translate	0 0 0.5
	union
		object	basic_cyl
			scale	0.05 0.9 0.9
			rotate	0 1 0	90
			translate	0 0 1.5
		torus	4	1	0 0 1	0 0 1
	end
end
	scale	3 1.2 1
	

name	lamp
grid 8 8 8 	
	object	brass base
	object	brass	support
		translate	11 0 2
	object	brass	support
		translate	-11 0 2
	object	green	shield
		rotate	1 0 0	20
		translate	0 0 18
end
	

/****************************************************************************/

object	oak	tabletop
	texture	wood
		scale	15 4 4 

object	paper	sheet

object	picture
	translate	0.2 3.1 0

object	picture
	translate	-6.4 3.1 0

object	paper	viewer
	translate	0 0 5

object	lamp
	translate	0 -20 0

background	0.7 0.7 0.7

/****************************************************************************/

light	0.8 	point	200 100 250

light	1.7	area	10 -21 18	-10 -21 18	4
					 10 -19 18	2

/****************************************************************************/

eyep	150 90 60
lookp	0 -10 10		/* distance = 190 */
fov	15