From 62fa4928230478b1a0955810b4d967080faee1d9 Mon Sep 17 00:00:00 2001
From: Dane Johnson <daneallenjohnson@protonmail.com>
Date: Fri, 11 Oct 2024 16:41:11 -0500
Subject: [PATCH] Running script, graph put in requested file location

---
 graph.png    | Bin 2308 -> 0 bytes
 graphgif.scm |  20 +-------------------
 run.sh       |   9 +++++++++
 3 files changed, 10 insertions(+), 19 deletions(-)
 delete mode 100644 graph.png
 create mode 100755 run.sh

diff --git a/graph.png b/graph.png
deleted file mode 100644
index 92c02efa752c1a748710f579715da4c60fb8d6af..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 2308
zcmeAS@N?(olHy`uVBq!ia0y~yV4MKL983%h4E%Q&&Sqd>U`z6LcVYMsf(!O8pUl9(
zvD4GVF{EP7+q--HC+Er^f4KR4@o~=trjnvm!RKWnAN36i4XjKS&9IPUcV~AmXEJ12
z-Fa-r2GfH-Ha%R|{lBr(M@x_IsiX&w*oxY-e{0?r`g~b5M_gzAoTs~fWvAxnuV+yC
zaen__ZiW)?4Gj`atVaZN6pmdym}NGbo15Dh48-+fGR$Tlwz~f!jO|}t_5SRwQD3Y6
zez^SVYt`zjx1<le2xB|uQoX^<%*;!3^5n_d+S>8^YHr@V85tQlbH)sfr8zk{JVnbc
zuI1_J{FV^9`f8BZ;)@m)8!l!{30igal|s7I-BSl<ta$Uc?(vHwM~=LE_wM@ocy)F4
zdf7kU-rl})<w`(YqukC<Cnu}#um5j1<!j^q8LL|ydcGx`J%4_BkeRtTzucYrh}Bow
zZl1oHwe@k>J$p@u^#5CI<Kp7(-MhE1_V>4U@7^u-p6;coAHQ!;`TID{r=OmlZl3e<
z)Ku-`Yim9~JL?GY!0-PXzJ2>PZTj@<*RJu|m*(ZYdwYBPa{u}79-CNOTXS=B%iGu4
z{8_tn>C&rLuX-)LbbQl+h|GG=h?OB>;o;l2Z4(n0|K6{or?;=-<D)k>H_x}LwW|O3
z=lS{h)wajiN1Z);*0%oNp9iO+qocF4v$I%B7T30az5QKlYS5{F!hCMam)Bl9C|~pa
z-QAVJ%Ws9Ty$ISK&bfT~^80%#FTb{XeIknS%kuWyQdPOrq8JZfy<Hn|*W7z;!@}1;
zk6p~0wKVL2#+Tyd)zO>h+0|ARB%Rrue*OxVL~Gu9A-QW0udNF5dLFgYi{s0}|KElD
z{Qd9mC|oRKZ20Wj+URd#2MWIKKdiO%O4ioz@9&#S^{x(I|Ig~jlarIPudfSTef90z
zxBJ4`EOHhkl+JLyT$$99z*uV#$JSvOu)*rgB11zqiCy158ri-yFiblTX~NLn`(axf
z-}{N*>~$9K*X~oXu`x_51A`BdCJe`4rni4RUViUSp;)i1*oF3a<q>!H_;1)BX~Hn~
ztJs=%_ph#rJaFNwz?!&pgA6f)n7eGN_jel3V&%CAOOU_g`7I2eorpBqAC_k}oB1E(
zfgcu+lJ~8P-@k9)zPcYPo6l^2Rd6|MZ(RMC7Zdr<G5%Xo+kQ2}<l6P??RJLC4(rVN
z`t_^ZV#5dX8GBl{@lRPFwtDFlx5b4Y9@GVZlA?U5{jRBvh8O=$+Hm;DjD=q|_D7m9
z{O*~~n6!m`_2DBkqSl(7h+7x7T6X)UND~M1f7Sp0{cY~|pJTCc=gyzMzP?_$a;0(l
zxj#QXKK}Ulc=@|KKYxCH-ptN_Zm#w9?=#)D8yV=``sTPcEc<^^-0Y=Gmxir2J;9e<
zqRpKA=tU;)`nbJSKR!Hc=a=`={QUWI`TKi&D?UC7_+_zcYUBR6<sXe0{)fk?vLtbc
z2{^;EYFh%MAq#hhVuS<FL8eiu(a;!88>86)R*w&8;qbWr<Bs`W9PHcO7#J8BJYD@<
J);T3K0RXqJdzb(K

diff --git a/graphgif.scm b/graphgif.scm
index 9a80dec..7a9c36f 100644
--- a/graphgif.scm
+++ b/graphgif.scm
@@ -24,24 +24,6 @@
     ((10 . 40) (0 2 4) ,white)
     ((40 . 40) (1 2 3) ,white)))
 
-(define-syntax-rule
-  (for x n stmt ...)
-  (let loop ([x 0]
-	     [lst '()])
-    (if (< x n)
-	(loop (1+ x)
-	      (cons lst (stmt i)))
-	lst)))
-
-(define large-web
-  (let ([lst '()])
-    (do (i (1+ i))
-	((> i 10))
-      (do (j (1+ j))
-	  ((> j 10))
-	(set! lst (cons `((,i . ,j)
-  			  ,(map ))))))))
-
 (define (edge-painter cr graph)
   (lambda (node)
     (cairo-set-source cr black)
@@ -84,7 +66,7 @@
     surface))
 
 (define my-surface (draw-abstract-graph more-complex-graph))
-(cairo-surface-write-to-png my-surface "graph.png")
+(cairo-surface-write-to-png my-surface (cadr (command-line)))
 (cairo-surface-destroy my-surface)
 
 ;; Local Variables:
diff --git a/run.sh b/run.sh
new file mode 100755
index 0000000..3a7f1d6
--- /dev/null
+++ b/run.sh
@@ -0,0 +1,9 @@
+#!/usr/bin/bash
+
+GRAPH_FILE=/tmp/graph.png
+
+set -e
+
+guile graphgif.scm $GRAPH_FILE
+feh $GRAPH_FILE
+rm $GRAPH_FILE