>hwba ( color -- hsla )
HWB colors

Prev:

<hwba> ( hue whiteness blackness alpha -- hwba )

Vocabulary
colors.hwb

Inputs

color

an object

Outputs

hsla

an object

Definition

IN: colors.hwb

GENERIC: >hwba ( color -- hsla )

Methods

USING: colors.hwb ;

M: hwba >hwba ; inline


USING: colors colors.hwb kernel ;

M: object >hwba >rgba >hwba ;


USING: accessors colors colors.hsl colors.hwb kernel
locals.backend math math.order ;

M: rgba >hwba
    >hsla [ hue>> ] [ >rgba-components ] bi 5 load-locals
    -3 get-local -2 get-local -1 get-local min min load-local
    -4 get-local -3 get-local -2 get-local max max 1 swap -
    load-local
    -6 get-local -1 get-local 0 get-local -2 get-local <hwba>
    7 drop-locals ;