diff options
author | Thomas White <taw@physics.org> | 2020-07-30 23:23:47 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-07-30 23:23:47 +0200 |
commit | e99c98779408d93198741ce9211f5b8dece23b7d (patch) | |
tree | 1e5e8774a2a82b424a3a9f33d3a092548b2dc90f /examples/demo.scm | |
parent | 095485a24a01cf01fb8dfb76d103c17d8b1ae9a8 (diff) |
Add example files
Diffstat (limited to 'examples/demo.scm')
-rw-r--r-- | examples/demo.scm | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/examples/demo.scm b/examples/demo.scm new file mode 100644 index 0000000..cf5658d --- /dev/null +++ b/examples/demo.scm @@ -0,0 +1,60 @@ +;; Example invokation, from top level project folder: +;; $ guile -L guile -l examples/demo.scm + +(use-modules + (starlet base) + (starlet effects) + (venues demo-venue) + (guile-midi control)) + +(start-ola-output) +(start-midi-control "/dev/snd/midiC1D0") + +(define working-light-fader + (make-midi-controller #:channel 14 + #:cc-number 19)) + +(define pot1 + (make-midi-controller #:channel 14 + #:cc-number 7)) + +(define wksp (make-workspace)) + +(define (example-state wksp) + + (blackout wksp) + + ;; Front wash + (set-attr! wksp dim11 'intensity + (lambda (a) + (get-controller-value working-light-fader))) + (set-attr! wksp dim12 'intensity + (lambda (a) + (get-controller-value working-light-fader))) + (set-attr! wksp dim13 'intensity + (lambda (a) + (get-controller-value working-light-fader))) + + ;; Sidelight + (set-attr! wksp dim7 'intensity (flash 2)) + (set-attr! wksp dim8 'intensity 50) + + (set-attr! wksp dim48 'intensity + (lambda (a) + (get-controller-value pot1)))) + + +(define (example2 wksp) + + (blackout wksp) + + ;; Front wash + (set-attr! wksp dim1 'intensity 10) + (set-attr! wksp dim2 'intensity 10) + (set-attr! wksp dim3 'intensity 10) + + ;; Sidelight + (set-attr! wksp dim7 'intensity (flash 5)) + (set-attr! wksp dim8 'intensity 50)) + +(example-state wksp) |