run4 ( -- )

Vocabulary

nehe.4

Inputs

None

Outputs

None

Definition

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

IN: nehe.4

: run4 ( -- )
    [
        f
        T{ world-attributes
            { title "NeHe Tutorial 4" }
            { pixel-format-attributes
                {
                    windowed
                    double-buffered
                    T{ depth-bits { value 16 } }
                }
            }
            { pref-dim { 256 256 } }
        }
        clone
        <nehe4-gadget>
        >>gadgets
        open-window
    ] with-ui ;