Remove a section of the web

2024-10-22 08:51:33 -05:00
parent a3f0ee2eb9
commit 31f4707fbf
2 changed files with 23 additions and 1 deletions
--- a/demo.scm
+++ b/demo.scm
@@ -5,6 +5,6 @@
 (define red (create-color 1 0 0))

 (define graph1 (generate-web 10 10))
-(define graph2 (copy-tree graph1))
+(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")