Do it without asking

2024-10-23 09:46:15 -05:00
parent 495e4ac5a5
commit 332b4dc6b3
2 changed files with 4 additions and 3 deletions
--- a/demo.scm
+++ b/demo.scm
@@ -8,6 +8,6 @@
 (define graph1 (generate-web 10 10))
 (define graph2
  (~> (copy-tree graph1)
-      (remove-rect 10 3 3 4 5)
-      (remove-rect 10 3 3 6 4)))
+      (remove-rect 10 1 3 6 3)
+      (remove-rect 10 6 3 6 7)))
 (write-graphs-to-file (vector graph1 graph2) "graph.webp")