Remove superfluous trailing white space from TCL files
This commit is contained in:
@@ -27,15 +27,15 @@ set m1ro_home 134658
|
||||
set bat_home 8308518
|
||||
set st3vt_home 5250496
|
||||
#set st3vt_home 8742250 - victim of the encoder rearrangement
|
||||
set st4vt_home 6560460
|
||||
set st4vt_home 6560460
|
||||
set sth_home 23541737
|
||||
#set sphi_home 7548440 - victim of the NaN
|
||||
set sphi_home 7450470
|
||||
set sx_home 8574000
|
||||
set sy_home 7500000
|
||||
set sz_home 8927484
|
||||
set dy_home 8694183
|
||||
set dz_home 7788617
|
||||
set dy_home 8694183
|
||||
set dz_home 7788617
|
||||
|
||||
#Measured or computed step rate for sz (Sample Raise)
|
||||
# Motor:25000/turn, gear:1/25, screw:5mm/turn
|
||||
@@ -325,7 +325,7 @@ Motor st4vt $motor_driver_type [params \
|
||||
cntsPerX 8192]
|
||||
st4vt part slits.$slit4VGroup
|
||||
st4vt long_name st4vt
|
||||
st4vt softlowerlim 1
|
||||
st4vt softlowerlim 1
|
||||
st4vt softupperlim 247
|
||||
st4vt home 0
|
||||
st4vt backlash_offset -0.1
|
||||
@@ -468,7 +468,7 @@ Motor sz $motor_driver_type [params \
|
||||
absEncHome $sz_home\
|
||||
cntsPerX $szCountRate]
|
||||
sz part sample
|
||||
sz long_name translate_z
|
||||
sz long_name translate_z
|
||||
sz softlowerlim 0
|
||||
sz softupperlim 280.0
|
||||
sz home 0
|
||||
|
||||
@@ -164,13 +164,13 @@ namespace eval ::scobj::galil {
|
||||
|
||||
# Report the abstract status to GumTree
|
||||
hfactory $batpath/status plain user text
|
||||
hsetprop $batpath/status read ${NS}::getStatus
|
||||
hsetprop $batpath/status read ${NS}::getStatus
|
||||
hsetprop $batpath/status rdStatus ${NS}::rdStatus $batObjName
|
||||
hsetprop $batpath/status values busy,idle
|
||||
hsetprop $batpath/status oldval UNKNOWN
|
||||
hsetprop $batpath/status oldStatus UNKNOWN
|
||||
hset $batpath/status idle
|
||||
|
||||
|
||||
# Report the current position in encoder counts
|
||||
# Useful as an activity monitor and troubleshooting.
|
||||
hfactory $batpath/pos plain user int
|
||||
@@ -179,10 +179,10 @@ namespace eval ::scobj::galil {
|
||||
hsetprop $batpath/pos oldval UNKNOWN
|
||||
|
||||
if {$sim_mode == "false"} {
|
||||
sct_mc1 poll $batpath/pos
|
||||
sct_mc1 poll $batpath/action
|
||||
sct_mc1 poll $batpath/status
|
||||
sct_mc1 write $batpath/action
|
||||
sct_mc1 poll $batpath/pos
|
||||
sct_mc1 poll $batpath/action
|
||||
sct_mc1 poll $batpath/status
|
||||
sct_mc1 write $batpath/action
|
||||
}
|
||||
|
||||
# Set hipadaba properties for GumTree interface
|
||||
|
||||
Reference in New Issue
Block a user