rgba-distance ( color1 color2 -- distance )


Vocabulary
colors.distances

Inputs
color1an object
color2an object


Outputs
distancean object


Definition
USING: accessors colors kernel math math.functions ;

IN: colors.distances

: rgba-distance ( color1 color2 -- distance )
[ >rgba ] bi@
[ red>> ] [ blue>> ] [ green>> ] [ bi@ - sq ] tri-curry@
2tri + + sqrt ;