stream>models ( stream class -- models )

Vocabulary

game.models.loader

Inputs

stream	an object
class	an object

Outputs

models

an object

Definition

IN: game.models.loader

GENERIC: stream>models ( stream class -- models )

Methods

USING: game.models.collada game.models.collada.private
game.models.loader kernel sequences sequences.deep xml
xml.traversal ;

M: collada-models stream>models
    drop read-xml "mesh" deep-tags-named [ mesh>models ] map
    flatten ;


USING: game.models.loader game.models.obj
game.models.obj.private game.models.util io kernel make
namespaces ;

M: obj-models stream>models
    drop [
        V{ } clone vp ,, V{ } clone vt ,, V{ } clone vn ,,
        V{ } clone models ,, V{ } V{ } H{ } <indexed-seq>
        current-model ,, f current-material ,,
        f material-dictionary ,,
    ] H{ } make [
        [ line>obj ] each-stream-line
        push-current-model models get
    ] with-variables ;