gml-viewer ( b-rep selection -- )

Vocabulary

gml.viewer

Inputs

b-rep	an object
selection	an object

Outputs

None

Definition

USING: accessors game.worlds kernel ui ui.pixel-formats ;

IN: gml.viewer

: gml-viewer ( b-rep selection -- )
    [ wrap-in-model ] [ wrap-in-growable-model ] bi* '[
        f T{ game-attributes
            { world-class gml-viewer-world }
            { title "GML wireframe viewer" }
            { pixel-format-attributes
                {
                    windowed
                    double-buffered
                    T{ depth-bits { value 16 } }
                }
            }
            { pref-dim { 1024 768 } }
            { tick-interval-nanos 33333333 }
            { use-game-input? t }
        } open-window* _ >>model _ >>selected drop
    ] with-ui ;