From c3f01023c325a3a378b2c25fd054456058b199f8 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Fri, 21 Aug 2020 22:33:41 +0200 Subject: Fix explicit fader values --- examples/demo.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'examples') diff --git a/examples/demo.scm b/examples/demo.scm index 1e78ea7..007e651 100644 --- a/examples/demo.scm +++ b/examples/demo.scm @@ -19,11 +19,11 @@ #:cc-number 19)) (define-state worklight - (let ((fader-pos (lambda () + (let ((fader-pos (lambda (time) (get-controller-value working-light-fader)))) - (at dim11 'intensity (fader-pos)) - (at dim12 'intensity (fader-pos)) - (at dim13 'intensity (fader-pos)))) + (at dim11 'intensity fader-pos) + (at dim12 'intensity fader-pos) + (at dim13 'intensity fader-pos))) (register-state! worklight) @@ -35,10 +35,10 @@ #:cc-number 18)) (define-state movers - (let ((fader-pos (lambda () + (let ((fader-pos (lambda (time) (get-controller-value movers-fader)))) - (at mh1 'intensity (fader-pos)) - (at mh2 'intensity (fader-pos)))) + (at mh1 'intensity fader-pos) + (at mh2 'intensity fader-pos))) (register-state! movers) -- cgit v1.2.3