Actually make webp

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