diff options
| author | Thomas White <taw@physics.org> | 2020-08-30 21:24:29 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2020-08-30 21:24:29 +0200 |
| commit | 9c87690dd43e6b74c631aea553dfb755ad2202b6 (patch) | |
| tree | 1657d2662c6af13f52255b424febb06934b0b928 /examples | |
| parent | c454bd5e208ebc8c9184e51d728b3c91ad117d4c (diff) | |
cue-state and apply-state
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/demo.scm | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/examples/demo.scm b/examples/demo.scm index 359b99b..dd959d3 100644 --- a/examples/demo.scm +++ b/examples/demo.scm @@ -77,20 +77,29 @@ (define cue-list - (list (cue 0 make-empty-state + (list (cue 0 + (cue-state) #:fade-up 1 #:fade-down 1) - (cue 1 (lambda () example-state-1) + (cue 1 + (cue-state (apply-state example-state-1)) #:fade-up 3 #:fade-down 5) - (cue 2 (lambda () example-state-2) + (cue 2 + (cue-state (apply-state example-state-2)) #:fade-up 3 #:fade-down 1 #:down-delay 3) - (cue 3 make-empty-state + (cue 2.5 + (cue-state (apply-state example-state-2) + (at dim1 'intensity 100)) + #:fade-up 1 + #:fade-down 1) + + (cue 3 (cue-state) #:fade-up 0 #:fade-down 2))) |