color>hex ( color -- hex )

Vocabulary

colors

Inputs

color

an object

Outputs

hex

an object

Definition

USING: arrays colors.private kernel math ;

IN: colors

: color>hex ( color -- hex )
    >rgba-components dup 1 number= [ drop 3array ] [ 4array ] if
    (color>hex) ;