color= ( color1 color2 -- ? )

Vocabulary

colors

Inputs

color1	an object
color2	an object

Outputs

?

an object

Definition

USING: arrays kernel math.functions sequences ;

IN: colors

: color= ( color1 color2 -- ? )
    [ >rgba-components 4array ] bi@ [ 0.00000001 ~ ] 2all? ;