write-rgba-8888 ( rgba -- )

Vocabulary

tinyvg

Inputs

rgba

an object

Outputs

None

Definition

USING: colors generalizations io math math.functions ;

IN: tinyvg

: write-rgba-8888 ( rgba -- )
    >rgba-components [ 255 * round >integer write1 ] 4 napply ;