cleanup-gl3-state ( -- )

Vocabulary

ui.render

Inputs

None

Outputs

None

Definition

USING: accessors alien.c-types alien.data combinators kernel
namespaces opengl.gl ;

IN: ui.render

: cleanup-gl3-state ( -- )
    gl3-state> [
        {
            [ program>> glDeleteProgram ]
            [ vao>> 1 swap uint <ref> glDeleteVertexArrays ]
            [ vbo>> 1 swap uint <ref> glDeleteBuffers ]
            [ tex-program>> [ glDeleteProgram ] when* ]
            [
                tex-vao>>
                [ 1 swap uint <ref> glDeleteVertexArrays ] when*
            ]
            [
                tex-vbo>>
                [ 1 swap uint <ref> glDeleteBuffers ] when*
            ]
        } cleave
    ] when* f gl3-render-state set-global ;