(update-compressed-texture) ( tdt level loc dim compressed-data dim-quot texsubimage-quot -- )

Vocabulary

gpu.textures.private

Inputs

tdt	an object
level	an object
loc	an object
dim	an object
compressed-data	an object
dim-quot	an object
texsubimage-quot	an object

Outputs

None

Definition

USING: accessors gpu.buffers kernel ;

IN: gpu.textures.private

:: (update-compressed-texture)
    ( tdt level loc dim compressed-data dim-quot texsubimage-quot -- )
    tdt bind-tdt :> texture tdt texture-data-gl-target level loc
    dim dim-quot bi@ compressed-data
    [ format>> gl-compressed-texture-format ] [ length>> ]
    [ ptr>> ] tri
    pixel-unpack-buffer texsubimage-quot with-gpu-data-ptr ;
    inline