USING: accessors destructors kernel opengl.textures sequences ;

IN: opengl.textures.private

: <single-texture> ( image loc -- texture )
single-texture new-disposable swap >>loc swap
[ >>image ] [ dim>> >>dim ] bi
dup image>> dim>> product 0 = [
dup texture-coords >>texture-coords
dup image>> make-texture >>texture
dup make-texture-display-list >>display-list
] unless ;