zzkt/rsc3
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

set bus before linking it in slider. added notes

Browse source
This commit is contained in:
Mustafa 2014-05-17 11:37:08 -07:00
parent f145c1ea7a
commit 6e125ef878
2 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
oregano/TODO.md
View file

@ -8,7 +8,6 @@ Oregano will have these concepts/objects:
- track: like a "track" in renoise. can have notes and a list of filters - track: like a "track" in renoise. can have notes and a list of filters
- instrument: instrument defenitions or presets, and actual instantiated instruments. - instrument: instrument defenitions or presets, and actual instantiated instruments.
- I should make some instrument presets, like sine, saw, square, triangle waves. - I should make some instrument presets, like sine, saw, square, triangle waves.
@ -17,11 +16,23 @@ Oregano will have these concepts/objects:
## Functionality ## Functionality
### Instruments
- [Done] preset instruments
- custom instruments
- adding filters to tracks - adding filters to tracks
- ability to change filter parameters - ability to change filter parameters
- playing a note from an instrument on a track. - 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. - load sound files into buffers, and play them using notes.
- create instruments - create instruments

5
oregano/instrument.rkt
View file

@ -9,6 +9,7 @@
(require (prefix-in gui: racket/gui)) (require (prefix-in gui: racket/gui))
(define frame (new gui:frame% [label "Sliders"])) (define frame (new gui:frame% [label "Sliders"]))
(gui:send frame show #t)
;; parent should be a frame ;; parent should be a frame
(new gui:slider% [parent frame] (new gui:slider% [parent frame]
@ -20,7 +21,6 @@
[callback (lambda (s event) [callback (lambda (s event)
(send-msg (n-set1 1001 "freq" (gui:send s get-value))))]) (send-msg (n-set1 1001 "freq" (gui:send s get-value))))])
(gui:send frame show #t)
;; hypothetical usage ;; hypothetical usage
#;(add-filter track2 (lpf #:resonance .3 #;(add-filter track2 (lpf #:resonance .3
@ -39,6 +39,7 @@
[callback (lambda (s event) [callback (lambda (s event)
(send-msg (send-msg
(c-set1 bus-id (/ (gui:send s get-value) 1000))))]) (c-set1 bus-id (/ (gui:send s get-value) 1000))))])
(send-msg (c-set1 bus-id (/ init 1000)))
(in 1 kr bus-id)) (in 1 kr bus-id))
@ -140,7 +141,7 @@
;; example: ;; example:
(sleep 0.1) (sleep 1)
; (note-on my-sin 500 1) ; (note-on my-sin 500 1)
; (note-off my-sin) ; (note-off my-sin)