(define (make-path-line ctx x y width path)
       (define (iter p)
         (if (null? p)
             (canvas-close-path ctx)
             (let ((np (car p)))
               ;(alert np)
               (canvas-line-to ctx (car np) (cdr np))
               (canvas-move-to ctx (car np) (cdr np))
               (iter (cdr p))))
       )
     ;  (alert "path of line" path)

       (canvas-begin-path ctx)
       (canvas-close-path ctx)
       (canvas-move-to ctx x y)
       (iter path)


       )