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

r3784 | jgn | 2012-11-02 13:46:19 +1100 (Fri, 02 Nov 2012) | 1 line

Browse Source
This commit is contained in:
Jing Chen
2012-11-02 13:46:19 +11:00
committed by Douglas Clowes
parent 4e2ba8c458
commit e9f7c0547d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
site_ansto/instrument/pelican/config/beamline/sct_power.tcl
View File

@ -911,7 +911,7 @@ proc lf_freq {{para ""} args} {
} }
} }
proc lf_sweep_run {startF stepF scyc {mode 2} args} { proc lf_sweep_run {startF stepF np {mode 2} args} {
if {$mode<0 || $mode>2} { if {$mode<0 || $mode>2} {
return -code error "Error in setValue: only allowed input values for SweepMode are {0,1,2}" return -code error "Error in setValue: only allowed input values for SweepMode are {0,1,2}"
@ -928,7 +928,7 @@ proc lf_sweep_run {startF stepF scyc {mode 2} args} {
set SStrHz [expr $startF % 1000] set SStrHz [expr $startF % 1000]
set SStp [expr $stepF / 1000] set SStp [expr $stepF / 1000]
set SStpHz [expr $stepF % 1000] set SStpHz [expr $stepF % 1000]
set SCyc $scyc set SCyc $np
set data [format %02x%02x%02x%02x%02x%02x $SweepMode $SStr $SStp $SCyc $SStrHz $SStpHz] set data [format %02x%02x%02x%02x%02x%02x $SweepMode $SStr $SStp $SCyc $SStrHz $SStpHz]
set cmd [format %02x%02x%02x%s%02x $HEAD $LEN $CTRL $data $CRC] set cmd [format %02x%02x%02x%s%02x $HEAD $LEN $CTRL $data $CRC]