diff options
| author | Thomas White <taw@physics.org> | 2022-05-06 16:27:41 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2022-05-06 16:36:09 +0200 |
| commit | 4552ce9ecb3e49f1c54a52fd41375b2f9c40c9e8 (patch) | |
| tree | 58037d7402f5c168d404c0a0620dcfa93fcaee4a /guile/starlet/fixture-library/generic | |
| parent | 43d00c233d4bda38bc5882e7fe1ca2f37837fef2 (diff) | |
define-fixture: Eliminate need to provide names for get-attr etc
This needed some rearranging, but I think the resulting code is a little
bit more efficient.
Diffstat (limited to 'guile/starlet/fixture-library/generic')
| -rw-r--r-- | guile/starlet/fixture-library/generic/dimmer.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/guile/starlet/fixture-library/generic/dimmer.scm b/guile/starlet/fixture-library/generic/dimmer.scm index 844b697..e823dc7 100644 --- a/guile/starlet/fixture-library/generic/dimmer.scm +++ b/guile/starlet/fixture-library/generic/dimmer.scm @@ -19,6 +19,7 @@ ;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;; (define-module (starlet fixture-library generic dimmer) + #:use-module (starlet scanout) #:use-module (starlet fixture) #:use-module (starlet utils) #:export (<generic-dimmer>)) @@ -27,10 +28,8 @@ <generic-dimmer> - (list + (fixture-attributes (attr-continuous 'intensity '(0 100) 0)) - (get-attr set-chan8) - (set-chan8 1 (percent->dmxval8 (get-attr 'intensity)))) |