(require (lib "animation.ss" "frtime"))

(define (plot-signal signals&times x-offset y-offset multiplier color)
  (cond [(empty? signals&times) '()]
        [else
         (let ([signal (first (first signals&times))]
               [time (second (first signals&times))])
           (cons (make-graph-string (make-posn (+ x-offset
                                                  (* multiplier time))
                                               y-offset)
                                    signal
                                    color)
                 (plot-signal (rest signals&times)
                              x-offset
                              y-offset
                              multiplier
                              color)))]))

#;(display-shapes (plot-signal '(("hello" 0)
                                 ("world" 50)) 0 20 1 "green"))