(component-type>type) ( component-order component-type -- gl-type )

Vocabulary

opengl.textures

Inputs

component-order	an object
component-type	an object

Outputs

gl-type

an object

Definition

IN: opengl.textures

GENERIC: (component-type>type)
    ( component-order component-type -- gl-type )

Methods

USING: images opengl.gl opengl.textures ;

M: byte-integer-components (component-type>type)
    not-alpha-first GL_BYTE ;


USING: images kernel opengl.gl opengl.textures ;

M: float-11-11-10-components (component-type>type)
    over BGR =
    [ 2drop GL_UNSIGNED_INT_10F_11F_11F_REV ]
    [ unsupported-component-order ] if ;


USING: images opengl.gl opengl.textures ;

M: float-components (component-type>type)
    not-alpha-first GL_FLOAT ;


USING: images opengl.gl opengl.textures ;

M: half-components (component-type>type)
    not-alpha-first GL_HALF_FLOAT ;


USING: images opengl.gl opengl.textures ;

M: int-integer-components (component-type>type)
    not-alpha-first GL_INT ;


USING: kernel opengl.textures ;

M: object (component-type>type) unsupported-component-order ;


USING: images opengl.gl opengl.textures ;

M: short-integer-components (component-type>type)
    not-alpha-first GL_SHORT ;


USING: images kernel opengl.gl opengl.textures ;

M: u-10-10-10-2-components (component-type>type)
    four-channel-alpha-first?
    [ GL_UNSIGNED_INT_2_10_10_10_REV ]
    [ GL_UNSIGNED_INT_10_10_10_2 ] if ;


USING: images kernel opengl.gl opengl.textures ;

M: u-24-8-components (component-type>type)
    over DEPTH-STENCIL =
    [ 2drop GL_UNSIGNED_INT_24_8 ]
    [ unsupported-component-order ] if ;


USING: images kernel opengl.gl opengl.textures ;

M: u-24-components (component-type>type)
    over DEPTH =
    [ 2drop GL_UNSIGNED_INT ] [ unsupported-component-order ] if
    ;


USING: images kernel opengl.gl opengl.textures ;

M: u-5-5-5-1-components (component-type>type)
    four-channel-alpha-first?
    [ GL_UNSIGNED_SHORT_1_5_5_5_REV ]
    [ GL_UNSIGNED_SHORT_5_5_5_1 ] if ;


USING: images kernel opengl.gl opengl.textures ;

M: u-5-6-5-components (component-type>type)
    2drop GL_UNSIGNED_SHORT_5_6_5 ;


USING: images kernel opengl.gl opengl.textures ;

M: u-9-9-9-e5-components (component-type>type)
    over BGR =
    [ 2drop GL_UNSIGNED_INT_5_9_9_9_REV ]
    [ unsupported-component-order ] if ;


USING: images kernel opengl.gl opengl.textures ;

M: ubyte-components (component-type>type)
    drop alpha-channel-precedes-colors?
    [ GL_UNSIGNED_INT_8_8_8_8_REV ] [ GL_UNSIGNED_BYTE ] if ;


USING: images opengl.gl opengl.textures ;

M: ubyte-integer-components (component-type>type)
    not-alpha-first GL_UNSIGNED_BYTE ;


USING: images opengl.gl opengl.textures ;

M: uint-components (component-type>type)
    not-alpha-first GL_UNSIGNED_INT ;


USING: images opengl.gl opengl.textures ;

M: uint-integer-components (component-type>type)
    not-alpha-first GL_UNSIGNED_INT ;


USING: images opengl.gl opengl.textures ;

M: ushort-components (component-type>type)
    not-alpha-first GL_UNSIGNED_SHORT ;


USING: images opengl.gl opengl.textures ;

M: ushort-integer-components (component-type>type)
    not-alpha-first GL_UNSIGNED_SHORT ;