CIE76 ( color1 color2 -- distance )

Vocabulary

colors.distances

Inputs

color1	an object
color2	an object

Outputs

distance

an object

Definition

USING: accessors colors.lab kernel math math.functions ;

IN: colors.distances

: CIE76 ( color1 color2 -- distance )
    [ >laba ] bi@
    [ [ l>> ] bi@ - sq ] [ [ a>> ] bi@ - sq ]
    [ [ b>> ] bi@ - sq ] 2tri + + sqrt ;