Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -2729,19 +2729,27 @@
 			 (vg:make-text-obj (- llx 10)(yfunc minval) (conc minval)))
 			(fold 
 			 (lambda (next prev)  ;; #(time ? val) #(time ? val)
 			   (if prev
 			       (let* ((yval       (vector-ref prev 2))
+                                      (yval-next  (vector-ref next 2))
 				      (last-tval  (tfn   (vector-ref prev 0)))
 				      (last-yval  (yfunc yval)) ;; (+ lly (* yscale (vector-ref prev 2))))
+                                      (next-yval  (yfunc yval-next))
 				      (curr-tval  (tfn   (vector-ref next 0))))
 				 (if (>= curr-tval last-tval)
-				     (vg:add-obj-to-comp
-				      cmp 
-				      (vg:make-rect-obj last-tval lly curr-tval last-yval ;; (- stval 2) lly (+ stval 2)(+ lly (* yval yscale))
-							fill-color: stdcolor
-							line-color: stdcolor))
+                                     (begin
+                                       (vg:add-obj-to-comp
+                                        cmp 
+                                        ;;(vg:make-rect-obj last-tval lly curr-tval last-yval ;; (- stval 2) lly (+ stval 2)(+ lly (* yval yscale))
+                                        (vg:make-line-obj last-tval last-yval curr-tval last-yval
+                                                          line-color: stdcolor))
+                                       (vg:add-obj-to-comp
+                                        cmp 
+                                        ;;(vg:make-rect-obj last-tval lly curr-tval last-yval ;; (- stval 2) lly (+ stval 2)(+ lly (* yval yscale))
+                                        (vg:make-line-obj curr-tval last-yval curr-tval next-yval
+                                                 line-color: stdcolor)))         
 				     (print "ERROR: curr-tval is not > last-tval; curr-tval " curr-tval ", last-tval " last-tval))))
 			   next)
 			 ;; for init create vector tstart,0
 			 #f ;; (vector tstart minval minval)
 			 dat)

Index: vg-test.scm
==================================================================
--- vg-test.scm
+++ vg-test.scm
@@ -7,17 +7,18 @@
 ;; (if (> (length (argv)) 1)
 ;; 		     (string->number (cadr (argv)))
 ;; 		     1000))
 
  (use trace)
- (trace 
-  ;; vg:draw-rect
-  ;; vg:grow-rect
-  vg:get-extents-for-objs
-  vg:components-get-extents
-  vg:instances-get-extents
-  vg:get-extents-for-two-rects)
+ ;; (trace 
+ ;;  ;; vg:draw-rect
+ ;;  ;; vg:grow-rect
+ ;;  vg:get-extents-for-objs
+ ;;  vg:components-get-extents
+ ;;  vg:instances-get-extents
+ ;;  vg:get-extents-for-two-rects
+ ;;  canvas-line!)
 
 (define d1 (vg:drawing-new))
 (define l1 (vg:lib-new))
 (define c1 (vg:comp-new))
 (define c2 (vg:comp-new))
@@ -36,10 +37,12 @@
   (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)))
 
+(vg:add-obj-to-comp c1 (vg:make-line-obj 0 0 100 100))
+
 ;; add the c1 component to lib l1 with name firstcomp
 (vg:add-comp-to-lib l1 "firstcomp" c1)
 (vg:add-comp-to-lib l1 "secondcomp" c2)
 
 ;; add the l1 lib to drawing with name firstlib
@@ -46,10 +49,11 @@
 (vg:add-lib d1 "firstlib" l1)
 
 ;; instantiate firstlib/firstcomp as inst1 in drawing d1 at 0,0
 (vg:instantiate d1 "firstlib" "firstcomp" "inst1" 0 0)
 (vg:instantiate d1 "firstlib" "firstcomp" "inst2" 200 200)
+
 
 ;; (vg:drawing-scalex-set! d1 1.1)
 ;; (vg:drawing-scaley-set! d1 0.5)
 
 ;; (define xtnts (vg:scale-offset-xy 

Index: vg.scm
==================================================================
--- vg.scm
+++ vg.scm
@@ -137,10 +137,11 @@
 ;; get extents, use knowledge of type ...
 ;;
 (define (vg:obj-get-extents drawing obj)
   (let ((type (vg:obj-type obj)))
     (case type
+      ((l)(vg:rect-get-extents obj))
       ((r)(vg:rect-get-extents obj))
       ((t)(vg:draw-text drawing obj draw: #f))
       (else #f))))
 
 (define (vg:rect-get-extents obj)
@@ -388,10 +389,11 @@
 ;; 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))
   (case (vg:obj-type obj)
+    ((l)(vg:draw-line drawing obj draw: draw))
     ((r)(vg:draw-rect drawing obj draw: draw))
     ((t)(vg:draw-text drawing obj draw: draw))))
 
 ;; given a rect obj draw it on the canvas applying first the drawing
 ;; scale and offset
@@ -479,14 +481,14 @@
 	;; (if fill-color
 	;;     (begin
 	;; 	(canvas-foreground-set! cnv fill-color)
 	;; 	(canvas-box! cnv llx ulx lly uly))) ;; docs are all over the place on this one.;; w h)
 	  (if line-color
-	      (canvas-foreground-set! cnv line-color)
-	      (if fill-color
-		  (canvas-foreground-set! cnv prev-foreground-color)))
-	  (canvas-line! cnv llx ulx lly uly)
+	      (canvas-foreground-set! cnv line-color))
+	     ;; (if fill-color
+	     ;;  (canvas-foreground-set! cnv prev-foreground-color)))
+	  (canvas-line! cnv llx lly ulx uly)
 	  (canvas-foreground-set! cnv prev-foreground-color)
 	  (if text 
 	      (let* ((prev-font    (canvas-font cnv))
 		     (font-changed (and font (not (equal? font prev-font)))))
 		(if font-changed (canvas-font-set! cnv font))