diff options
author | Thomas White <taw@physics.org> | 2021-10-24 12:13:16 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-10-24 18:42:11 +0200 |
commit | b5d397eac92e84047be0a6bf676b1d533271010c (patch) | |
tree | 644a43a627a0494f019ea6c55357a7c3382d6ad5 | |
parent | fead43e69edb5ea62b72a8b97c99efbd10403e68 (diff) |
Formatting
-rw-r--r-- | guile/starlet/playback.scm | 70 |
1 files changed, 35 insertions, 35 deletions
diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm index 6211a8a..810250f 100644 --- a/guile/starlet/playback.scm +++ b/guile/starlet/playback.scm @@ -409,18 +409,18 @@ (not (eq? target-val 'no-value)) (not (eq? start-val 'no-value))) - ;; It makes sense to do a fade - (let ((real-start-val (value->number start-val))) - (lambda () - (fade-func real-start-val - target-val - clock))) - - ;; A fade doesn't make sense, so make do with a snap transition + ;; It makes sense to do a fade + (let ((real-start-val (value->number start-val))) (lambda () - (snap-fade start-val + (fade-func real-start-val target-val - clock)))) + clock))) + + ;; A fade doesn't make sense, so make do with a snap transition + (lambda () + (snap-fade start-val + target-val + clock)))) (define (match-fix-attr attr-el fix attr) @@ -638,31 +638,31 @@ (define cue (lambda (number state . rest) (receive (cue-parts rest-minus-cue-parts) - (partition cue-part? rest) - (let-keywords rest-minus-cue-parts #f - ((up-time 5) - (down-time 5) - (attr-time 0) - (up-delay 0) - (down-delay 0) - (attr-delay 0) - (preset-time 1) - (track-intensities #f)) - - (make-cue (qnum number) - state - #f ;; tracked state - #f ;; preset state - (make-fade-times - up-time - down-time - attr-time - up-delay - down-delay - attr-delay) - preset-time - track-intensities - cue-parts))))) + (partition cue-part? rest) + (let-keywords rest-minus-cue-parts #f + ((up-time 5) + (down-time 5) + (attr-time 0) + (up-delay 0) + (down-delay 0) + (attr-delay 0) + (preset-time 1) + (track-intensities #f)) + + (make-cue (qnum number) + state + #f ;; tracked state + #f ;; preset state + (make-fade-times + up-time + down-time + attr-time + up-delay + down-delay + attr-delay) + preset-time + track-intensities + cue-parts))))) (define (track-all-cues! the-cue-list) |