compile-shader ( shader -- instance )

Vocabulary

gpu.shaders.private

Inputs

shader

an object

Outputs

instance

an object

Definition

USING: accessors gpu.shaders kernel namespaces opengl.shaders
ui.gadgets.worlds ;

IN: gpu.shaders.private

: compile-shader ( shader -- instance )
    [ ] [ source>> ] [ kind>> gl-shader-kind ] tri <gl-shader>
    dup gl-shader-ok?
    [ swap world get \ shader-instance boa window-resource ]
    [ throw-compile-shader-error ] if ;