rtovec.sml

# rtovec.sml
# Converts elevation raster to vector object as contour lines.

# Globals
class RASTER Rin;
class VECTOR Vout;

GetInputRaster(Rin);
GetOutputVector(Vout);

numeric zStart = GlobalMin(Rin); # set range to raster limits
numeric zEnd = GlobalMax(Rin);
numeric range = zEnd - zStart;
numeric zInterval = round(range / 40); # set approx 40 contours
numeric zScale = 1;
numeric zOffset = 0;
numeric sampleRate = 1;
numeric resolution = 2;
numeric filterSize = 1;
string flags$ = "SmoothAverage";

clear();
print(zStart, zEnd, zInterval, zScale, zOffset, 
	 sampleRate, resolution, filterSize, flags$);

Vout = RasterToVectorContour(Rin, zInterval, zStart, zEnd, zScale, zOffset, sampleRate, resolution, filterSize, flags$);
# alternate form - use defaults
# Vout = RasterToVectorContour(Rin, zInterval)
CloseRaster(Rin);

print("Process Completed.", "Vout#Lines:", Vout.$Info.NumLines);