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

Vocabulary

snake-game.ui

Inputs

loc	an object
from-dir	an object
snake	an object

Outputs

None

Definition

USING: kernel sequences ;

IN: snake-game.ui

: draw-snake ( loc from-dir snake -- )
    [
        [ [ draw-snake-part ] [ next-snake-loc-from-dir ] 3bi ]
        each 2drop
    ] [ first draw-snake-part ] 3bi ;