rect-vertices ( lower-left upper-right -- )

Vocabulary

opengl.demo-support

Inputs

lower-left	an object
upper-right	an object

Outputs

None

Definition

USING: kernel opengl.gl sequences ;

IN: opengl.demo-support

: rect-vertices ( lower-left upper-right -- )
    GL_QUADS [
        over first2 glVertex2d dup first pick second glVertex2d
        dup first2 glVertex2d [ first ] [ second ] bi*
        glVertex2d
    ] do-state ;