aboutsummaryrefslogtreecommitdiff
path: root/guile/starlet/state.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guile/starlet/state.scm')
-rw-r--r--guile/starlet/state.scm36
1 files changed, 18 insertions, 18 deletions
diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm
index d4c42d0..1ac67b5 100644
--- a/guile/starlet/state.scm
+++ b/guile/starlet/state.scm
@@ -119,49 +119,49 @@
((eq? colour-component 'cyan)
(let ((orig-colour (colour-as-cmy current-colour)))
(set-in-state! state fix 'colour
- (make-colour-cmy new-val
- (magenta orig-colour)
- (yellow orig-colour))
+ (cmy new-val
+ (magenta orig-colour)
+ (yellow orig-colour))
source)))
((eq? colour-component 'magenta)
(let ((orig-colour (colour-as-cmy current-colour)))
(set-in-state! state fix 'colour
- (make-colour-cmy (cyan orig-colour)
- new-val
- (yellow orig-colour))
+ (cmy (cyan orig-colour)
+ new-val
+ (yellow orig-colour))
source)))
((eq? colour-component 'yellow)
(let ((orig-colour (colour-as-cmy current-colour)))
(set-in-state! state fix 'colour
- (make-colour-cmy (cyan orig-colour)
- (magenta orig-colour)
- new-val)
+ (cmy (cyan orig-colour)
+ (magenta orig-colour)
+ new-val)
source)))
((eq? colour-component 'red)
(let ((orig-colour (colour-as-rgb current-colour)))
(set-in-state! state fix 'colour
- (make-colour-rgb new-val
- (green orig-colour)
- (blue orig-colour))
+ (rgb new-val
+ (green orig-colour)
+ (blue orig-colour))
source)))
((eq? colour-component 'green)
(let ((orig-colour (colour-as-rgb current-colour)))
(set-in-state! state fix 'colour
- (make-colour-rgb (red orig-colour)
- new-val
- (blue orig-colour))
+ (rgb (red orig-colour)
+ new-val
+ (blue orig-colour))
source)))
((eq? colour-component 'blue)
(let ((orig-colour (colour-as-rgb current-colour)))
(set-in-state! state fix 'colour
- (make-colour-rgb (red orig-colour)
- (green orig-colour)
- new-val)
+ (rgb (red orig-colour)
+ (green orig-colour)
+ new-val)
source))))))