# This is the channel Trigger Hold Off register 0x1n74 for {set i 0} {$i < $NumChans} {incr i} { variable Ch$i.TrigHoldOff 0 } proc GetTrigHoldOff {} { variable NumChans for {set i 0} {$i < $NumChans} {incr i} { variable Ch$i.TrigHoldOff set Ch$i.TrigHoldOff [ReadRegister Ch$i.TrigHoldOff] } } proc SetTrigHoldOff {w} { variable NumChans for {set i 0} {$i < $NumChans} {incr i} { if {$w < $NumChans && $w != $i} {continue} variable Ch$i.TrigHoldOff WriteRegister Ch$i.TrigHoldOff [set Ch$i.TrigHoldOff] } } proc SaveTrigHoldOff {} { variable NumChans for {set i 0} {$i < $NumChans} {incr i} { DBSetValue Ch$i.TrigHoldOff [ReadRegister Ch$i.TrigHoldOff] } } proc RestTrigHoldOff {} { variable NumChans for {set i 0} {$i < $NumChans} {incr i} { variable Ch$i.TrigHoldOff set Ch$i.TrigHoldOff [DBGetValue Ch$i.TrigHoldOff] WriteRegister Ch$i.TrigHoldOff [DBGetValue Ch$i.TrigHoldOff] } } proc DrawTrigHoldOff {} { variable NumChans variable Name set html "" append html "

" append html "" append html "" append html "" append html "" append html "" for {set i 0} {$i < $NumChans} {incr i} { append html "" append html "" append html "" append html "" } append html "
ChannelChannel n Trigger Hold Off (8ns step)
$i
 
" append html "" append html "

" return $html }