'============================================================================
'  MAPSCALE.BAS
'
'  This script demonstrates the following:
'
'  For each grid method:
'     Overlay maps
'     Scale maps
'     
'
'============================================================================

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

   'Open a new drawing document
   Surf.FileNew()

Surf.MapSurface(InGrid="c:\golden\surfer6\demogrid.grd")
Surf.MapContour("c:\golden\surfer6\demogrid.grd")
Surf.Deselect()
Surf.Select()
Surf.MapOverlayMaps()
Surf.deselect()
Surf.select()
Surf.MapScale(XMapPerPU=.5,YMapPerPU=.5)