diff options
author | Thomas White <taw@bitwiz.me.uk> | 2020-06-05 10:41:11 +0200 |
---|---|---|
committer | Thomas White <taw@bitwiz.me.uk> | 2020-06-05 10:41:23 +0200 |
commit | c51d80b3411d482286b8ecd4da407ab59563233e (patch) | |
tree | 00b62c330c5680a4131c2a537d4302412e5307b7 /examples/demo.scm | |
parent | dda44b52d0566ece360d4647398bcb01677d6912 (diff) |
WIPtemp
Diffstat (limited to 'examples/demo.scm')
-rw-r--r-- | examples/demo.scm | 62 |
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)) |