1 files changed, 62 insertions, 0 deletions
diff --git a/examples/demo.scm b/examples/demo.scm
new file mode 100644
index 0000000..72eadbb
--- /dev/null
+++ b/examples/demo.scm
@@ -0,0 +1,62 @@
+(add-to-load-path "/home/taw/nanolight/guile")
+
+(use-modules
+  (nanolight fixture)
+  (nanolight fixture-library generic)
+  (nanolight fixture-library robe)
+  (nanolight state)
+  (ice-9 textual-ports))
+
+(define output (make-output))
+
+(define mh1 (patch-fixture output (robe-dl7s-profile-mode1) 1 1 "Robe DL7S"))
+(define mh2 (patch-fixture output (robe-dl7s-profile-mode1) 1 52 "Robe DL7S"))
+(define mh3 (patch-fixture output (robe-dl7s-profile-mode1) 1 103 "Robe DL7S"))
+(define mh4 (patch-fixture output (robe-dl7s-profile-mode1) 1 154 "Robe DL7S"))
+
+(define dim1 (patch-fixture output (generic-dimmer) 1 256 "Dimmer"))
+(define dim2 (patch-fixture output (generic-dimmer) 1 257 "Dimmer"))
+(define dim3 (patch-fixture output (generic-dimmer) 1 258 "Dimmer"))
+(define dim4 (patch-fixture output (generic-dimmer) 1 259 "Dimmer"))
+(define dim5 (patch-fixture output (generic-dimmer) 1 260 "Dimmer"))
+(define dim6 (patch-fixture output (generic-dimmer) 1 261 "Dimmer"))
+
+(define-state exstate
+  (flash 2 mh1)
+  (int 0 mh2)
+  (int (+ 30 30) mh3)
+  (int 32 mh4)
+  (int 50 dim1)
+  (int 12 dim2))
+
+(print-state exstate)
+(show-state output exstate)
+
+; (def-cue lx5.7
+;  (xf 'up 10 'down 5 example-state))
+
+(display "Press enter to continue\n")
+(get-char (current-input-port))
+
+(define-state exstate2
+  exstate
+  (int 100 mh1)
+  (int 0 mh4))
+
+(print-state exstate2)
+(show-state output exstate2)
+
+(display "Press enter to continue\n")
+(get-char (current-input-port))
+
+(define-state exstate3
+  (merge-ltp
+    exstate
+    (int 5 mh1)
+    (int 5 mh4)))
+
+(print-state exstate3)
+(show-state output exstate3)
+
+(display "Press enter to continue\n")
+(get-char (current-input-port))