diff options
Diffstat (limited to 'examples/demo.scm')
| -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))) |