make-texture-gl3 ( image -- id )

Vocabulary

ui.render

Inputs

image

an object

Outputs

id

an object

Definition

USING: accessors opengl.gl opengl.textures sequences ;

IN: ui.render

:: make-texture-gl3 ( image -- id )
    image image-format :> ( internal-format format type )
    gen-texture :> tex-id GL_TEXTURE_2D tex-id glBindTexture
    GL_TEXTURE_2D GL_TEXTURE_MAG_FILTER GL_LINEAR
    glTexParameteri
    GL_TEXTURE_2D GL_TEXTURE_MIN_FILTER GL_LINEAR
    glTexParameteri
    GL_TEXTURE_2D GL_TEXTURE_WRAP_S GL_CLAMP_TO_EDGE
    glTexParameteri
    GL_TEXTURE_2D GL_TEXTURE_WRAP_T GL_CLAMP_TO_EDGE
    glTexParameteri
    GL_TEXTURE_2D 0 internal-format image dim>> first2 0 format
    type image bitmap>> glTexImage2D
    GL_TEXTURE_2D 0 glBindTexture tex-id ;