draw-grid-mesh ( grid-mesh -- )

Vocabulary

grid-meshes

Inputs

grid-mesh

an object

Outputs

None

Definition

USING: accessors grid-meshes.private kernel opengl opengl.gl
sequences ;

IN: grid-meshes

: draw-grid-mesh ( grid-mesh -- )
    GL_ARRAY_BUFFER over buffer>> [
        [ 4 GL_FLOAT 0 f glVertexPointer ] dip
        dup dim>> second <iota> [ draw-vertex-buffer-row ] with
        each
    ] with-gl-buffer ;