- set realcols $cols
- set cols [expr {$cols - $chop_l - $chop_r}]
- debug "NOW cols=$cols chop_l,r=$chop_l,$chop_r rows=$rows\
+ for {set depth 1} {$maxval != (1<<$depth)-1} {incr depth} {
+ if {$depth >= 16} { error "maxval $maxval ?" }
+ }
+
+ set chop_l [expr {$unk_l - 80}]
+ set chop_r [expr {$cols - $unk_l - 100}]
+ if {$chop_l<0} { set chop_l 0 }
+ if {$chop_r<0} { set chop_r 0 }
+
+ set unk_l [expr {$unk_l - $chop_l}]
+ set unk_r [expr {$unk_r - $chop_l}]
+ set ngd {}
+ foreach {min max context contexts got} $glyphsdone {
+ lappend ngd \
+ [expr {$min-$chop_l}] \
+ [expr {$max-$chop_l}] \
+ $context $contexts $got
+ }
+ set glyphsdone $ngd
+
+ set realcols $cols
+ set cols [expr {$cols - $chop_l - $chop_r}]
+ debug "NOW cols=$cols chop_l,r=$chop_l,$chop_r rows=$rows\