@@ -246,11 +246,11 @@
 
 ;; with get-extents = #t return the extents
 ;; with draw = #f don't actually draw the object
 ;;
 (define (vg:draw-obj drawing obj #!key (draw #t))
-  (print "obj type: " (vg:obj-type obj))
+  ;; (print "obj type: " (vg:obj-type obj))
   (case (vg:obj-type obj)
     ((r)(vg:draw-rect drawing obj draw: draw))))
 
 ;; given a rect obj draw it on the canvas applying first the drawing
 ;; scale and offset
@@ -272,17 +272,17 @@
      (lambda (instname)
        (let* ((inst     (hash-table-ref insts instname))
 	      (libname  (vg:inst-libname inst))
 	      (compname (vg:inst-compname inst))
 	      (comp     (vg:get-component drawing libname compname)))
-	 (print "comp: " comp)
+	 ;; (print "comp: " comp)
 	 (for-each
 	  (lambda (obj)
-	    (print "obj: " (vg:obj-pts obj))
+	    ;; (print "obj: " (vg:obj-pts obj))
 	    (let ((obj-xfrmd (vg:map-obj drawing inst obj)))
-	      (print "obj-xfrmd: " (vg:obj-pts obj-xfrmd))
+	      ;; (print "obj-xfrmd: " (vg:obj-pts obj-xfrmd))
 	      (set! res (cons (vg:draw-obj drawing obj-xfrmd draw: draw-mode) res)))) ;;
 	  (vg:comp-objs comp))))
      (if (null? instnames)
 	 (hash-table-keys insts)
 	 instnames))
     res)) ;;  (hash-table-values insts))))