Leica tps1100, Руководство пользователя, Страница: 245 / 1154

GeoBASIC Reference Manual 2.GeoBasic Constructs
2-16 TPS1100-Version 1.30
DIM dDistance AS Distance
dDistance = Sqr((Point2.dNorth - Point1.dNorth )^2 +
(Point2.dEast - Point1.dEast )^2 +
(Point2.dHeight - Point1.dHeight)^2)
♦
A record type can itself be the type of a record component, or the type of
elements of an array.
TYPE LineType
StartPoint AS CartesianPointType
EndPoint
AS CartesianPointType
END LineType
TYPE DIM PointArrayType (5) AS CartesianPointType END
TYPE SomeMeasurementType
BaseLine AS LineType
MeasuredPoints AS PointArrayType
END SomeMeasurementType
♦
The access to nested structures is done as follows.
DIM Measurement AS SomeMeasurementType
'set the base line
Measurement.BaseLine.StartPoint = Point1
Measurement.BaseLine.EndPoint
= Point2
'set the first point of the measurement
Measurement.MeasuredPoint(1).iNumber = 1
Measurement.MeasuredPoint(1).dNorth
= 1.6
Measurement.MeasuredPoint(1).iEast = 5.3
Measurement.MeasuredPoint(1).iHeight = 3.9
2.2.5 Predefined Structured Types
GeoB
ASIC
provides for the inclusion of system routine calls a set of predefined
structured types (strings, arrays, and structures). The definitions of such predefined
types are implemented in the GeoB
ASIC
compiler and accessible to the
programmer as any other defined types. One example is
GM_Point_Type
which
denotes a GeoMath point data type. Normally they are explained at the beginning
of a subsection.