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

44
site_ansto/instrument/config/commands/hvcommands.tcl
View File

@@ -4,13 +4,13 @@ set scaleval 1000.0
proc SetVoltScale {newscaleval} {
global scaleval
set scaleval $newscaleval
}
}
proc VoltScale {involt} {
global scaleval
return [expr {($involt*1.0)/$scaleval}]
}
proc SetVolt {volt} {
if {$volt== 0} {
PulserOff
@@ -56,7 +56,7 @@ proc VoltRamp {start step fin oscno} {
newfile HISTOGRAM_XY
set loopvar 1
set i 0
set i 0
while {$loopvar} {
set j [expr {$i*$step+$start}]
if {$j> $fin && $step > 0} {break}
@@ -71,7 +71,7 @@ proc VoltRamp {start step fin oscno} {
oscmd start $oscno
hmm countblock
save $i
incr i
incr i
}
oscmd stop
}
@@ -81,7 +81,7 @@ proc VoltTextureRamp {start step fin mot tstart tstep tfin oscno} {
set loopvar 1
set i 0
set i 0
while {$loopvar} {
set j [expr {$i*$step+$start}]
if {$j> $fin && $step > 0} {break}
@@ -105,7 +105,7 @@ proc VoltTextureRamp {start step fin mot tstart tstep tfin oscno} {
oscmd start $oscno
hmm countblock
save $m
incr m
incr m
}
oscmd stop
incr i
@@ -121,14 +121,14 @@ proc SquarePulseTexture {motor start step numsteps volt freq bins oscno} {
set pulservolt [VoltScale $volt]
PulserSquare $freq $pulservolt
PulserOn
for {set i 0} {$i < $numsteps} {incr i} {
drive $motor [expr $i*$step+$start]
oscmd start $oscno
hmm countblock
save $i
}
oscmd stop
}
@@ -140,14 +140,14 @@ proc UniPulseTexture {motor start step numsteps volt freq bins oscno} {
set pulservolt [VoltScale [expr ($volt*1.0/2)]]
PulserSquareOffs $freq $pulservolt $pulservolt
PulserOn
for {set i 0} {$i < $numsteps} {incr i} {
drive $motor [expr $i*$step+$start]
oscmd start $oscno
hmm countblock
save $i
}
oscmd stop
}
@@ -167,7 +167,7 @@ proc BehlkePulseTexture {motor start step numsteps freq bins oscno} {
}
}
proc SquarePulseVolt {start step fin freq bins oscno} {
histmem mode unlimited
@@ -175,7 +175,7 @@ proc SquarePulseVolt {start step fin freq bins oscno} {
histmem_period_strobo $freq $bins
wait 3
set loopvar 1
set i 0
set i 0
while {$loopvar} {
set j [expr {$i*$step+$start}]
if {$j> $fin && $step > 0} {break}
@@ -191,7 +191,7 @@ proc SquarePulseVolt {start step fin freq bins oscno} {
oscmd start $oscno
hmm countblock
save $i
incr i
incr i
}
oscmd stop
}
@@ -200,7 +200,7 @@ proc SquarePulseFreq {volt freqlist bins oscno} {
histmem mode unlimited
newfile HISTOGRAM_XYT
set loopvar 1
set i 0
set i 0
foreach freq $freqlist {
set pulservolt [VoltScale $volt]
histmem_period_strobo $freq $bins
@@ -211,7 +211,7 @@ proc SquarePulseFreq {volt freqlist bins oscno} {
oscmd start $oscno
hmm countblock
save $i
incr i
incr i
}
oscmd stop
}
@@ -259,7 +259,7 @@ proc UniPulseFreq {volt freqlist bins oscno} {
histmem mode unlimited
newfile HISTOGRAM_XYT
set loopvar 1
set i 0
set i 0
foreach freq $freqlist {
set pulservolt [VoltScale [expr ($volt*1.0/2)]]
histmem_period_strobo $freq $bins
@@ -271,7 +271,7 @@ proc UniPulseFreq {volt freqlist bins oscno} {
oscmd start $oscno
hmm countblock
save $i
incr i
incr i
}
oscmd stop
}
@@ -298,7 +298,7 @@ proc UniPulseFatigue {volt freq bins oscno reps runs} {
}
proc PulserBurst {} {
@@ -341,7 +341,7 @@ proc VoltPulseRun {vlo vhi freq cycl} {
proc VoltPulses {vlo vhi freq cycl} {
PulserOff
PulserOff
pulser send "FUNC SQU;:FUNC?"
VoltPulseRun $vlo $vhi $freq $cycl
}
@@ -350,7 +350,7 @@ proc VoltTriPulses {vlo vhi freq cycl} {
PulserOff
pulser send "FUNC RAMP;:FUNC?"
pulser send "FUNC:RAMP:SYMM 50;:FUNC:RAMP:SYMM?"
VoltPulseRun $vlo $vhi $freq $cycl
VoltPulseRun $vlo $vhi $freq $cycl
}
proc OneTri {volt period} {
@@ -375,7 +375,7 @@ proc OneTri {volt period} {
PulserOff
}
publish GetVolt user
publish SetDC user