fix: drawing was ending at 80% most of the time

Author: azimut

Diff for: lib/ffbar.ml

@@ -52,19 +52,20 @@ let read_commands chan video user_duration user_seek =
               (constf " %s"
                  String.(sub video.name 0 (min 23 (length video.name))) )
           ; percentage_of total
-          ; bar ~style:`ASCII total
+          ; bar ~style:`ASCII ~data:`Sum total
           ; const "-" ++ eta total ++ const " " ]
       in
-      let prev = ref 0.0 in
+      let prev = ref 0 in
       let quit = ref false in
       Progress.with_reporter bar (fun f ->
           while not !quit do
             match read_command chan with
             | Eof | ParsingError ->
                 quit := true (* FIXME: handle parsing error *)
             | Nop -> ()
-            | Timestamp timestamp ->
-                f (Float.to_int (timestamp -. !prev)) ;
+            | Timestamp tt ->
+                let timestamp = Float.to_int tt in
+                f (timestamp - !prev) ;
                 prev := timestamp
           done ) ;
       Ok () )