-
Notifications
You must be signed in to change notification settings - Fork 4
/
hsva.sls
28 lines (18 loc) · 887 Bytes
/
hsva.sls
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
(library
(agave color hsva)
(export <hsva> hsva hsva? hsva-clone hsva-assign! apply-hsva
hsva-hue hsva-hue-set! hsva-hue-change!
hsva-saturation hsva-saturation-set! hsva-saturation-change!
hsva-value hsva-value-set! hsva-value-change!
hsva-alpha hsva-alpha-set! hsva-alpha-change!)
(import (rnrs) (agave misc define-record-type))
(define-record-type++
(<hsva> hsva hsva? hsva-clone hsva-assign! apply-hsva)
(fields (mutable hue hsva-hue hsva-hue-set! hsva-hue-change!)
(mutable saturation
hsva-saturation
hsva-saturation-set!
hsva-saturation-change!)
(mutable value hsva-value hsva-value-set! hsva-value-change!)
(mutable alpha hsva-alpha hsva-alpha-set! hsva-alpha-change!)))
)