linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove superfluous trailing white space from TCL files

Browse Source
This commit is contained in:
Douglas Clowes
2014-05-16 12:30:51 +10:00
parent 89e4e37f9e
commit 92d3acb5d5
230 changed files with 1835 additions and 1835 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
site_ansto/instrument/pelican/config/chopper/fermimot.tcl
View File

@@ -112,7 +112,7 @@ namespace eval ::chopper {
21 22 23 24 25
26 27 28 29 30
} {
set speedMult($i) [expr double($mult)]
set speedMult($i) [expr double($mult)]
incr i
}
@@ -324,7 +324,7 @@ namespace eval ::chopper {
set propGain [lindex $row 1 1 $dir]
set intGain [lindex $row 1 2 $dir]
set phGain [lindex $row 1 3 $dir]
hset $hpath/$node/control/set_motor_dir $dir
hset $hpath/$node/control/set_vetowin50 [expr $vetowin/50.0]
hset $hpath/$node/control/set_prop_gain $propGain
@@ -497,7 +497,7 @@ namespace eval ::chopper {
proc imot_PhRun {hpath node addr name target} {
global SCode
hset $hpath/$node/control/set_ref_delay $target
hsetprop $hpath/$node/control timecheck -1
set readtime [hgetpropval $hpath read_time]
@@ -510,7 +510,7 @@ namespace eval ::chopper {
return $SCode(MOTFAIL)
}
proc get_phase_acc {ch} {
variable chPath