USING: accessors locals opengl.gl opengl.textures sequences ;

IN: opengl.textures.private

:: tex-image ( image bitmap -- )
image image-format :> ( internal-format format type )
GL_TEXTURE_2D 0 internal-format image dim>>
adjust-texture-dim first2 0 format type bitmap glTexImage2D
;