# This is the channel PSD Threshold register 0x1n78 for {set i 0} {$i < $NumChans} {incr i} { variable Ch$i.PSDThreshold 0 } proc GetPSDThreshold {} { variable NumChans for {set i 0} {$i < $NumChans} {incr i} { variable Ch$i.PSDThreshold set Ch$i.PSDThreshold [ReadRegister Ch$i.PSDThreshold] } } proc SetPSDThreshold {w} { variable NumChans for {set i 0} {$i < $NumChans} {incr i} { if {$w < $NumChans && $w != $i} {continue} variable Ch$i.PSDThreshold WriteRegister Ch$i.PSDThreshold [set Ch$i.PSDThreshold] } } proc SavePSDThreshold {} { variable NumChans for {set i 0} {$i < $NumChans} {incr i} { DBSetValue Ch$i.PSDThreshold [ReadRegister Ch$i.PSDThreshold] } } proc RestPSDThreshold {} { variable NumChans for {set i 0} {$i < $NumChans} {incr i} { variable Ch$i.PSDThreshold set Ch$i.PSDThreshold [DBGetValue Ch$i.PSDThreshold] WriteRegister Ch$i.PSDThreshold [DBGetValue Ch$i.PSDThreshold] } } proc DrawPSDThreshold {} { variable NumChans variable Name set html "" append html "
" append html "
| Channel | " append html "Channel n PSD Threshold | " append html "
| $i | " append html "" append html " |