heroeskruto.blogg.se

Golden software surfer 8 full version
Golden software surfer 8 full version











golden software surfer 8 full version

'Use GridData2 to grid two columns from a data file Set wireframe1 = mapframe1.Overlays("3D d")

golden software surfer 8 full version

Set mapframe1 = shapes1.AddWireframe(path1+"d") Shapes1.AddText(1,1,"GridFunction").Font.Size = 40 'Use GridFunction to create a new grid from a function. Shapes1.AddText(1,1,"GridFilter Emboss Southwest").Font.Size=40

golden software surfer 8 full version

'GridFilter in Surfer 8 and above (GridMatrixSmooth in Surfer 7). Set mapframe1 = shapes1.AddContourMap(path1+"d") Shapes1.AddText(1,1,"GridExtract").Font.Size = 40 SurferApp.GridExtract (InGrid := path1+"d", _ 'GridExtract extracts a subset of a grid. Set classedpost1 = mapframe1.Overlays("Classed Post-demogrid2.dat") Set mapframe1 = shapes1.AddClassedPostMap(path1+"demogrid2.dat") Shapes1.AddText(1,1,"GridConvert").Font.Size = 40 SurferApp.GridConvert (InGrid := path1+"\d", _ 'Use GridConvert to convert a grid to an XYZ data file. Set colorReliefLayer1 = mapframe1.Overlays("Color d") Set mapframe1 = shapes1.AddColorReliefMap(path1 +"d") Shapes1.AddText(1,1,"GridCalculus Slope").Font.Size = 40 SurferApp.GridCalculus(InGrid := path1+"d", _ 'Calculate a new grid with slopes in degrees using Shapes1.AddText(1,1,"GridBlank").Font.Size = 40 SurferApp.GridBlank (InGrid := path1+"d", _ ' Use Grid Blank to blank a grid file using a BLN file. SurferApp.Windows(1).Activate 'Activates the first open window SurferApp.CrossValidate2(DataFile:= path1+"sample1.dat", _ 'CrossValidate2 performs cross validation. If SurferApp.Documents(1).Type = srfDocPlot Then 'Visible sets the visiblity of the Surfer applicaitonĭebug.Print SurferApp.Documents(1).Type = srfDocPlot 'Version returns the full version number of Surferĭebug.Print "-"ĭebug.Print "Surfer " SurferApp.Version " Application Object Properties" On Error GoTo 0 'Turn on error reporting. Set SurferApp = CreateObject("Surfer.Application") Set SurferApp = GetObject(,"Surfer.Application") On Error Resume Next 'Turn off error reporting. 'Get existing Surfer instance, or create a new one If none exists. 'See ApplicationObjectProperties.bas for the properties of the Surfer Application Object.

golden software surfer 8 full version

'ApplicationObjectMethods.bas demonstrates the methods of the Surfer Application Object. If you wish to run the script, open Scripter and then open ApplicationObjectMethods.bas from the Surfer Samples folder. This script demonstrates all the methods in the Application object.













Golden software surfer 8 full version