'============================================================================
'  EDITOVERLAY.BAS
'
'  This script demonstrates the following:
'
'  Naming layers for the purpose of overlaying and editing overlays
'	
'CSW
'============================================================================

' Create the surfer object.
Set Surf = CreateObject("Surfer.App")

'Get Surfer's startup directory
Path$ = Surf.StartupPath()

'Open a new drawing document
   Surf.FileNew()

' Create a contour map from the grid
   Surf.MapContour(Path$+"\demogrid",flags=1,ID="one") 
	Surf.Deselect()	
	Surf.Select("one:contours")
	Surf.EditSetObjectID("two")
	Surf.MapPost(Path$+"\demogrid",ID="three") 
	Surf.DeSelect()	
	Surf.Select("three:post")
	Surf.EditSetObjectID("four")
	Surf.DeSelect()	
	Surf.Select()
	Surf.MapOverlayMaps()
	Surf.MapEditOverlays("four",tofront=1)
	'Surf.MapPost(Path$+"\demogrid",ID="Layer3")
	'Surf.Deselect()	
	'Surf.Select("Layer3:post")