From cef073d789a6b1c7cf9c550e3252f82a3db68060 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sat, 26 Jun 2021 10:53:45 +0200 Subject: Remove tnow parameter from current-value --- guile/starlet/midi-control/faders.scm | 2 +- guile/starlet/scanout.scm | 16 ++++++++-------- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/guile/starlet/midi-control/faders.scm b/guile/starlet/midi-control/faders.scm index ff5e88f..e0108ba 100644 --- a/guile/starlet/midi-control/faders.scm +++ b/guile/starlet/midi-control/faders.scm @@ -79,7 +79,7 @@ (define (current-values fixture-list attr-name) (map (lambda (fix) - (current-value fix attr-name (hirestime))) + (current-value fix attr-name)) fixture-list)) diff --git a/guile/starlet/scanout.scm b/guile/starlet/scanout.scm index 5add2d7..4b7a2e1 100644 --- a/guile/starlet/scanout.scm +++ b/guile/starlet/scanout.scm @@ -113,23 +113,23 @@ (define name (patch-many-real (quote name) stuff ...))))) -(define (state-has-fix-attr fix attr tnow state) +(define (state-has-fix-attr fix attr state) (let ((val (state-find fix attr state))) (if (eq? 'no-value val) #f (not (eq? 'no-value (value->number val)))))) -(define (first-val fix attr tnow state-list) +(define (first-val fix attr state-list) (let ((first-state (find (lambda (state) - (state-has-fix-attr fix attr tnow state)) + (state-has-fix-attr fix attr state)) state-list))) (if first-state (state-find fix attr first-state) 'no-value))) -(define-method (current-value (fix ) (attr-name ) tnow) +(define-method (current-value (fix ) (attr-name )) (let ((programmer-val (state-find fix attr-name programmer-state))) (if (eq? 'no-value programmer-val) @@ -149,7 +149,7 @@ (atomic-box-ref state-list)) ;; Priority order for everything else - (let ((val (first-val fix attr-name tnow (atomic-box-ref state-list)))) + (let ((val (first-val fix attr-name (atomic-box-ref state-list)))) (if (eq? 'no-value val) (get-attr-home-val fix attr-name) (value->number val)))) @@ -158,8 +158,8 @@ (value->number programmer-val)))) -(define-method (current-value (fix ) (attr-name ) tnow) - (let ((colour (current-value fix 'colour tnow))) +(define-method (current-value (fix ) (attr-name )) + (let ((colour (current-value fix 'colour))) (extract-colour-component colour attr-name))) @@ -246,7 +246,7 @@ ;; Helper function to get a value for this ;; fixture in the current state (define (get-attr attr-name) - (current-value fix attr-name (hirestime))) + (current-value fix attr-name)) ;; Helper function to set 8-bit DMX value (define (set-chan relative-channel-number value) -- cgit v1.2.3