draw-segment ( next-segment segment -- )

Vocabulary

jamshred.gl

Inputs

next-segment	an object
segment	an object

Outputs

None

Definition

USING: kernel opengl.demo-support opengl.gl sequences
specialized-arrays.instances.alien.c-types.float ;

IN: jamshred.gl

: draw-segment ( next-segment segment -- )
    GL_QUAD_STRIP [
        [ draw-vertex-pair ] 2curry
        n-vertices equally-spaced-radians
        float-array{ 0.0 } append swap each
    ] do-state ;