diff options
author | Thomas White <taw@physics.org> | 2022-03-19 18:44:23 +0100 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2022-03-19 18:44:23 +0100 |
commit | 38107e9cc8628311154f569bd27c33b8c02814cf (patch) | |
tree | 6b366c7bcdcda6c2accef2bb7839dd59fc234b39 /guile/starlet/snap-transition.scm | |
parent | 076f7282d65ce6f1adcbd712821b89b668e4776c (diff) |
Set unused intensities to zero in transition effects
This becomes important when running cues out of order.
Diffstat (limited to 'guile/starlet/snap-transition.scm')
-rw-r--r-- | guile/starlet/snap-transition.scm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/guile/starlet/snap-transition.scm b/guile/starlet/snap-transition.scm index 8101890..dab6b05 100644 --- a/guile/starlet/snap-transition.scm +++ b/guile/starlet/snap-transition.scm @@ -22,13 +22,26 @@ #:use-module (oop goops) #:use-module (starlet playback) #:use-module (starlet state) + #:use-module (starlet fixture) #:use-module (starlet transition-effect) #:export (snap)) + +(define (blank-everything in-state) + (let ((out-state (make-empty-state))) + (state-for-each + (lambda (fix attr val) + (if (intensity? attr) + (set-in-state! out-state fix attr (lambda () 0.0)) + (set-in-state! out-state fix attr (lambda () 'no-value)))) + in-state) + out-state)) + + (define (snap) (make-transition (incoming-state current-state clock) - (let ((overlay-state (make-empty-state))) + (let ((overlay-state (blank-everything current-state))) (state-for-each (lambda (fix attr val) (set-in-state! overlay-state |