#lang s-exp rai/stream
(require rai/stream-lib
         rai/synth-lib)
(provide (all-defined-out))

;; See doodle.rkt
;; This is messy exploratory stuff.
;; When cloning, add it to 

;; Connect midi keyboard to m_tune
;; The rest should go to controller keys.

;; FIXME: Make floats log, ints linear.

(define-values
  (main main-defaults)
  (lambda/params (timestep cc14 cc15)
    (let* ((cc14a (+ '20.0 cc14))
           (cc15a (+ '91.0 cc15))
           (f     (p-log 127 cc14a 20 2000.0 timestep)) ;; Osc frequency
           (t1    (p-log 127 cc15a 1200 6100 timestep))
           (tick  (float (timer t1)))    ;; 3500 - 6100 
           (tick1 (float (timer '290.0)))    ;; 3500 - 6100 
           (e1    (env-AR tick '0.84 '0.0069)) ;; .01 - .0003  
           (e2    (env-AR tick1 '0.092 '0.0063)) ;; .00052 - .01
           (s     (* .1 (* e1 (saw-d3 f))))
           (l     (svf-lp s (* e2 '83.0 f) '0.015))
           )
      
      ;; (fdn4 x (vector 113 227 1397 11101.0))

      ;; (megasaw6)
      ;; (tinpan)
      
      (* '0.1 l)
      
      )))

(define main-nsi 0)
(define main-tc '())