diff options
| author | Thomas White <taw@physics.org> | 2021-05-16 11:12:58 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2021-05-16 11:12:58 +0200 |
| commit | 558aa46d0b73770665186bff0cc10ad76b0746ad (patch) | |
| tree | aec074aabb6ecbf78a0f729f1c49cad93e43f47f /guile/starlet/scanout.scm | |
| parent | b77fa5eabb1318a71966fe4cb736c047b4051c6a (diff) | |
Get rid of time parameter and use clock objects for cross-fades
Because we can stop a clock object, but not "gettimeofday".
Diffstat (limited to 'guile/starlet/scanout.scm')
| -rw-r--r-- | guile/starlet/scanout.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/guile/starlet/scanout.scm b/guile/starlet/scanout.scm index e7ab623..c5b95aa 100644 --- a/guile/starlet/scanout.scm +++ b/guile/starlet/scanout.scm @@ -82,7 +82,7 @@ (let ((val (state-find fix attr state))) (if (eq? 'no-value val) #f - (not (eq? 'no-value (value->number val tnow)))))) + (not (eq? 'no-value (value->number val)))))) (define (first-val fix attr tnow state-list) @@ -106,7 +106,7 @@ (let ((val (state-find fix attr-name state))) (if (eq? 'no-value val) prev - (let ((real-val (value->number val tnow))) + (let ((real-val (value->number val))) (if (eq? 'no-value real-val) prev (max real-val prev)))))) @@ -117,10 +117,10 @@ (let ((val (first-val fix attr-name tnow (atomic-box-ref state-list)))) (if (eq? 'no-value val) (get-attr-home-val fix attr-name) - (value->number val tnow)))) + (value->number val)))) ;; Use programmer value, if we have it - (value->number programmer-val tnow)))) + (value->number programmer-val)))) (define-method (current-value (fix <fixture>) (attr-name <colour-component-id>) tnow) |