diff-hue ( h1 h2 -- dh )

Vocabulary

colors.distances.private

Inputs

h1	an object
h2	an object

Outputs

dh

an object

Definition

USING: kernel math ;

IN: colors.distances.private

:: diff-hue ( h1 h2 -- dh )
    h2 h1 - dup abs 180 >
    [ dup 0 <= [ 360 + ] [ 360 - ] if ] when ;