gl3-draw-lines* ( vertices n -- )

Vocabulary

ui.render

Inputs

vertices	an object
n	an object

Outputs

None

Definition

USING: math opengl.gl sequences
specialized-arrays.instances.alien.c-types.float ;

IN: ui.render

:: gl3-draw-lines* ( vertices n -- )
    n 6 * <float-array> :> arr n <iota> [| i |
        i 2 * vertices nth i 6 * 0 + arr set-nth i 2 * 1 +
        vertices nth i 6 * 1 + arr set-nth 1.0 i 6 * 2 +
        arr set-nth 1.0 i 6 * 3 + arr set-nth 1.0 i 6 * 4 +
        arr set-nth 1.0 i 6 * 5 + arr set-nth
    ] each arr upload-vertices GL_LINES 0 n glDrawArrays ;