1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
-
-
-
-
-
-
+
+
+
+
+
+
+
+
|
(use canvas-draw iup foof-loop)
(import canvas-draw-iup)
(load "vg.scm")
(define numtorun 1000)
;; (if (> (length (argv)) 1)
;; (string->number (cadr (argv)))
;; 1000))
;; (use trace)
;; (trace
;; vg:draw-rect
;; vg:grow-rect
;; vg:components-get-extents
;; vg:instances-get-extents)
|