From afa99bad4a3015872392519325a0075fc48973d8 Mon Sep 17 00:00:00 2001 From: Dane Johnson Date: Mon, 13 Nov 2023 02:45:11 -0600 Subject: [PATCH] Not sure what this was --- graphgif.scm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/graphgif.scm b/graphgif.scm index b4a03e4..9a80dec 100644 --- a/graphgif.scm +++ b/graphgif.scm @@ -24,6 +24,24 @@ ((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)