diff options
author | Thomas White <taw@physics.org> | 2020-02-22 09:36:00 +0100 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-02-22 09:36:00 +0100 |
commit | 2590f2ed6f3b7cc0f8a84b56c5d146ece37feade (patch) | |
tree | 7387b5c7221db32862bfe97caf41ec760b16b761 /src/init.scm | |
parent | 3aaa95e835e241190b9e79240c35e71c9591fc97 (diff) |
New "at" function
Diffstat (limited to 'src/init.scm')
-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) |