From 558aa46d0b73770665186bff0cc10ad76b0746ad Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sun, 16 May 2021 11:12:58 +0200 Subject: Get rid of time parameter and use clock objects for cross-fades Because we can stop a clock object, but not "gettimeofday". --- guile/starlet/scanout.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'guile/starlet/scanout.scm') 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 ) (attr-name ) tnow) -- cgit v1.2.3