(use-modules (graphgif)
	     (srfi srfi-9 gnu)
	     (ice-9 copy-tree)
	     (d-))

(define red (create-color 1 0 0))

(define graph1 (generate-web 10 10))
(define graph2
  (~> (copy-tree graph1)
      (remove-rect 10 1 3 6 3)
      (remove-rect 10 6 3 6 7)))
(write-graphs-to-file (vector graph1 graph2) "graph.webp")