# This is the channel Trapezoid Digital Gain register 0x1nC4 for {set i 0} {$i < $NumChans} {incr i} { variable Ch$i.TrapDigGain 0 } proc GetTrapDigGain {} { variable NumChans for {set i 0} {$i < $NumChans} {incr i} { variable Ch$i.TrapDigGain set Ch$i.TrapDigGain [ReadRegister Ch$i.TrapDigGain] } } proc SetTrapDigGain {w} { variable NumChans for {set i 0} {$i < $NumChans} {incr i} { if {$w < $NumChans && $w != $i} {continue} variable Ch$i.TrapDigGain WriteRegister Ch$i.TrapDigGain [set Ch$i.TrapDigGain] } } proc SaveTrapDigGain {} { variable NumChans for {set i 0} {$i < $NumChans} {incr i} { DBSetValue Ch$i.TrapDigGain [ReadRegister Ch$i.TrapDigGain] } } proc RestTrapDigGain {} { variable NumChans for {set i 0} {$i < $NumChans} {incr i} { variable Ch$i.TrapDigGain set Ch$i.TrapDigGain [DBGetValue Ch$i.TrapDigGain] WriteRegister Ch$i.TrapDigGain [DBGetValue Ch$i.TrapDigGain] } } proc DrawTrapDigGain {} { 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 Trapezoid Digital Gain
$i
 
" append html "" append html "

" return $html }