added gui.rkt

oregano/gui.rkt

@@ -0,0 +1,79 @@
+#lang racket
+
+(require rsc3 rhs/rhs)
+(require (prefix-in gui: racket/gui))
+
+(provide (all-defined-out))
+
+(define frame (new gui:frame% [label "Sliders"]))
+
+(define (show-gui)
+  (gui:send frame show #t))
+
+(define (hide-gui)
+  (gui:send frame show #f))
+
+
+(define (param-slider name min-n max-n init-n func)
+  (new gui:slider% [parent frame]
+       [label name]
+       [min-value min-n]
+       [max-value max-n]
+       [init-value init-n]
+       ;; callback receives the slider object and an event object
+       [callback (lambda (s event)
+                   (func (gui:send s get-value)))])
+  (func init-n))
+
+#;(param-slider "change frequency" 300 1000 400
+                (lambda (val)
+                  (set-inst-param 1001 "freq" val)))
+
+#;(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))))])
+
+
+;; hypothetical usage
+#;(add-filter track2 (lpf #:resonance .3
+                        #:cutoff (slider 300 800 500)))
+
+(define (signal-slider name min-n max-n init)
+  ;; TODO - determine available bus
+  (define bus-id 16)
+  
+  (new gui:slider% [parent frame]
+     [label name]
+     [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))))])
+  (send-msg (c-set1 bus-id (/ init 1000)))
+  (in 1 kr bus-id))
+
+(define (param-check-box name init-value func)
+  (new gui:check-box%
+       [label name]
+       [parent frame]
+       [value init-value]
+       [callback (lambda (element event)
+                   (func (gui:send element get-value)))]))
+  
+#;(new gui:check-box%
+     [label "note-on"]
+     [parent frame]
+     [value #f]
+     [callback (lambda (element event)
+                   (if (gui:send element get-value)
+                       (send-msg (n-run1 1001 1))
+                       (send-msg (n-run1 1001 0))))])
+                      
+