(draw-reflection-texture) ( gadget -- )

Vocabulary

spheres

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors arrays combinators kernel opengl
opengl.framebuffers opengl.gl ;

IN: spheres

: (draw-reflection-texture) ( gadget -- )
    dup reflection-framebuffer>> [
        {
            [ drop { 0 0 } (reflection-dim) 2array gl-viewport ]
            [
                GL_PROJECTION glMatrixMode
                glPushMatrix glLoadIdentity reflection-frustum
                glFrustum GL_MODELVIEW glMatrixMode
                glLoadIdentity 180.0 0.0 0.0 1.0 glRotatef
            ]
            [ GL_TEXTURE_CUBE_MAP_NEGATIVE_Z (reflection-face) ]
            [ sphere-scene ]
            [
                GL_TEXTURE_CUBE_MAP_POSITIVE_X (reflection-face)
                90.0 0.0 1.0 0.0 glRotatef
            ]
            [ sphere-scene ]
            [
                GL_TEXTURE_CUBE_MAP_POSITIVE_Z (reflection-face)
                90.0 0.0 1.0 0.0 glRotatef glPushMatrix
            ]
            [ sphere-scene ]
            [
                GL_TEXTURE_CUBE_MAP_NEGATIVE_X (reflection-face)
                90.0 0.0 1.0 0.0 glRotatef
            ]
            [ sphere-scene ]
            [
                GL_TEXTURE_CUBE_MAP_NEGATIVE_Y (reflection-face)
                glPopMatrix glPushMatrix -90.0 1.0 0.0 0.0
                glRotatef
            ]
            [ sphere-scene ]
            [
                GL_TEXTURE_CUBE_MAP_POSITIVE_Y (reflection-face)
                glPopMatrix 90.0 1.0 0.0 0.0 glRotatef
            ]
            [ sphere-scene ]
            [
                [ { 0 0 } ] dip dim>> gl-viewport
                GL_PROJECTION glMatrixMode glPopMatrix
            ]
        } cleave
    ] with-framebuffer ;