15 lines
336 B
Scheme
15 lines
336 B
Scheme
(use-modules (graphgif))
|
|
|
|
(define my-graph
|
|
`(((10 . 10) (1) ,white)
|
|
((30 . 20) () ,red)))
|
|
|
|
(define more-complex-graph
|
|
`(((10 . 10) () ,white)
|
|
((40 . 10) (0) ,white)
|
|
((25 . 25) (0 1) ,white)
|
|
((10 . 40) (0 2 4) ,white)
|
|
((40 . 40) (1 2 3) ,white)))
|
|
|
|
(write-graph-to-file more-complex-graph (cadr (command-line)))
|