Update README.md and add demo file

1 files changed, 236 insertions, 0 deletions

diff --git a/examples/demo.scm b/examples/demo.scm
new file mode 100644
index 0000000..3bd07a5
--- /dev/null
+++ b/examples/demo.scm
@@ -0,0 +1,236 @@
+#!/usr/bin/guile
+!#
+
+(define useful-links
+
+  (list
+
+    '((Starlet)     (https://github.com/taw10/starlet))
+
+    '((Conjure)   (https://conjure.fun/))
+
+    '((Video: Conversational Software Development by Oliver Caldwell)
+      (https://www.youtube.com/watch?v=RU28xy9JXxs))
+
+    '((Open Lighting Project)   (https://www.openlighting.org/))
+
+    '((ChamSys MagicVis) (https://chamsyslighting.com/products/magicq))))
+
+
+;; Very basic Conjure demo
+(+ 1 1)
+(define a 5)
+(* a 3)
+(reverse '(a b c d e f))
+
+
+;; Basic setup
+(use-modules
+  (starlet base)
+  (starlet playback)
+  (starlet effects)
+  (starlet fixture-library generic)
+  (starlet fixture-library robe)
+  (starlet midi-control base)
+  (starlet midi-control button-utils)
+  (starlet midi-control faders))
+
+;; Start readout to OLA
+(start-ola-output)
+
+;; Start MIDI control
+(start-midi-control "/dev/snd/midiC0D0"
+            #:channel 14)
+
+;; Fixtures are normal GOOPS objects, fixture types are GOOPS classes
+(patch-fixture! foh1 <generic-dimmer> 8)
+(patch-fixture! foh2 <generic-dimmer> 7)
+(patch-fixture! foh3 <generic-dimmer> 6)
+(patch-fixture! foh4 <generic-dimmer> 5)
+(patch-fixture! foh5 <generic-dimmer> 4)
+(patch-fixture! foh6 <generic-dimmer> 3)
+(patch-fixture! foh7 <generic-dimmer> 2)
+(patch-fixture! foh8 <generic-dimmer> 1)
+
+(patch-fixture! red1 <generic-dimmer> 9)
+(patch-fixture! red2 <generic-dimmer> 13)
+(patch-fixture! red3 <generic-dimmer> 20)
+(patch-fixture! red4 <generic-dimmer> 24)
+
+(patch-fixture! ltruss1 <robe-mmxspot-mode1> 1 #:universe 1)
+(patch-fixture! ltruss2 <robe-mmxspot-mode1> 39 #:universe 1)
+(patch-fixture! ltruss3 <robe-mmxspot-mode1> 77 #:universe 1)
+(patch-fixture! ltruss4 <robe-mmxspot-mode1> 115 #:universe 1)
+(patch-fixture! ltruss5 <robe-mmxspot-mode1> 153 #:universe 1)
+(patch-fixture! ltruss6 <robe-mmxspot-mode1> 191 #:universe 1)
+
+(patch-fixture! rtruss1 <robe-mmxspot-mode1> 229 #:universe 1)
+(patch-fixture! rtruss2 <robe-mmxspot-mode1> 267 #:universe 1)
+(patch-fixture! rtruss3 <robe-mmxspot-mode1> 305 #:universe 1)
+(patch-fixture! rtruss4 <robe-mmxspot-mode1> 343 #:universe 1)
+(patch-fixture! rtruss5 <robe-mmxspot-mode1> 381 #:universe 1)
+(patch-fixture! rtruss6 <robe-mmxspot-mode1> 419 #:universe 1)
+
+(patch-fixture! floor1 <robe-mmxwashbeam-mode1> 100)
+(patch-fixture! floor2 <robe-mmxwashbeam-mode1> 134)
+(patch-fixture! floor3 <robe-mmxwashbeam-mode1> 168)
+(patch-fixture! floor4 <robe-mmxwashbeam-mode1> 202)
+(patch-fixture! floor5 <robe-mmxwashbeam-mode1> 236)
+(patch-fixture! floor6 <robe-mmxwashbeam-mode1> 270)
+
+
+;; Set a parameter
+(at foh1 'intensity 80)
+(at floor4 'intensity 100)
+(at floor4 'cyan 80)
+
+
+;; If parameter is not specified, 'intensity' is understood
+(at red1 100)
+
+
+;; Functions can be assigned to parameters
+(at foh1 'intensity (lambda (time)
+                      (* 50
+                         (+ 1 (sin (* 2 time))))))
+
+
+;; Effects library
+(at floor2 'intensity 100)
+(at floor2 'yellow 100)
+(at floor2 'pan 0)
+(at floor2 'tilt (sinewave 0.5 100 170))
+
+
+;; Clean up
+(clear-state! programmer-state)
+
+
+;; Fixtures can be grouped together
+(define rtruss (list rtruss1
+                     rtruss2
+                     rtruss3
+                     rtruss4
+                     rtruss5
+                     rtruss6))
+
+(define floor (list floor1
+                    floor2
+                    floor3
+                    floor4
+                    floor5
+                    floor6))
+
+(define red (list red1
+                  red2
+                  red3
+                  red4))
+
+(define foh (list foh1
+                  foh2
+                  foh3
+                  foh4
+                  foh5
+                  foh6
+                  foh7
+                  foh8))
+
+(at red 100)
+(at rtruss 100)
+(at rtruss 'zoom 80)
+(at rtruss 'magenta 100)
+(at rtruss 'yellow 40)
+(at rtruss 'tilt 70)
+(at rtruss 'pan 200)
+(at rtruss 'prism #f)
+
+
+;; Clean up again
+(clear-state! programmer-state)
+
+
+;; Control fixtures via MIDI surface
+(sel ltruss6)
+(at 100)        ;; Without fixture name 'at' applies to selected fixture(s)
+(sel rtruss1)
+(sel #f)
+
+
+;; Record a state to a variable, then clear up
+(define my-state
+  (state-source programmer-state))
+
+(clear-state! programmer-state)
+
+
+;; Recall a stored state
+(apply-state my-state)
+
+(clear-state! programmer-state)
+
+
+;; Put a lighting state on a MIDI fader
+(state-on-fader 19
+                (lighting-state
+                  (apply-state my-state)))
+
+
+;; Create a cue list
+(define my-cue-list
+  (cue-list
+
+    (cue 1
+         (cue-state
+           (begin (at ltruss1 (quote pan) 206)
+                  (at rtruss6 (quote pan) 334)
+                  (at ltruss1 (quote yellow) 3800/127)
+                  (at rtruss6 (quote tilt) 111)
+                  (at rtruss6 (quote yellow) 3100/127)
+                  (at ltruss1 (quote tilt) 108.0)
+                  (at ltruss1 (quote magenta) 600/127)
+                  (at ltruss1 (quote intensity) 109)
+                  (at red4 (quote intensity) 30)
+                  (at red3 (quote intensity) 30)
+                  (at red1 (quote intensity) 30)
+                  (at rtruss6 (quote intensity) 133)
+                  (at rtruss6 (quote zoom) 4200/127)
+                  (at rtruss6 (quote magenta) 100/127)
+                  (at red2 (quote intensity) 30)
+                  (at ltruss1 (quote zoom) 6300/127))))
+
+    (cue 2
+         (cue-state
+           (apply-state my-state))
+         #:up-time 1
+         #:down-time 1)
+
+    (cue 3
+         (cue-state
+           (begin (at floor3 (quote magenta) 11500/127)
+                  (at floor3 (quote pan) 299)
+                  (at floor3 (quote intensity) 156)
+                  (at floor3 (quote tilt) 48)
+                  (at floor4 (quote magenta) 11200/127)
+                  (at floor4 (quote cyan) 200/127)
+                  (at floor3 (quote yellow) 100)
+                  (at floor4 (quote intensity) 127)
+                  (at floor4 (quote yellow) 10000/127)
+                  (at floor4 (quote pan) 239)
+                  (at floor2 (quote intensity) -58)
+                  (at floor4 (quote tilt) 49)))
+         #:up-time 3
+         #:down-time 3)))
+
+
+(define pb
+  (make-playback my-cue-list))
+
+(cut-to-cue-number! pb 0)
+
+
+;; Run cues
+(go! pb)
+
+
+;: Jump between cues
+(cut-to-cue-number! pb 1)