'============================================================================
'  SAMPLE1.BAS
'
'  This script demonstrates the following:
'
'  For each grid method:
'     Grid a sample data file
'     Create a contour map
'     Print the page.
'		Fills background color
'============================================================================

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

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


   'Open a new drawing document
   Surf.FileNew()

   ' Grid the data file using the current method
   Surf.GridData("c:\golden\surfer6\DEMOGRID.DAT", GridMethod=1,OutGrid="c:\golden\surfer6\SAMPLE") 
   
	' Create a contour map from the grid
   Surf.MapContour(Path$+"\SAMPLE") 
	
	Surf.Select()
	Surf.MapBackground(FillForeColor="Ice Blue", FillBackColor="Red", FillPattern="Diagonal Cross")