(pass2) ( draw -- )

Vocabulary

bunny.outlined

Inputs

draw

an object

Outputs

None

Definition

USING: accessors combinators opengl opengl.demo-support
opengl.gl opengl.shaders ;

IN: bunny.outlined

: (pass2) ( draw -- )
    GL_PROJECTION glMatrixMode
    glPushMatrix glLoadIdentity GL_MODELVIEW glMatrixMode
    glLoadIdentity {
        [
            color-texture>> GL_TEXTURE_2D GL_TEXTURE0
            bind-texture-unit
        ]
        [
            normal-texture>> GL_TEXTURE_2D GL_TEXTURE1
            bind-texture-unit
        ]
        [
            depth-texture>> GL_TEXTURE_2D GL_TEXTURE2
            bind-texture-unit
        ]
        [
            pass2-program>> [
                {
                    [
                        "colormap" glGetUniformLocation
                        0 glUniform1i
                    ]
                    [
                        "normalmap" glGetUniformLocation
                        1 glUniform1i
                    ]
                    [
                        "depthmap" glGetUniformLocation
                        2 glUniform1i
                    ]
                    [
                        "line_color" glGetUniformLocation
                        0.1 0.0 0.1 1.0 glUniform4f
                    ]
                } cleave { -1.0 -1.0 } { 1.0 1.0 } rect-vertices
            ] with-gl-program
        ]
    } cleave GL_PROJECTION glMatrixMode glPopMatrix ;