(require (planet "main.rkt" ("clements" "rsound.plt" 1 7)))
(require (planet "draw.rkt" ("clements" "rsound.plt" 1 7)))

(define (spike t) (* (* (tan(* (sqrt t) 1)) (* t t) ) 1/1000))
(define sound2 (fun->mono-rsound 15435 44100 spike ))

(define poipoi (rsound-append* (
                              list sound2 sound2 sound2
)))

(rsound-play poipoi)