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 | |
parent | 095485a24a01cf01fb8dfb76d103c17d8b1ae9a8 (diff) |
Add example files
-rw-r--r-- | examples/demo.scm | 60 | ||||
-rw-r--r-- | guile/venues/demo-venue.scm | 57 |
2 files changed, 117 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) diff --git a/guile/venues/demo-venue.scm b/guile/venues/demo-venue.scm new file mode 100644 index 0000000..2ec1eec --- /dev/null +++ b/guile/venues/demo-venue.scm @@ -0,0 +1,57 @@ +(define-module (venues demo-venue) + #:use-module (starlet base) + #:use-module (starlet fixture-library generic)) + +;; Conventional dimmers (1-48) +(define-public dim1 (patch-fixture <generic-dimmer> 1)) +(define-public dim2 (patch-fixture <generic-dimmer> 2)) +(define-public dim3 (patch-fixture <generic-dimmer> 3)) +(define-public dim4 (patch-fixture <generic-dimmer> 4)) +(define-public dim5 (patch-fixture <generic-dimmer> 5)) +(define-public dim6 (patch-fixture <generic-dimmer> 6)) +(define-public dim7 (patch-fixture <generic-dimmer> 7)) +(define-public dim8 (patch-fixture <generic-dimmer> 8)) +(define-public dim9 (patch-fixture <generic-dimmer> 9)) + +(define-public dim10 (patch-fixture <generic-dimmer> 10)) +(define-public dim11 (patch-fixture <generic-dimmer> 11)) +(define-public dim12 (patch-fixture <generic-dimmer> 12)) +(define-public dim13 (patch-fixture <generic-dimmer> 13)) +(define-public dim14 (patch-fixture <generic-dimmer> 14)) +(define-public dim15 (patch-fixture <generic-dimmer> 15)) +(define-public dim16 (patch-fixture <generic-dimmer> 16)) +(define-public dim17 (patch-fixture <generic-dimmer> 17)) +(define-public dim18 (patch-fixture <generic-dimmer> 18)) +(define-public dim19 (patch-fixture <generic-dimmer> 19)) + +(define-public dim20 (patch-fixture <generic-dimmer> 20)) +(define-public dim21 (patch-fixture <generic-dimmer> 21)) +(define-public dim22 (patch-fixture <generic-dimmer> 22)) +(define-public dim23 (patch-fixture <generic-dimmer> 23)) +(define-public dim24 (patch-fixture <generic-dimmer> 24)) +(define-public dim25 (patch-fixture <generic-dimmer> 25)) +(define-public dim26 (patch-fixture <generic-dimmer> 26)) +(define-public dim27 (patch-fixture <generic-dimmer> 27)) +(define-public dim28 (patch-fixture <generic-dimmer> 28)) +(define-public dim29 (patch-fixture <generic-dimmer> 29)) + +(define-public dim30 (patch-fixture <generic-dimmer> 30)) +(define-public dim31 (patch-fixture <generic-dimmer> 31)) +(define-public dim32 (patch-fixture <generic-dimmer> 32)) +(define-public dim33 (patch-fixture <generic-dimmer> 33)) +(define-public dim34 (patch-fixture <generic-dimmer> 34)) +(define-public dim35 (patch-fixture <generic-dimmer> 35)) +(define-public dim36 (patch-fixture <generic-dimmer> 36)) +(define-public dim37 (patch-fixture <generic-dimmer> 37)) +(define-public dim38 (patch-fixture <generic-dimmer> 38)) +(define-public dim39 (patch-fixture <generic-dimmer> 39)) + +(define-public dim40 (patch-fixture <generic-dimmer> 40)) +(define-public dim41 (patch-fixture <generic-dimmer> 41)) +(define-public dim42 (patch-fixture <generic-dimmer> 42)) +(define-public dim43 (patch-fixture <generic-dimmer> 43)) +(define-public dim44 (patch-fixture <generic-dimmer> 44)) +(define-public dim45 (patch-fixture <generic-dimmer> 45)) +(define-public dim46 (patch-fixture <generic-dimmer> 46)) +(define-public dim47 (patch-fixture <generic-dimmer> 47)) +(define-public dim48 (patch-fixture <generic-dimmer> 48)) |