diff --git a/webif/html/browse/crop/crop.jim b/webif/html/browse/crop/crop.jim index 24fb180..1c3fe09 100755 --- a/webif/html/browse/crop/crop.jim +++ b/webif/html/browse/crop/crop.jim @@ -14,6 +14,7 @@ set ts [ts fetch $rfile] set dir [file dirname $rfile] set len [$ts duration 1] +set planwidth 500 puts "
@@ -29,7 +30,8 @@ puts [join [lmap i [$ts bookmarks 1] { clock format $i -format "%T" }] ", "] -puts " " +# set minimum width as positioned contents doesn't resize its cell +puts " " 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 " -Time: +Time: Cropping will take around [clock format $esttime -format "%T"] @@ -130,9 +132,9 @@ puts " -Save new bookmarks? + -