(compute-shader?) ( object -- ? )

Vocabulary

opengl.shaders

Inputs

object

an object

Outputs

?

an object

Definition

USING: kernel opengl.gl ;

IN: opengl.shaders

: (compute-shader?) ( object -- ? )
    dup (gl-shader?)
    [ GL_SHADER_TYPE gl-shader-get-int GL_COMPUTE_SHADER = ]
    [ drop f ] if ;