model-world

Vocabulary

model-viewer

Definition

USING: gpu.util.wasd ;

IN: model-viewer

TUPLE: model-world < wasd-world model-path model-state ;

Methods

USING: accessors combinators generic model-viewer
ui.gadgets.worlds ;

M: model-world apply-world-attributes
    {
        [ model-path>> >>model-path ]
        [
            M\ model-world apply-world-attributes
            (call-next-method)
        ]
    } cleave ;


USING: accessors game.worlds gpu gpu.util.wasd kernel
model-viewer ;

M: model-world begin-game-world
    init-gpu { 0.0 0.0 2.0 } 0 0 set-wasd-view
    [ <model-state> [ fill-model-state ] keep ]
    [ model-state<< ] bi ;


USING: model-viewer ui.gadgets.worlds ;

M: model-world draw-world* draw-model ;


USING: gpu.util.wasd kernel model-viewer ;

M: model-world wasd-far-plane drop 1024.0 ;


USING: gpu.util.wasd kernel model-viewer ;

M: model-world wasd-movement-speed drop 0.25 ;


USING: gpu.util.wasd kernel model-viewer ;

M: model-world wasd-near-plane drop 0.03125 ;