@@ -1,19 +1,21 @@
-(use canvas-draw iup)
+(use canvas-draw iup foof-loop)
 (import canvas-draw-iup)
 
 (load "vg.scm")
 
-(define numtorun (if (> (length (argv)) 1)
-		     (string->number (cadr (argv)))
-		     1000))
+(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:components-get-extents
+;;  vg:instances-get-extents)
 
 (define d1 (vg:drawing-new))
 (define l1 (vg:lib-new))
 (define c1 (vg:comp-new))
 (define c2 (vg:comp-new))
@@ -22,10 +24,14 @@
 (let ((r1 (vg:make-rect-obj 20 20 30 30 text: "r1" font: "Helvetica, -20"))
       (r2 (vg:make-rect-obj 30 30 60 60 text: "r2" font: "Helvetica, -10"))
       (t1 (vg:make-text-obj 60 60 "The middle" font: "Helvetica, -10")))
   (vg:add-objs-to-comp c1 r1 r2 t1 bt1))
 
+(loop ((for x (up-from 0 (to 20))))
+       (loop ((for y (up-from 0 (to 20))))
+	     (vg:add-objs-to-comp c1 (vg:make-rect-obj x y (+ x 5)(+ y 5)))))
+      
 (let ((start (current-seconds)))
   (let loop ((i 0))
     (vg:add-obj-to-comp c1 (vg:make-rect-obj 0 0 100 100))
     (if (< i numtorun)(loop (+ i 1))))
   (print "Run time: " (- (current-seconds) start)))