nehe4-gadget

Vocabulary

nehe.4

Definition

USING: ui.gadgets ;

IN: nehe.4

TUPLE: nehe4-gadget < gadget rtri rquad thread quit? ;

Methods

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

M: nehe4-gadget draw-gadget*
    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
    dup rtri>> 0.0 1.0 0.0 glRotatef GL_TRIANGLES [
        1.0 0.0 0.0 glColor3f 0.0 1.0 0.0 glVertex3f
        0.0 1.0 0.0 glColor3f -1.0 -1.0 0.0 glVertex3f
        0.0 0.0 1.0 glColor3f 1.0 -1.0 0.0 glVertex3f
    ] do-state glLoadIdentity 1.5 0.0 -6.0 glTranslatef
    dup rquad>> 1.0 0.0 0.0 glRotatef 0.5 0.5 1.0 glColor3f
    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 [ 0.2 + ] change-rtri [ 0.15 - ] change-rquad
    drop ;


USING: accessors kernel nehe.4 threads ui.gadgets ;

M: nehe4-gadget graft*
    f >>quit? [ nehe4-update-thread ] curry in-thread ;


USING: accessors kernel nehe.4 ui.gadgets ;

M: nehe4-gadget ungraft* t >>quit? drop ;