debug-point ( pt color -- )

Vocabulary

game.debug

Inputs

pt	an object
color	an object

Outputs

None

Definition

USING: accessors kernel make sequences ;

IN: game.debug

: debug-point ( pt color -- )
    [ first3 [ , ] tri@ ]
    [ [ red>> , ] [ green>> , ] [ blue>> , ] tri ] bi* ; inline