Leica tps1100 Reference Manual page 182

GeoCOM Reference Manual
Example
const double
RC_TYPE
TMC_REFRACTION
// check the earth radius setting
// and reset if necessary
rc = TMC_GetRefractiveCorr(Refractive);
if (Refractive.dEarthRadius != EarthRadius)
{
Refractive.dEarthRadius = EarthRadius;
rc = TMC_SetRefractiveCorr(Refractive);
if (rc == RC_OK)
{
// set of earth radius successful
}
else
{
// set not successful (subsystem busy)
}
}
16.5.9 TMC_SetRefractiveCorr - Set the refraction factor
TMC_ SetRefractiveCorr .................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................... 2030
2030 ................................................................................................................................................................................................................................................................TMC_ SetRefractiveCorr
C-Declaration
TMC_SetRefractiveCorr(TMC_REFRACTION Refractive)
VB-Declaration
VB_TMC_SetRefractiveCorr
ASCII-Request
%R1Q,2030: RefOn[boolean],EarthRadius[double], RefractiveScale[double]
ASCII-Response
%R1P,0,0:RC
Remarks
This function is used to set the refraction distortion factor for correction of
measured height difference.
Parameters
Refractive
TPS1100 - Version 1.05
Theodolite Measurement and Calculation - TMC
EarthRadius = 6378000;
rc;
Refractive;
(ByVal Refractive As TMC_REFRACTION)
in
Refraction distortion
16-34