test.tcl  (annotations | original source)

#//#
#	This program tests TclAPI functions
#	IMPORTANT Target on a prism before start the test!
#
#	<p>Ulyses - an open source project to drive total stations and
#			publish observation results</p>
#	<p>GPL v2.0 license</p>
#	<p>Copyright (C) 2010-2012 Zoltan Siki <siki@agt.bme.hu></p>
#	@author Zoltan Siki
#	@version 1.0
#//#

source global.tcl
source leica.tcl
source common.tcl

# test all instrument specific functions
# before you start target on a prism
puts "OpenCom: [::OpenCom]"
# getter functions
puts "GetInstrument: [::GetInstrument]"
puts "GetId: [::GetId]"
puts "GetAtmCorr: [::GetAtmCorr]"
puts "GetATR: [::GetATR]"
puts "GetEDMMode: [::GetEDMMode]"
puts "GetLock: [::GetLock]"
puts "GetPc: [::GetPc]"
puts "GetRefCorr: [::GetRefCorr]"
puts "GetStation: [::GetStation]"
# setter functions
puts "SetAtmCorr: [::SetAtmCorr 0.00000078 1015 20 15] [::GetAtmCorr]"

puts "SetATR: [::SetATR 1] [::GetATR]"
puts "SetEDMMode: [::SetEDMMode 1] [::GetEDMMode]"
puts "SetLock: [::SetLock 1] [::GetLock]"
::SetLock 0
puts "GetAngles: [::GetAngles]"
puts "SetOri: [::SetOri $PI]"
puts "GetAngles: [::GetAngles]"
puts "SetPc: [::SetPc -30]"
puts "GetPc: [::GetPc]"
puts "SetRefCorr: [::SetRefCorr 1 6380000 0.13] [::GetRefCorr]"
puts "SetStation: [::SetStation 10 20 30] [::GetStation]"
# measure functions
puts "Measure: [::Measure]"
set PI8 [expr {$PI / 8.0}]
puts "MoveRel: [::MoveRel $PI8 $PI8] [::GetAngles]"
puts "MoveRel: [::MoveRel -$PI8 -$PI8] [::GetAngles]"
puts "Measure: [::Measure]"
puts "CloseCom: [::CloseCom]"