open-model-viewer ( model-path -- )

Vocabulary

model-viewer

Inputs

model-path

an object

Outputs

None

Definition

USING: kernel locals.types ui ui.gadgets.worlds ui.pixel-formats
;

IN: model-viewer

:: open-model-viewer ( model-path -- )
    [
        f T{ tuple-template
            { class model-attributes }
            { values
                {
                    model-world
                    t
                    "Model Viewer"
                    f
                    f
                    { windowed double-buffered }
                    {
                        normal-title-bar
                        close-button
                        minimize-button
                        maximize-button
                        resize-handles
                    }
                    { 1024 768 }
                    1
                    { 0 1 }
                    16666666
                    t
                    f
                    f
                    16
                    model-path
                }
            }
        } clone open-window
    ] with-ui ;