'============================================================================
'  SIZEMOVE.BAS
'
'  This script demonstrates the following:
'  
'		Name maps properly
'     Create a color filled contour and a contour with color scale
'     Move contour to front
'     Move entire map to lower left page
'		Create a second filled contour and contour with color scale
'		Name second map properly
'		Move entire map to upper part of page
'
'		-CSW
'
'============================================================================

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

'Get Surfer's startup directory
Path$ = "c:\golden\surfer6\"

'Open a new drawing document
Surf.FileNew()

Surf.MapContour(Path$+"\demogrid",flags=65,ID="one",\
	LevelFile="c:\golden\surfer6\noline.lvl",ScaleID="scale") 
Surf.Select("one:contours")
Surf.EditSetObjectID("two")
Surf.DeSelect()

Surf.MapContour(Path$+"\demogrid",ID="three", \
	LevelFile="c:\golden\surfer6\blueline.lvl")
Surf.Select("three:contours")
Surf.EditSetObjectID("four")
Surf.DeSelect()

Surf.Select("one:two")
Surf.Select("three:four")
Surf.MapOverlayMaps()
Surf.MapEditOverlays("four",1)

Surf.Select("one")
Surf.Select("scale")
Surf.TransformSel(1,1,3.5,3)
Surf.DeSelect()

Surf.MapContour(Path$+"\demogrid",flags=65,ID="five",\
	LevelFile="c:\golden\surfer6\noline.lvl",ScaleID="scale2")
Surf.Select("five:contours")
Surf.EditSetObjectID("six")
Surf.DeSelect()

Surf.MapContour(Path$+"\demogrid",ID="seven", \
	LevelFile="c:\golden\surfer6\blueline.lvl")
Surf.Select("seven:contours")
Surf.EditSetObjectID("eight")
Surf.DeSelect()

Surf.Select("five:six")
Surf.Select("seven:eight")
Surf.MapOverlayMaps()
Surf.MapEditOverlays("eight",1)

Surf.DeSelect()
Surf.Select("five")
Surf.Select("scale2")
Surf.TransformSel(1,4.5,3.5,3)