diff options
| author | Thomas White <taw@bitwiz.me.uk> | 2020-12-30 22:00:43 +0100 |
|---|---|---|
| committer | Thomas White <taw@bitwiz.me.uk> | 2020-12-30 22:00:43 +0100 |
| commit | cdaa5c6abfa5d22353a036a20671ed77d8194864 (patch) | |
| tree | 530b9a419fcdda0570228a93babeb9a5b636fb6d /guile/starlet/playback.scm | |
| parent | 4fde57ac712f2a199a03dc408044a717b1e29a00 (diff) | |
Make set-in-state! private, export set-attr!
Two very similar procedures set-attr is more useful since it can handle
both attribute names and objects.
Diffstat (limited to 'guile/starlet/playback.scm')
| -rw-r--r-- | guile/starlet/playback.scm | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm index ddeb517..3d662e4 100644 --- a/guile/starlet/playback.scm +++ b/guile/starlet/playback.scm @@ -278,42 +278,42 @@ ;; Non-intensity attribute ((not (intensity? attr)) - (set-in-state! pb fix attr (wrap-fade (fade-previous fade-record) - (fade-target fade-record) - attr-time - attr-delay - (fade-start-time fade-record)))) + (set-attr! pb fix attr (wrap-fade (fade-previous fade-record) + (fade-target fade-record) + attr-time + attr-delay + (fade-start-time fade-record)))) ;; Number to number, fading up ((and (number? target) (number? prev-val) (> target prev-val)) - (set-in-state! pb fix attr (wrap-fade prev-val - target - up-time - up-delay - (fade-start-time fade-record)))) + (set-attr! pb fix attr (wrap-fade prev-val + target + up-time + up-delay + (fade-start-time fade-record)))) ;; Number to number, fading down ((and (number? target) (number? prev-val) (< target prev-val)) - (set-in-state! pb fix attr (wrap-fade prev-val - target - down-time - down-delay - (fade-start-time fade-record)))) + (set-attr! pb fix attr (wrap-fade prev-val + target + down-time + down-delay + (fade-start-time fade-record)))) ;; Number to number, staying the same ((and (number? target) (number? prev-val)) - (set-in-state! pb fix attr (wrap-fade prev-val - target - 0.0 - 0.0 - (fade-start-time fade-record)))) + (set-attr! pb fix attr (wrap-fade prev-val + target + 0.0 + 0.0 + (fade-start-time fade-record)))) ;; Everything else, e.g. number to effect (else - (set-in-state! pb fix attr (wrap-xf (fade-previous fade-record) - (fade-target fade-record) - (get-fade-record-fade-times fade-record) - (fade-start-time fade-record)))))))) + (set-attr! pb fix attr (wrap-xf (fade-previous fade-record) + (fade-target fade-record) + (get-fade-record-fade-times fade-record) + (fade-start-time fade-record)))))))) (define (fade-finished? tnow fade-record) |