pg071b.rkt

#lang sketching
(define (setup)
  (size 240 120)
  (smoothing 'smoothed)
  (set-frame-rate! 60)

  (stroke-weight 12)
  )


(define (draw)
    (background 204)
    (stroke 102)
    (line mouse-x 0 mouse-x height);;Gray line;
    (stroke 0)
    (define mx (remap mouse-x 0 width 60 180))
    (line mx 0 mx (height)) ;;Black line
  )