make-textured-grid-display-list ( grid -- dlist )

Vocabulary

opengl.textures.private

Inputs

grid

an object

Outputs

dlist

an object

Definition

USING: kernel opengl opengl.gl sequences ;

IN: opengl.textures.private

: make-textured-grid-display-list ( grid -- dlist )
    GL_COMPILE [
        [
            [ grid-has-alpha? [ GL_BLEND glDisable ] unless ] [
                [
                    [ ~quotation~ keep (draw-textured-rect) ]
                    each
                ] each
            ] [ grid-has-alpha? [ GL_BLEND glEnable ] unless ]
            tri GL_TEXTURE_2D 0 glBindTexture
        ] with-texturing
    ] make-dlist ;