snake-body-textures ( -- assoc )

Vocabulary

snake-game.sprites

Inputs

None

Outputs

assoc

an object

Definition

USING: assocs kernel sequences ;

IN: snake-game.sprites

: snake-body-textures ( -- assoc )
    {
        "body-right-up"
        "body-down-right"
        "body-right-right"
        "body-up-up"
        "body-up-right"
        "body-right-down"
    } {
        "body-down-left"
        "body-left-up"
        "body-left-left"
        "body-down-down"
        "body-left-down"
        "body-up-left"
    } "body.png" 3 2 load-sprite-textures [ zip ] curry bi@
    append ;