(allocate-compressed-texture) ( tdt level dim compressed-data dim-quot teximage-quot -- )

Vocabulary

gpu.textures.private

Inputs

tdt	an object
level	an object
dim	an object
compressed-data	an object
dim-quot	an object
teximage-quot	an object

Outputs

None

Definition

USING: accessors gpu.buffers kernel ;

IN: gpu.textures.private

:: (allocate-compressed-texture)
    ( tdt level dim compressed-data dim-quot teximage-quot -- )
    tdt bind-tdt :> texture tdt texture-data-gl-target level
    compressed-data format>> gl-compressed-texture-format dim
    dim-quot call 0 compressed-data [ length>> ] [ ptr>> ] bi
    pixel-unpack-buffer teximage-quot with-gpu-data-ptr ; inline