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 ;

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 ~array~ }
                    { pref-dim ~array~ }
                    { tick-interval-nanos 33333333 }
                    { use-game-input? t }
                } open-window*
            ]
        ] dip [ >>model ] curry compose
    ] dip [ >>selected drop ] curry compose with-ui ;