15 lines
256 B
Tcl
15 lines
256 B
Tcl
###
|
|
# Oscillating collimator control
|
|
# oscmd start n -- will run the oscillator motor rco for n cycles and send a stop to the histmem
|
|
|
|
|
|
MakeOscillator oscmd rco
|
|
|
|
proc rco_cb {} {
|
|
hmm pause
|
|
}
|
|
publish rco_cb user
|
|
|
|
scriptcallback connect rco MOTEND rco_cb
|
|
|