Actually make webp

.gitignore

@@ -1,4 +1,5 @@
 *.png
 *.gif
+*.webp
 cgif/libguilecgif.so
 cgif/config.scm

demo.scm

@@ -1,10 +1,13 @@
 (use-modules (graphgif)
 	     (srfi srfi-9 gnu)
-	     (ice-9 copy-tree))
+	     (ice-9 copy-tree)
+	     (d-))
 
 (define red (create-color 1 0 0))
 
 (define graph1 (generate-web 10 10))
-(define graph2 (remove-rect (copy-tree graph1) 10 3 3 4 5))
-(assq-set! graph2 0 (set-node-color (assq-ref graph2 0) red))
-(write-graphs-to-file (vector graph1 graph2) "graph.gif")
+(define graph2
+  (~> (copy-tree graph1)
+      (remove-rect 10 3 3 4 5)
+      (remove-rect 10 3 3 6 4)))
+(write-graphs-to-file (vector graph1 graph2) "graph.webp")

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))