(make-reflection-texture) ( -- texture )

Vocabulary

spheres

Inputs

None

Outputs

texture

an object

Definition

USING: kernel opengl.gl opengl.textures sequences ;

IN: spheres

: (make-reflection-texture) ( -- texture )
    gen-texture [
        GL_TEXTURE_CUBE_MAP swap glBindTexture
        GL_TEXTURE_CUBE_MAP GL_TEXTURE_MAG_FILTER GL_LINEAR
        glTexParameteri
        GL_TEXTURE_CUBE_MAP GL_TEXTURE_MIN_FILTER GL_LINEAR
        glTexParameteri
        GL_TEXTURE_CUBE_MAP GL_TEXTURE_WRAP_S GL_CLAMP
        glTexParameteri
        GL_TEXTURE_CUBE_MAP GL_TEXTURE_WRAP_T GL_CLAMP
        glTexParameteri
        GL_TEXTURE_CUBE_MAP GL_TEXTURE_WRAP_R GL_CLAMP
        glTexParameteri
        { 34069 34071 34073 34070 34072 34074 } [
            0 GL_RGBA8 (reflection-dim) 0 GL_RGBA
            GL_UNSIGNED_BYTE f glTexImage2D
        ] each
    ] keep ;