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

(define samplerate 44100)
(define o (* samplerate 0.1))
(define q (* samplerate 0.25))
(define h (* samplerate 0.5))
(define w (* samplerate 1))
(define ei 5512)
(define si 2756)
(define ts 1378)
(define four (* samplerate .75))
(define pitch 440)

(define (threshold t)
  (cond [(> t 1) 1]
        [(< t -1) -1]
        [else t]))

(define (sinewtf t f)
  (* 1 (threshold
  (+ (* 1 (sin (* twopi t f 1/44100)))
     (- 1 (sin (* twopi t 1/44100)))
     (+ 1 (sin (* twopi f 1/44100)))

))))

(define (horn t f)
  (* 1
  (+ (* 1 (sin (* twopi t f 1/44100)))
     (- 1 (sin (sin (* twopi t 1/44100)))))))

(define test (fun->mono-rsound q samplerate (sawtooth-wave 110 h)))
(define testa (fun->mono-rsound o samplerate (sawtooth-wave 82 h)))
(define testb (fun->mono-rsound q samplerate (sawtooth-wave 98 four)))
(define testc (fun->mono-rsound q samplerate (sawtooth-wave 123 samplerate)))
(define s (make-tone 1 0.5 q samplerate))

(define sine1 (fun->mono-rsound (+ w h) samplerate (signal horn pitch)))
(define sine2 (fun->mono-rsound (+ w h) samplerate (signal horn (* (expt 2 (/ -2 12)) pitch))))
(define sine3 (fun->mono-rsound (+ w h) samplerate (signal horn (* (expt 2 (/ -3 12)) pitch))))
(define sine4 (fun->mono-rsound (+ w h) samplerate (signal horn (* (expt 2 (/ -7 12)) pitch))))
(define sine5 (fun->mono-rsound w samplerate (signal horn (* (expt 2 (/ -5 12)) pitch))))

(define test2 (fun->mono-rsound w samplerate (signal sinewtf 250 )))
(define test3 (fun->mono-rsound w samplerate (signal sinewtf 268 )))

(define test2a (fun->mono-rsound w samplerate (signal sinewtf 130) ))
(define test3b (fun->mono-rsound w samplerate (signal sinewtf 134) ))

(define test2afour (fun->mono-rsound q samplerate (signal sinewtf 150) ))
(define test3bfour (fun->mono-rsound q samplerate (signal sinewtf 200) ))

(define test4 (make-tone 260 0.5 q samplerate))
(define test5 (make-tone 262 0.5 q samplerate))

(define test6 (make-tone 270 0.5 q samplerate))
(define test7 (make-tone 272 0.5 q samplerate))

(define test8 (make-tone 246 0.5 q samplerate))
(define test9 (make-tone 248 0.5 q samplerate))

(define t1 (make-tone 400 0.4 2500 samplerate))
(define t2 (make-tone 600 0.4 2500 samplerate))
(define t3 (make-tone 200 0.4 1025 samplerate))

(define (zap t) (* (tan (sqrt t) ) t t))
(define (yut dur) (fun->mono-rsound dur 44100 zap ))

(define (rsound-reverse t rsound)
  (rsound-ith/left rsound (- (rsound-frames rsound) 1 t)))
(define yutrev (fun->mono-rsound w samplerate (signal rsound-reverse (yut w))))
(define yutrev2 (fun->mono-rsound h samplerate (signal rsound-reverse (yut h))))
(define yutrev3 (fun->mono-rsound q samplerate (signal rsound-reverse (yut q))))
(define yutrev4 (fun->mono-rsound ei samplerate (signal rsound-reverse (yut ei))))
(define yutrev5 (fun->mono-rsound si samplerate (signal rsound-reverse (yut si))))
(define yutrev6 (fun->mono-rsound ts samplerate (signal rsound-reverse (yut ts))))

;(rsound-draw test2)
;(rsound-play t1)

(define trans1
  (rsound-overlay* (list
                    (list sine5 0)
                    (list test 40000)
)))

(define t
  (rsound-overlay* (list
                    (list t1 0)
                    (list t2 0))))
(define poi
  (rsound-clip
  (rsound-overlay* (list
                    (list test2a 0)
                    (list test3b 0)))11000 22000))

(define poipoi
  (rsound-clip
  (rsound-overlay* (list
                    (list test 0)
                    (list poi 0)))0 11000))

(define a
  (rsound-clip
  (rsound-overlay* (list
                    (list test2 22050)
                    (list test3 22050)))40000 60000))

(define b
  (rsound-overlay* (list
                    (list test4 0)
                    (list test5 0))))
(define c
  (rsound-overlay* (list
                    (list test6 0)
                    (list test7 0))))

(define tt (rsound-append* (list
                             t3 t3 t3 t3 t3 t3)))

(define m (rsound-append* (list
                             test testa test testa test testa)))

(define d
  (rsound-overlay* (list
                    (list tt 0)
                    (list m 0))))


;(rsound-play (rsound-append* (list sine1 sine2 sine3 sine4 d bc bc d bc bc bc a a a bc bc bc d t
;                                   t1 t2 t t t1 t2 t t1 t2 t t t1 t2 t t1 t2 t t t1 t2 t t1 t2 t t t1 t2 t t1 t2 t t t1 t2 t t1 t2 t t t1 t2
;                                   t t2 t t t1 t1 d bc bc d bc bc bc a a a bc bc bc d t)))

(define part2 (rsound-append* (list
                               test
                               testa
                               test
                               testb
                               test
                               testb
                               s
                               test
                               s
                               testb
                               s
                              (yut h)
                              (yut q)
                              (yut q)
                              poi
                              s
                              poi
                              (yut h)
                              (yut h)
                              (yut w)
                              yutrev
)))

(define ending (rsound-append* (list
                              yutrev2
                              yutrev3
                              yutrev4
                              yutrev5
                              yutrev6
                              yutrev6
                              yutrev6
                              yutrev6
                              yutrev6
)))

(define part1 (rsound-append* (list
                                   sine1
                                   sine2
                                   sine3
                                   sine4
                                   sine5
                                   trans1
                                   test
                                   s
                                   test
                                   s
                                   test
                                   s
                                   test
                                   s
                                   test
                                   testa
                                   test
                                   testa
                                   s
                                   testa
                                   s
                                   testa
                                   s
                                   testa
                                   s
                                   testb
                                   s
                                   testa
                                   s
                                   testa
                                   s
                                   testa
                                   s
                                   testc
                                   s
                                   test
                                   testa
                                   test
                                   s
                                   test
                                   testa
                                   test
                                   testa
                                   testa
                                   test
                                   testa
                                   test
                                   testa
                                   test
                                   testa
                                   s
                                   poi
                                   s
                                   poi
                                   s
                                   poi
                                   s
                                   poi
                                   poi
                                   poi
                                   test
                                   s
                                   test
                                   testa
                                   test
                                   testb
                                   test
                                   s
                                   test
                                   s
                                   testc
                                   s
                                   testb
)))

(rsound-play (rsound-append* (list
                              part1
                              part2
                              part2
                              ending
)))