48 lines
982 B
Tcl
48 lines
982 B
Tcl
namespace eval OOspec {} {
|
|
}
|
|
# OceanOptics spectrometer over python
|
|
proc stdConfig::OOspec {} {
|
|
controller std "\n" 15
|
|
prop startcmd "*IDN?"
|
|
|
|
pollperiod 15 15
|
|
|
|
obj OOspec -none
|
|
kids OOSpectrometer {
|
|
node peak1 rd
|
|
prop read OOspec::measure
|
|
node peak2 upd
|
|
node peak3 upd
|
|
node peak4 upd
|
|
node peak5 upd
|
|
node peak6 upd
|
|
node peak7 upd
|
|
node peak8 upd
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
proc OOspec::measure {} {
|
|
sct send "AQUIRE"
|
|
return OOspec::update
|
|
}
|
|
|
|
|
|
proc OOspec::update {} {
|
|
set output [sct result]
|
|
set items [split $output " "]
|
|
|
|
updateval [sct parent]/peak1 [lindex $items 0]
|
|
updateval [sct parent]/peak2 [lindex $items 1]
|
|
updateval [sct parent]/peak3 [lindex $items 2]
|
|
updateval [sct parent]/peak4 [lindex $items 3]
|
|
updateval [sct parent]/peak5 [lindex $items 4]
|
|
updateval [sct parent]/peak6 [lindex $items 5]
|
|
updateval [sct parent]/peak7 [lindex $items 6]
|
|
updateval [sct parent]/peak8 [lindex $items 7]
|
|
return idle
|
|
}
|