diff options
author | Thomas White <taw@physics.org> | 2021-03-13 12:02:54 +0100 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-03-13 12:02:54 +0100 |
commit | 82438e12b1feb3ba2f026601940c36a1ad0a8429 (patch) | |
tree | 4ce9cf29bc639d7344be4ca4976f95e94f342a41 /examples | |
parent | 79df0f8c3289189387a4e07e24e507445ab85a4d (diff) |
Store the real states in a cue list, not the functions
This shouldn't be a big memory burden, even lots of large states. It
also makes for a more consistent language by allow lighting-state to be
used in cue lists, rather than cue-state.
Diffstat (limited to 'examples')
-rw-r--r-- | examples/demo.scm | 62 |
1 files changed, 31 insertions, 31 deletions
diff --git a/examples/demo.scm b/examples/demo.scm index 3bd07a5..54932da 100644 --- a/examples/demo.scm +++ b/examples/demo.scm @@ -180,44 +180,44 @@ (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)))) + (lighting-state + (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 + (lighting-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))) + (lighting-state + (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))) |