diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/init.scm | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/src/init.scm b/src/init.scm index f875ce3..93747ba 100644 --- a/src/init.scm +++ b/src/init.scm @@ -1,12 +1,9 @@ -(define off - (lambda (fix) - (set-intensity fix 0))) +(define at + (lambda (fix level) + (if (list? fix) + (for-each (lambda (q) (at q level)) fix) + (set-intensity (find-fixture fixtures fix) level)))) -(define set-all - (lambda (fixtures level) - (for-each (lambda (fix) - (set-intensity fix level)) - fixtures))) (define find-fixture (lambda (fixtures name) |