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

Added eulerscan.tcl from ics1-wombat

Browse Source 
Updated to get in-situ changes to motor configurations (eg monochromator resolvers)
r3072 | ffr | 2011-02-25 19:12:19 +1100 (Fri, 25 Feb 2011) | 2 lines
This commit is contained in:
Ferdi Franceschini
2011-02-25 19:12:19 +11:00
committed by Douglas Clowes
parent 7371a561d9
commit 71b71e262c
6 changed files with 353 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
site_ansto/instrument/hipd/config/commands/pulser.tcl
View File

@@ -9,7 +9,10 @@ proc PulserOff {} {
}
proc PulserSin {Freq Volt} {
pulser send FUNC SIN
set resp [pulser send FUNC?]
if {[string first "SIN" $resp ] == -1 } {
pulser send FUNC SIN
}
pulser send VOLT $Volt
pulser send FREQ $Freq
pulser send VOLT:OFFS 0
@@ -17,7 +20,10 @@ proc PulserSin {Freq Volt} {
}
proc PulserSquare {Freq Volt} {
pulser send FUNC SQU
set resp [pulser send FUNC?]
if {[string first "SQU" $resp ] == -1 } {
pulser send FUNC SQU
}
pulser send VOLT $Volt
pulser send FREQ $Freq
pulser send VOLT:OFFS 0
@@ -25,7 +31,10 @@ proc PulserSquare {Freq Volt} {
}
proc PulserSquareOffs {Freq Volt Offs} {
pulser send FUNC SQU
set resp [pulser send FUNC?]
if {[string first "SQU" $resp ] == -1 } {
pulser send FUNC SQU
}
pulser send VOLT $Volt
pulser send FREQ $Freq
pulser send VOLT:OFFS $Offs
@@ -36,7 +45,7 @@ proc PulserSquareOffs {Freq Volt Offs} {
proc PulserDC {Volt} {
set resp [pulser send FUNC?]
broadcast $resp
if {$resp != "DC"} {
if {[string first "DC" $resp ] == -1 } {
pulser send FUNC DC
}
pulser send VOLT:OFFS $Volt
@@ -51,4 +60,4 @@ publish PulserOff user
publish PulserSin user
publish PulserSquare user
publish PulserDC user
publish PulserSquareOffs user
publish PulserSquareOffs user