modified some stuff

oregano/TODO.md

@@ -1,5 +1,17 @@
 
 
+## Wed
+
+- envelopes
+  * learn how envgen works.
+  * make preset envelopes?
+
+- load samples
+
+- sequencing (at)
+
+
+
 
 ## DAW-like model
 
@@ -30,7 +42,7 @@ Oregano will have these concepts/objects:
 - playing a note from an instrument on a track.
   * [done] can play a note from an instrument on bus 0
 
-  * 
-
 - load sound files into buffers, and play them using notes.
   - create instruments 
+  
+

oregano/examples/filters.rkt

@@ -4,8 +4,8 @@
 
 ;; press 'a'
 (make-instrument "my-inst" ([freq 500])
-                 (mul (sin-osc ar (mul-add (lf-pulse ar 15 0 0.5) 200 freq) 0)
+                 (mul (sin-osc ar (mul-add (lf-pulse ar (mouse/x 5 500) 0 0.5) 200 freq) 0)
-                      (mouse-button kr 0 0.1 0.1)))
+                      (mouse-button kr 0 0 0)))
 
 (define phone-note (play-note "my-inst" 600))
 

oregano/instrument.rkt

@@ -124,6 +124,10 @@
   (send-msg (n-run1 (note-id the-note) 0))
   (void))
 
+(define (delete-note the-note)
+  (send-msg (n-free (note-id the-note)))
+  (void))
+  
 
 (define (set-note-param the-note name val)
   (if (eq? name "freq")
@@ -165,10 +169,19 @@
 (show-gui)
 
 ;; example:
-(sleep 0.5)
-; (note-on my-sin 500 1)
 
-; (note-off my-sin)
 
-|#
+
-  
+; (synth-on my-sin 500 1)
+
+; (synth-off my-sin)
+
+
+(note "weird-synth" 400)
+
+(play-note-at 50 mynote)
+
+(envelope A S D R)
+
+
+|#