parse-line ( line -- name color )

Vocabulary

colors.private

Inputs

line

an object

Outputs

name	an object
color	an object

Definition

USING: colors kernel math math.parser sequences ;

IN: colors.private

: parse-line ( line -- name color )
    first4 [ [ string>number 255 /f ] tri@ 1.0 <rgba> ] dip swap
    ;