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

added sliders

Browse source
This commit is contained in:
Mustafa 2014-05-15 17:57:13 -07:00
parent e35dc88845
commit b3236c87fd
2 changed files with 53 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
oregano/Tutorial.md
View file

@ -123,7 +123,11 @@ When the mouse is at the left of the screen, the frequency is 200, when the mous
### Sliders
(add-effect track3 (low-pass-filter resonance
(slider : 200 500)))

56
oregano/instrument.rkt
View file

@ -1,12 +1,53 @@
#lang racket
(require rsc3 rhs/rhs)
;; --- gui stuff
(require (prefix-in gui: racket/gui))
(define frame (new gui:frame% [label "Example"]))
;; parent should be a frame
(new gui:slider% [parent frame]
[label "freq"]
[min-value 300]
[max-value 1000]
[init-value 400]
;; callback receives the slider object and an event object
[callback (lambda (s event)
(send-msg (n-set1 1001 "freq" (gui:send s get-value))))])
(gui:send frame show #t)
;; simplifies sending messages to server
;; hypothetical usage
#;(add-filter track2 (lpf #:resonance .3
#:cutoff (slider 300 800 500)))
(define (slider min-n max-n init)
(define bus-id 16)
(new gui:slider% [parent frame]
[label "amp"]
[min-value min-n]
[max-value max-n]
[init-value init]
;; callback receives the slider object and an event object
[callback (lambda (s event)
(send-msg
(c-set1 bus-id (/ (gui:send s get-value) 1000))))])
(in 1 kr bus-id))
; -------
;; simplifies sending osc messages to server
(define (send-msg msg)
(with-sc3 (lambda (fd)
(send fd msg))))
@ -25,7 +66,7 @@
(define sin-instrument
(letc ([bus 0]
[freq 440])
(out bus (mul 0.2 (sin-osc ar freq 0)))))
(out bus (mul (slider 100 800 200) (sin-osc ar freq 0)))))
(define saw-instrument
(letc ([bus 0]
@ -41,7 +82,7 @@
;; send synthdefs
(with-sc3 (lambda (fd)
(send-synth fd "sin-inst" (wave-instrument sin-osc))
(send-synth fd "sin-inst" sin-instrument) ; (wave-instrument sin-osc))
(send-synth fd "saw-inst" saw-instrument)))
@ -67,10 +108,6 @@
- to stop/run:
(send-msg (n-run1 1001 1))
-
|#
;; ======== test run ===========
@ -85,3 +122,4 @@
; (note-off my-sin)