diff options
author | Thomas White <taw@physics.org> | 2020-08-21 22:33:41 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-08-21 22:33:41 +0200 |
commit | c3f01023c325a3a378b2c25fd054456058b199f8 (patch) | |
tree | 6c03fde87b4b9754e74d4fcee0d10833271686f1 /examples/demo.scm | |
parent | d7468e259e77cfd64568dc50ba5c378145e5db7e (diff) |
Fix explicit fader values
Diffstat (limited to 'examples/demo.scm')
-rw-r--r-- | examples/demo.scm | 14 |
1 files changed, 7 insertions, 7 deletions
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) |