| "
puts " "
@@ -64,8 +66,8 @@ foreach b $bookmarks {
incr cur $l
append newbookmarks "[expr $cur + 3] "
- set left $($start * 500 / $len)
- set right $($end * 500 / $len)
+ set left $($start * $planwidth / $len)
+ set right $($end * $planwidth / $len)
div cut $last $($left - 1)
div keep $left $($right - 1)
@@ -78,11 +80,11 @@ foreach b $bookmarks {
if {$start > 0} {
# Still in a keep section...
incr keeping $($len - $start)
- set left $($start * 500 / $len)
+ set left $($start * $planwidth / $len)
div cut $last $($left - 1)
- div keep $left 500
+ div keep $left $planwidth
} else {
- div cut $last 500
+ div cut $last $planwidth
}
if {$cur > $keeping - 8 && $keeping - 8 > 0} {
@@ -115,7 +117,7 @@ puts [join [lmap i $newbookmarks {
puts " ) |
"
puts "
-