#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))


(define (flot->liste n flot)
  (flot->liste_inter 0 n flot)
  )

(define (flot->liste_inter i n flot)
  (
   if (= i n) '()
       (cons (car-flot flot) (flot->liste_inter (+ i 1) n (cdr-flot flot)))

  ))

(flot->liste 10 flot1)