diff options
author | Thomas White <taw@physics.org> | 2023-06-15 22:34:51 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2023-06-15 22:34:51 +0200 |
commit | 1d6f430b10f90b42220125af98829b3ddbe1eed2 (patch) | |
tree | 5b63d63d359ca66dafc6a5baffeb3984dfa51243 /guile/starlet/engine.scm | |
parent | 7b6e2ff3388c12544fbd0ef3623f2724e40d20b9 (diff) |
Remove colour-component stuff
It's a bit of a hack, only needed for MIDI control. I have a better
solution using OSC in mind.
Diffstat (limited to 'guile/starlet/engine.scm')
-rw-r--r-- | guile/starlet/engine.scm | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/guile/starlet/engine.scm b/guile/starlet/engine.scm index e729668..c63cb9b 100644 --- a/guile/starlet/engine.scm +++ b/guile/starlet/engine.scm @@ -22,7 +22,6 @@ #:use-module (starlet fixture) #:use-module (starlet state) #:use-module (starlet utils) - #:use-module (starlet colours) #:use-module (starlet attributes) #:use-module (oop goops) #:use-module (ice-9 threads) @@ -133,11 +132,6 @@ v))) -(define-method (current-value (fix <fixture>) (attr-name <colour-component-id>)) - (let ((colour (current-value fix colour))) - (extract-colour-component colour attr-name))) - - (define (append-or-replace-named-state orig-list name new-state) (let ((new-list (map (lambda (st) (if (eq? (get-state-name st) name) |