View3d.sml

################################################################
#
#	VIEW3D.SML
#
#	Demonstration SML script 
#
#	Requires a tntdisp dated 3-Feb-98 or later
#
################################################################

class XmForm form;			# The main form dialog
raster Composite, Elevation;
class GRE_VIEW3D view;
class GRE_LAYER_RASTER layer, surflayer;		# Our base layer
class PushButtonItem button1, button2;
class XmForm button_row;
class GRE_GROUP group;
#
#	Callback for when "Exit" is pressed
#
proc cbQuit(class widget widget) {
	DialogClose(form);
	}

#
#	Callback for when "Controls" is pressed
#
proc cbControls(class widget widget) {
	ViewOpen3DControls(view);
	}

#####################################################
#
#	MAIN PROGRAM
#
GetInputRasters(Composite, Elevation);

form = CreateModalFormDialog("test");
button1 = CreatePushButtonItem("Controls", cbControls);
button2 = CreatePushButtonItem("Exit", cbQuit);
button_row = CreateButtonRow(form, button1, button2);
button_row.BottomWidget = form;

#	Create a group to display the raster in and quick-add it.

group = DispCreate2DGroup();	# It's the view that makes it 3D
surflayer = GroupQuickAddRasterVar(group, Elevation, 1);
layer = GroupQuickAddRasterVar(group, Composite);

#	Create a 3D view for this group in our form.  
numeric height, width;
height = NumLins(Composite);
width = NumCols(Composite);
while (height > 700 or width > 1000) {
	height /= 2;
	width /= 2;
	}

view = GroupCreate3DView(group, form, "view", height, width);
form.BottomWidget = button_row;
#view.ScalePosVisible = 0;
View3DReadPosIni(view, "3dpos");

#	Open the dialog.

DialogOpen(form);
ViewRedraw(view);

#	Wait for the dialog to close. 

DialogWaitForClose(form);

#
#	Destroy our form to free up its memory.  
#
View3DWritePosIni(view, "3dpos");
ViewDestroy(view);
GroupDestroy(group);
DestroyWidget(form);