
#------------------------------------------------------
#
#  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]}
	}
sed_mat = material{
		emission 0.0 0.0 0.0
		diffuse  0.6 0.4 0.2
		specular 0.5 0.5 0.5
		shinness 4
		alpha 0.3
	       }
sedona = object{
		mat sed_mat
		sedona
		push translate 0.0,0.0,-4000.0
		sed_cont
		popmatrix
		};

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