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

Merged in-situ changes from Echidna

Browse Source 
r3252 | ffr | 2011-09-23 14:21:09 +1000 (Fri, 23 Sep 2011) | 2 lines
This commit is contained in:
Ferdi Franceschini
2011-09-23 14:21:09 +10:00
committed by Douglas Clowes
parent d778dd2bfe
commit d416695b4b
6 changed files with 371 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
site_ansto/instrument/hrpd/config/commands/pulser.tcl Normal file
View File

@@ -0,0 +1,60 @@
proc PulserOn {} {
pulser send "OUTP ON"
}
proc PulserOff {} {
pulser send "OUTP OFF"
}
proc PulserSin {Freq Volt} {
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
}
proc PulserSquare {Freq Volt} {
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
}
proc PulserSquareOffs {Freq Volt Offs} {
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
}
proc PulserDC {Volt} {
set resp [pulser send FUNC?]
broadcast $resp
if {[string first "DC" $resp ] == -1 } {
pulser send FUNC DC
}
pulser send VOLT:OFFS $Volt
}
publish PulserOn user
publish PulserOff user
publish PulserSin user
publish PulserSquare user
publish PulserDC user
publish PulserSquareOffs user