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

updated the example

Browse source
This commit is contained in:
Mustafa 2014-05-27 16:36:56 -07:00
parent 549cbb398a
commit f8f0df7b85
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
oregano/examples/gui-example.rkt
View file

@ -6,18 +6,18 @@
(display "in example.rkt")
(sleep 0.1)
(define my-sin (preset-instrument "sin-inst"))
(define my-sin (make-note "sin-inst" 880))
(param-slider "change frequency" 300 1000 400
(lambda (val)
(set-inst-param my-sin "freq" val)))
(set-note-param my-sin "freq" val)))
(param-check-box "synth on" #f
(lambda (v)
(if v
(inst-on my-sin)
(inst-off my-sin))))
(note-on my-sin)
(note-off my-sin))))
(show-gui)