11 lines
324 B
Scheme
11 lines
324 B
Scheme
(use-modules (graphgif)
|
|
(srfi srfi-9 gnu)
|
|
(ice-9 copy-tree))
|
|
|
|
(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 (list graph1 graph2) "graph.gif")
|