From c51d80b3411d482286b8ecd4da407ab59563233e Mon Sep 17 00:00:00 2001 From: Thomas White Date: Fri, 5 Jun 2020 10:41:11 +0200 Subject: WIP --- examples/demo.scm | 62 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 62 insertions(+) create mode 100644 examples/demo.scm (limited to 'examples/demo.scm') 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)) -- cgit v1.2.3