<model-state> ( model-world -- model-state )

Vocabulary

model-viewer

Inputs

model-world

an object

Outputs

model-state

an object

Definition

USING: accessors arrays game.models.loader kernel sequences ;

IN: model-viewer

: <model-state> ( model-world -- model-state )
    model-path>> 1array model-state new swap
    [ load-models ] [ append ] map-reduce >>models ;