gl-vertex ( point -- )

Vocabulary

opengl.demo-support

Inputs

point

an object

Outputs

None

Definition

USING: combinators kernel opengl.gl sequences ;

IN: opengl.demo-support

: gl-vertex ( point -- )
    dup length {
        { 2 [ first2 glVertex2d ] }
        { 3 [ first3 glVertex3d ] }
        { 4 [ first4 glVertex4d ] }
    } case ;