
#!echo

#------------------------------------------------------
#
#  Test code
#         ------- topographical data for sedona arizona
#

graph list {
	sedona = sur{["sedona.data"][samp=159:180]};
	sed_cont=cont{["sedona.data"][samp=159:180][number_of_contours=15]}
	river1=cur{["sed_river1"]};
	river2=cur{["sed_river2"]}
	}


sed_mat = material{emi: 0.187 0.0 0.0, ambi: 0.2 0.2 0.2, diffu: 0.0 0.4 0.2
		   spec 0.5 0.5 0.5, shininess 4.0 alpha 3.0};


sedona = object{
		pre_rotate 0 0 900.0
		mat sed_mat
		sedona
		river1 river2
		};


light0=light{color: 0.9904 0.9904 0.9904, position: 1088.4,-12596,2314,0}
light1=light{color: 1.0 0.0386 0.0386, position: 12530 0.0 2864 0.0}
light2=light{color: 0.014 0.6504 0.0156,position:0.0,-12441.8,22045.8,0.0}


VIEW="view={lookat 19710.0 19760.0 12346.55, -25039.7,-24989.7,-14503,1114,
     perspective 240 1.3 2535.8 80000.0 }"

LIT="apply light light0 light1 light2; base on"

PLOT = "$VIEW; $LIT; plot sedona "

$PLOT


#----------------------------------------------------

	
