#pragma rtGlobals=1		// Use modern global access method.
#pragma version = 1.20			// January 2005
#pragma IgorVersion = 5.03

// Include statements for the various GIS procedures. GISLoadWave XOP is required.
#include <DEM Loader UI>
									//#include <DEM Utility Funcs>
#include <Vector Loader UI>
									//#include <Vector Utility Funcs>
#include <DLG Utilities UI>
									//#include <DLG Utilities>
									//#include <DLG Filter Codes>
									//#include <GISLoadWaveProcs>


// The main GIS Utilities menu in Igor's menu bar.
Menu "GIS Utilities"
	Submenu "Load GIS Data"
		"Load DEM", /Q, LoadDEM()
		"Load Vector", /Q, LoadOutlineGIS()
	End
	
	Submenu "DEM Utilities"
		"Show DEM Info/F5", /Q, ShowDEMNote()
		"-"
		"Display Multiple DEMs", /Q, MultiDEMsDisplayPanel()
		"Combine DEMs", /Q, CombineDEMsPanel()
		"Set All DEM Colors", /Q, CTabForDEMsPanel()
		"-"
		"Fill Lake or Ocean.../F7", /Q, fillLake()
		"Replace DEM Elevations...", /Q, ReplaceDEMzPanel(1)
		"Extract Elevation Range...", /Q, ExtractZlevels(NaN,NaN)
		"-"
		"Resize", /Q, Resize2D()
		"Change Margins", /Q, SetMargins2D()
	End
	
	Submenu "DLG and Vector Utilities"
		"DLG Utilities.../F8", /Q, DLGutils()
		"Rotate to Greenwich Meridian...", /Q, GMRotate()
	End
	
	"GIS Utilities Help",/Q, DisplayHelpTopic	"Igor Pro GIS Utilities"
	"-"
	"Remove GIS Utilities",/Q, removeGISutils()
End


// Items for the Load Waves submenu.
Menu "Load Waves"
	"Load DEM", /Q, LoadDEM()
	"Load Vector", /Q, LoadOutlineGIS()
End


// Marquee menus.
Menu "GraphMarquee"
	"-"
	"Extract Selected Area...", /Q, CropGISselection()
	"Replace Elevations in Area", /Q, ReplaceElevationInSelection()
End



Function removeGISutils()
	if (WinType("ImportDEMPanel") == 7)
		DoWindow/K ImportDEMPanel
	endif

	if (WinType("FillZPanel") == 7)
		DoWindow/K FillZPanel
	endif

	if (WinType("SetAllColorTables") == 7)
		DoWindow/K SetAllColorTables
	endif

	if (WinType("DisplayDEMs") == 7)
		DoWindow/K DisplayDEMs
	endif

	if (WinType("Combine_DEMs") == 7)
		DoWindow/K Combine_DEMs
	endif

	if (WinType("ImportOutlineGISPanel") == 7)
		DoWindow/K ImportOutlineGISPanel
	endif

	if (WinType("RotateGMPanel") == 7)
		DoWindow/K RotateGMPanel
	endif

	if (WinType("DLGutilsPanel") == 7)
		DoWindow/K DLGutilsPanel
	endif

	if (WinType("CropPanel") == 7)
		DoWindow/K CropPanel
	endif
	
	if (DatafolderExists("root:Packages:GISutils"))
		KillDatafolder root:Packages:GISutils
	endif

	Execute/P "DELETEINCLUDE <GIS Utilities>"
	Execute/P "COMPILEPROCEDURES "
End										// removeGISutils() ------------------

//Menu "Load Waves"
//	Submenu "Packages"
//		"Install GIS Utilities",/Q,Execute/P/Q/Z "INSERTINCLUDE <GIS Utilities>";Execute/P/Q/Z "COMPILEPROCEDURES "
//	End
//End