init-grid-mesh-vertex-array ( grid-mesh -- grid-mesh )

Vocabulary

grid-meshes

Inputs

grid-mesh

an object

Outputs

grid-mesh

an object

Definition

USING: accessors kernel opengl opengl.gl ;

IN: grid-meshes

: init-grid-mesh-vertex-array ( grid-mesh -- grid-mesh )
    gen-vertex-array >>vertex-array dup vertex-array>> [
        GL_ARRAY_BUFFER over buffer>> [
            0 4 GL_FLOAT GL_FALSE 0 f glVertexAttribPointer
            0 glEnableVertexAttribArray
        ] with-gl-buffer
    ] with-vertex-array ;