#lang racket
(define (car-flot f) ;;TODO: USE OR REMOVE
(car f))
(define (cdr-flot f)
(force (cdr f)))
(define flot-null null)
(define (flot-null? f)
(null? f))
(define-syntax consflot
(syntax-rules ()
((consflot a b) (cons a (delay b)))))



(define (gen-signal a b dt c)
  (gen-signal_inter a b dt c 0)
  )

(define (gen-signal_inter a b dt c step)
 (letrec (
    [signal (lambda(x) (* a (sin (+ c (* b (* x dt))))))]
    [flot (consflot (signal step) (gen-signal_inter a b dt c (+ step 1)))]
    ) flot))

(define flot1 (gen-signal 1 1 0.5 0))