diff options
| author | Thomas White <taw@physics.org> | 2020-08-20 17:27:10 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2020-08-20 17:27:10 +0200 |
| commit | 495e117dfd75dc2d0eb6ef85b13a90a604d526e0 (patch) | |
| tree | 45f455ea04ac6e9f7e35fe01128aa2e901836d40 /guile/starlet/fixture-library | |
| parent | 5a67759a775f23fb2b5a22fd31a81f4c9d3ad9ee (diff) | |
Macros for fixture attributes
Diffstat (limited to 'guile/starlet/fixture-library')
| -rw-r--r-- | guile/starlet/fixture-library/generic.scm | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/guile/starlet/fixture-library/generic.scm b/guile/starlet/fixture-library/generic.scm index b92569d..f90bf3a 100644 --- a/guile/starlet/fixture-library/generic.scm +++ b/guile/starlet/fixture-library/generic.scm @@ -4,16 +4,9 @@ #:export (<generic-dimmer>)) (define-class <generic-dimmer> (<fixture>) - (attributes - #:init-form - (list - - (make <fixture-attribute> - #:name 'intensity - #:range '(0 100) - #:type 'continuous - #:home-value 0)))) + #:init-form (list + (attr-continuous 'intensity '(0 100) 0)))) (define-method (scanout-fixture (fixture <generic-dimmer>) |