diff options
| author | Thomas White <taw@physics.org> | 2022-06-11 13:58:10 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2022-06-11 13:58:10 +0200 |
| commit | aeeeb114d95381d91a59d4fcfda80cb86c66a05a (patch) | |
| tree | 00601b1ceab907c96579812a0bde68f066f5e1b9 /guile/starlet/state.scm | |
| parent | 8b10b0dab6dd688785c3af1bfb0d5395b6214f0f (diff) | |
Rename make-colour-rgb to rgb, similar for cmy
Diffstat (limited to 'guile/starlet/state.scm')
| -rw-r--r-- | guile/starlet/state.scm | 36 |
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)))))) |