diff options
| author | Thomas White <taw@physics.org> | 2022-04-24 18:21:15 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2022-04-24 18:21:15 +0200 |
| commit | ce607588e8ccf2257fc7f1863f967e52a565ce7a (patch) | |
| tree | f8656aba352a285005cde59938419ae07e39df9f /guile/starlet/fixture-library/generic/dimmer.scm | |
| parent | 9411275e9f6dcee09923329d54fd6e6e439a497d (diff) | |
Convert some fixtures to use define-fixture
Also fixes an obvious bug in <adj-mega-tripar-profile-4ch>
Diffstat (limited to 'guile/starlet/fixture-library/generic/dimmer.scm')
| -rw-r--r-- | guile/starlet/fixture-library/generic/dimmer.scm | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/guile/starlet/fixture-library/generic/dimmer.scm b/guile/starlet/fixture-library/generic/dimmer.scm index 65e6d99..b1894b7 100644 --- a/guile/starlet/fixture-library/generic/dimmer.scm +++ b/guile/starlet/fixture-library/generic/dimmer.scm @@ -1,7 +1,7 @@ ;; ;; starlet/fixture-library/generic/dimmer.scm ;; -;; Copyright © 2020-2021 Thomas White <taw@bitwiz.org.uk> +;; Copyright © 2020-2022 Thomas White <taw@bitwiz.org.uk> ;; ;; This file is part of Starlet. ;; @@ -19,20 +19,17 @@ ;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;; (define-module (starlet fixture-library generic dimmer) - #:use-module (oop goops) #:use-module (starlet fixture) #:export (<generic-dimmer>)) +(define-fixture -(define-class <generic-dimmer> (<fixture>) - (attributes - #:init-form (list - (attr-continuous 'intensity '(0 100) 0)))) + <generic-dimmer> + (list + (attr-continuous 'intensity '(0 100) 0)) -(define-method (scanout-fixture (fixture <generic-dimmer>) - get-attr set-chan8 set-chan16) + (get-attr set-chan8) - ;; Set DMX value for intensity (set-chan8 1 (percent->dmxval8 (get-attr 'intensity)))) |