push-current-model ( -- )

Vocabulary

game.models.obj.private

Word description

Push the current model being built onto the models list and initialize a fresh empty model.

Definition

USING: accessors alien.c-types alien.data game.models
game.models.util kernel namespaces sequences sequences.deep ;

IN: game.models.obj.private

: push-current-model ( -- )
    current-model get [
        [ dseq>> flatten float >c-array ]
        [ iseq>> flatten uint >c-array ] bi
        obj-vertex-format current-material get model boa
        models get push V{ } V{ } H{ } <indexed-seq>
        current-model set
    ] unless-empty ;