nehe2-gadget

Vocabulary

nehe.2

Definition

USING: ui.gadgets ;

IN: nehe.2

TUPLE: nehe2-gadget < gadget ;

Methods

USING: kernel math nehe.2 opengl.demo-support opengl.gl
opengl.glu ui.render ;

M: nehe2-gadget draw-gadget*
    drop GL_PROJECTION glMatrixMode
    glLoadIdentity 45.0 width height /
    >float 0.1 100.0 gluPerspective GL_MODELVIEW glMatrixMode
    glLoadIdentity GL_SMOOTH glShadeModel
    0.0 0.0 0.0 0.0 glClearColor 1.0 glClearDepth
    GL_DEPTH_TEST glEnable GL_LEQUAL glDepthFunc
    GL_PERSPECTIVE_CORRECTION_HINT GL_NICEST glHint
    GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT bitor glClear
    glLoadIdentity -1.5 0.0 -6.0 glTranslatef GL_TRIANGLES [
        0.0 1.0 0.0 glVertex3f -1.0 -1.0 0.0 glVertex3f
        1.0 -1.0 0.0 glVertex3f
    ] do-state 3.0 0.0 0.0 glTranslatef GL_QUADS [
        -1.0 1.0 0.0 glVertex3f 1.0 1.0 0.0 glVertex3f
        1.0 -1.0 0.0 glVertex3f -1.0 -1.0 0.0 glVertex3f
    ] do-state ;