Make graphgif a library, demo.scm is driver

2024-10-11 16:48:42 -05:00
parent 62fa492823
commit 6b11d25df2
3 changed files with 28 additions and 23 deletions
--- a/demo.scm
+++ b/demo.scm
@@ -0,0 +1,14 @@
+(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)))