Leica TPS1200 Series Reference Manual page 153

GeoCOM Reference Manual
See Also
TMC_GetAngle
TMC_DoMeasure
TMC_IfDataAzeCorrError
TMC_IfDataIncCorrError
Example
const short
const double
const double
GRC_TYPE
TMC_ANG_SWITCH SwCorr;
TMC_HZ_V_ANG
TMC_ANGLE
BOOLE
DATIME
double
short
TMC_GetAngSwitch(SwCorr);
SwCorr.eInclineCorr=ON;
SwCorr.eStandAxisCorr=ON;
SwCorr.eCollimationCorr=ON;// incline correction are
SwCorr.eTiltAxisCorr=ON;
TMC_DoMeasure(TMC_CLEAR);
TMC_SetAngSwitch(SwCorr);
CSV_GetDateTime(Datime);
dstart_time=Datime.Time.Minute*60+
// starts the rapid tracking dist. measurement program
TMC_QuickDist(HzVAng, dSlopeDist);
bExit=FALSE;
nNoMeasurements=0;
do
{
dLastHzAng=HzVAng.dHz;
Result=TMC_QuickDist(HzVAng, dSlopeDist);
switch(Result)
{
// distance- and angles- data available
case GRC_TMC_ACCURACY_GUARANTEE:
// perform a forced incline measurement
// caution: the calculation at zero rad is
// not consider
dhz_angle_diff=fabs(dLastHzAng-
if(dhz_angle_diff<MAX_DIFFERENCE)
{// instrument is in static period
Leica TPS1200 – Version 1.50
MAX=100;// number of measurements
STATIC_TIME=4.0;// in seconds
MAX_DIFFERENCE=0.0002// in rad
Result;
HzVAng;
AngleDummy;
bExit;
Datime;
dSlopeDist,
dLastHzAng,
dhz_angle_diff,
dact_time, dstart_time;
nNoMeasurements;
// measure rate will be
// reduced if angle and
// activated
// clear distance first
// before you can set the
// ANG switches, the
// distance must be
// cleared
Datime.Time.Second;
HzVAng.dHz);
CSV_GetDateTime(Datime);
dact_time=Datime.Time.Minute*60+
Datime.Time.Second;
if(dact_time-dstart_time > STATIC_TIME)
{// static mode exceeding 3-4 sec
TMC_GetAngle(TMC_MEA_INC,
TMC_GetAngle(TMC_MEA_INC,
Theodolite Measurement and Calculation – TMC
AngleDummy);
153