# This is the channel BaseLine Hold Off register 0x1n7c for {set i 0} {$i < $NumChans} {incr i} { variable Ch$i.BaseLineHoldOff 0 } proc GetBaseLineHoldOff {} { variable NumChans for {set i 0} {$i < $NumChans} {incr i} { variable Ch$i.BaseLineHoldOff set Ch$i.BaseLineHoldOff [ReadRegister Ch$i.BaseLineHoldOff] } } proc SetBaseLineHoldOff {w} { variable NumChans for {set i 0} {$i < $NumChans} {incr i} { if {$w < $NumChans && $w != $i} {continue} variable Ch$i.BaseLineHoldOff WriteRegister Ch$i.BaseLineHoldOff [set Ch$i.BaseLineHoldOff] } } proc SaveBaseLineHoldOff {} { variable NumChans for {set i 0} {$i < $NumChans} {incr i} { DBSetValue Ch$i.BaseLineHoldOff [ReadRegister Ch$i.BaseLineHoldOff] } } proc RestBaseLineHoldOff {} { variable NumChans for {set i 0} {$i < $NumChans} {incr i} { variable Ch$i.BaseLineHoldOff set Ch$i.BaseLineHoldOff [DBGetValue Ch$i.BaseLineHoldOff] WriteRegister Ch$i.BaseLineHoldOff [DBGetValue Ch$i.BaseLineHoldOff] } } proc DrawBaseLineHoldOff {} { variable NumChans variable Name set html "" append html "
" append html "
| Channel | " append html "Channel n BaseLine Hold Off | " append html "
| $i | " append html "" append html " |