diff options
Diffstat (limited to 'guile/starlet/fixture-library/generic/dimmer.scm')
| -rw-r--r-- | guile/starlet/fixture-library/generic/dimmer.scm | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/guile/starlet/fixture-library/generic/dimmer.scm b/guile/starlet/fixture-library/generic/dimmer.scm index 65e6d99..6b25c15 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,18 @@ ;; 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 scanout) #:use-module (starlet fixture) + #:use-module (starlet utils) + #:use-module (starlet attributes) #:export (<generic-dimmer>)) +(define-fixture -(define-class <generic-dimmer> (<fixture>) - (attributes - #:init-form (list - (attr-continuous 'intensity '(0 100) 0)))) + <generic-dimmer> + (fixture-attributes + (attr-continuous intensity '(0 100) 0)) -(define-method (scanout-fixture (fixture <generic-dimmer>) - get-attr set-chan8 set-chan16) - - ;; Set DMX value for intensity - (set-chan8 1 (percent->dmxval8 (get-attr 'intensity)))) + (set-chan8 1 (percent->dmxval8 (get-attr intensity)))) |