texture-format ( image-gadget -- format/f )

Vocabulary

images.viewer.private

Inputs

image-gadget

an object

Outputs

format/f

an object

Definition

USING: accessors kernel ;

IN: images.viewer.private

: texture-format ( image-gadget -- format/f )
    texture>>
    [ texture>> [ (texture-format) ] [ f ] if* ] [ f ] if* ;