random-color ( -- color )

Vocabulary

jamshred.tunnel

Inputs

None

Outputs

color

an object

Definition

USING: colors math random sequences ;

IN: jamshred.tunnel

: random-color ( -- color )
    { 100 100 100 } [ random 100 / >float ] map
    first3 1.0 <rgba> ;