diff options
| author | Thomas White <taw@physics.org> | 2020-02-20 15:07:03 +0100 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2020-02-20 15:07:03 +0100 |
| commit | 27c34a9e2d210eb00d8bb5a07b57c5373edea98c (patch) | |
| tree | 5cfd62d29065503767615ebd87781b6f9bbcf80d /src/init.scm | |
| parent | a8edc2496b37622374ee1077a508265545bc015f (diff) | |
Add init.scm
Diffstat (limited to 'src/init.scm')
| -rw-r--r-- | src/init.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/init.scm b/src/init.scm new file mode 100644 index 0000000..b6069aa --- /dev/null +++ b/src/init.scm @@ -0,0 +1,16 @@ +(define off + (lambda (fix) + (set-intensity fix 0))) + +(define set-all + (lambda (fixtures level) + (for-each (lambda (fix) + (set-intensity fix level)) + fixtures))) + +(define find-fixture + (lambda (fixtures name) + (cond + [(null? fixtures) #f] + [(eq? (fixture-name (car fixtures)) name) (car fixtures)] + [else (find-fixture (cdr fixtures) name)]))) |