Actually make webp

2024-10-23 09:13:50 -05:00
parent 2da23e143c
commit 495e4ac5a5
3 changed files with 10 additions and 5 deletions
--- a/graphgif.scm
+++ b/graphgif.scm
@@ -148,7 +148,8 @@
      surface
      (string-append pngdir "/img-" (number->string i) ".png")))
   surfaces)
-  (system* "ffmpeg" "-i" (string-append pngdir "/img-%d.png") "-r" "1" filename))
+  (system* "ffmpeg" "-i" (string-append pngdir "/img-%d.png")
+	   "-r" "1" "-loop" "0" filename))

 (define-public (write-graphs-to-file graphs filename)
  (output-to-file (vector-map (lambda (_ graph) (draw-abstract-graph graph)) graphs) filename))