Remove superfluous trailing white space from TCL files
This commit is contained in:
@@ -18,6 +18,6 @@ dhv1 upper 3000
|
||||
evfactory new dhv2 nhq200 acq 2
|
||||
dhv2 tolerance 5
|
||||
dhv2 rate 25
|
||||
dhv2 upper 1500
|
||||
dhv2 upper 1500
|
||||
#dhv2 lock
|
||||
}
|
||||
|
||||
@@ -3,7 +3,7 @@ set sim_mode [SplitReply [hmm_simulation]]
|
||||
|
||||
proc ::histogram_memory::init_OAT_TABLE {} {
|
||||
if [ catch {
|
||||
# We don't need a MAX_CHAN parameter for time because the time channel
|
||||
# We don't need a MAX_CHAN parameter for time because the time channel
|
||||
# is scaled by calling the ::histogram_memory::clock_scale function
|
||||
OAT_TABLE X -setdata MAX_CHAN 421
|
||||
OAT_TABLE Y -setdata MAX_CHAN 221
|
||||
@@ -18,7 +18,7 @@ proc ::histogram_memory::init_OAT_TABLE {} {
|
||||
hmm configure fat_frame_frequency $freq
|
||||
hmm configure fat_frame_source EXTERNAL
|
||||
|
||||
OAT_TABLE -set X { -210.5 -209.5 } NXC 421 Y { -110.5 -109.5 } NYC 221 T { 0 40 } NTC 1000
|
||||
OAT_TABLE -set X { -210.5 -209.5 } NXC 421 Y { -110.5 -109.5 } NYC 221 T { 0 40 } NTC 1000
|
||||
} message ] {
|
||||
if {$::errorCode=="NONE"} {return $message}
|
||||
return -code error $message
|
||||
@@ -86,7 +86,7 @@ proc ::histogram_memory::tochfreq {} {
|
||||
# @param tochfreq updates chopper status and then sets histmem frame frequency to match
|
||||
# the chopper frequency.
|
||||
#
|
||||
# NOTE: If the chopper is stopped (ie freq=0) then the histogram frequency will be set to
|
||||
# NOTE: If the chopper is stopped (ie freq=0) then the histogram frequency will be set to
|
||||
# 50Hz with an internal frame_source.\n
|
||||
# @see ::histogram_memory::set_frame_freq
|
||||
proc histmem {cmd args} {
|
||||
|
||||
Reference in New Issue
Block a user