IN: colors.lch

TUPLE: LCHuv l c h alpha ;

USING: colors.lch ;

M: LCHuv >LCHuv ; inline

USING: accessors colors.lch colors.luv kernel locals.backend
math math.functions math.trig ;

M: LCHuv >luva
[
[ l>> ] [ c>> ] [ h>> ] tri load-local load-local
load-local -2 get-local deg>rad load-local
-1 get-local -2 get-local 0 get-local cos *
-2 get-local 0 get-local sin 4 drop-locals *
] [ alpha>> ] bi <luva> ;

USING: colors colors.lch colors.luv ;

M: LCHuv >rgba >luva >rgba ;

USING: colors.lch colors.luv colors.xyz ;

M: LCHuv >xyza >luva >xyza ;