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


Vocabulary
gpu.textures.private

Inputs
tdtan object
levelan object
locan object
diman object
compressed-dataan object
dim-quotan object
texsubimage-quotan object


Outputs
None

Definition


:: (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