<gl3-program> ( vertex-source fragment-source attributes -- program )

Vocabulary

ui.render

Inputs

vertex-source	an object
fragment-source	an object
attributes	an object

Outputs

program

an object

Definition

USING: arrays kernel opengl opengl.gl opengl.shaders ;

IN: ui.render

: <gl3-program>
    ( vertex-source fragment-source attributes -- program )
    [
        [ gl3-shader-source <vertex-shader> check-gl-shader ]
        [ gl3-shader-source <fragment-shader> check-gl-shader ]
        bi* 2array glCreateProgram [ swap attach-shaders ] keep
    ] dip dupd bind-gl3-attributes
    dup 0 "out_color" glBindFragDataLocation
    [ glLinkProgram ] keep gl-error check-gl-program ;