+
+ if {$m > 0} {
+ set t [lindex [$zs scanLine 0] 1]
+ if {$tno > 0} {
+ set hist($setNo,$tno,[expr $scanNo - 1],scanTerm) $t
+ } else {
+ set hist($setNo,[expr $scanNo - 1],scanTerm) $t
+ }
+ set t [lindex [$zs scanLine [expr $m - 1]] 1]
+ if {$tno > 0} {
+ set hist($setNo,$tno,[expr $scanNo + 1],scanTerm) $t
+ } else {
+ set hist($setNo,[expr $scanNo + 1],scanTerm) $t
+ }
+ }