blob: b6069aa8aeda51d16f87aba94a99b846807af928 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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)])))
|