GLFillFormat Object

The GLFillFormat object contains the surface map base fill properties.

The following table provides the properties of the GLFillFormat object:

Property	Description
Application	Returns the application object. It is a read-only property.
Color	Returns/sets the foreground color as an RGB value. The Color property is superseded by the ColorRGBA property. Color has been preserved for backwards compatibility.
ColorRGBA	Returns the RGBA color object. It is a read-only property.
Parent	Returns the parent object. It is a read-only property.
Style	Returns/sets the fill style.

Example 1

This example shows how to set the surface base to be lighted.

GLFillSurface.Style = srfFillLighted

Sub Main

'Declares SurferApp as an object

Dim SurferApp As Object

'Creates an instance of the Surfer Application object and assigns

'it to the variable named "SurferApp"

Set SurferApp = CreateObject("Surfer.Application")

'Makes Surfer visible

SurferApp.Visible = True

'Declares Plot as an object

Dim Plot As Object

'Creates a plot document in Surfer and assigns it to the variable

'named "Plot"

Set Plot = SurferApp.Documents.Add(srfDocPlot)

'Declares Shapes as an object

Dim Shapes As Object

'Assigns the Shapes collection to the variable named "Shapes"

Set Shapes = Plot.Shapes

'Declares MapFrame as an object

Dim MapFrame As Object

'Creates a contour map and assigns the map coordinate system to

'the variable named "MapFrame"

Set MapFrame = Shapes.AddSurface(GridFileName:=SurferApp.Path+"\Samples\demogrid.grd")

'Declares SurfaceMap as an object

Dim SurfaceMap As Object

'Assigns the surface properties to the variable named "SurfaceMap

Set SurfaceMap = MapFrame.Overlays(1)

'Displays the base

SurfaceMap.ShowBase = True

'Declares GLFillSurface as an object

Dim GLFillSurface As Object

'Sets GLFillSurface to the surface object's BaseFill

Set GLFillSurface = SurfaceMap.BaseFill

'Sets the base fill color to electric blue

GLFillSurface.ColorRGBA.Color = srfColorElectricBlue

End Sub