draw-snake-part ( loc from-dir snake-part -- )

Vocabulary

snake-game.ui

Inputs

loc	an object
from-dir	an object
snake-part	an object

Outputs

None

Definition

USING: accessors combinators kernel snake-game.game ;

IN: snake-game.ui

: draw-snake-part ( loc from-dir snake-part -- )
    dup type>> {
        { :head [ drop opposite-dir draw-snake-head ] }
        { :body [ dir>> draw-snake-body ] }
        { :tail [ drop draw-snake-tail ] }
    } case ;