2024-10-21 14:05:11 -05:00
|
|
|
(use-modules (graphgif)
|
|
|
|
|
(srfi srfi-9 gnu)
|
2024-10-23 09:13:50 -05:00
|
|
|
(ice-9 copy-tree)
|
|
|
|
|
(d-))
|
2024-10-11 16:48:42 -05:00
|
|
|
|
2024-10-16 13:48:22 -05:00
|
|
|
(define red (create-color 1 0 0))
|
|
|
|
|
|
2024-10-21 14:05:11 -05:00
|
|
|
(define graph1 (generate-web 10 10))
|
2024-10-23 09:13:50 -05:00
|
|
|
(define graph2
|
|
|
|
|
(~> (copy-tree graph1)
|
2024-10-23 09:46:15 -05:00
|
|
|
(remove-rect 10 1 3 6 3)
|
|
|
|
|
(remove-rect 10 6 3 6 7)))
|
2024-10-23 09:13:50 -05:00
|
|
|
(write-graphs-to-file (vector graph1 graph2) "graph.webp")
|
