(link-program) ( program shader-instances -- program-instance )

Vocabulary

gpu.shaders.private

Inputs

program	an object
shader-instances	an object

Outputs

program-instance

an object

Definition

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

IN: gpu.shaders.private

: (link-program)
    ( program shader-instances -- program-instance )
    [ [ handle>> ] map ] curry [
        [ vertex-formats>> ] [ feedback-format>> ]
        [ geometry-shader-parameters>> ] tri
        [ [ link-vertex-formats ] curry ] 2dip
        [ [ link-feedback-format ] curry ] dip
        [ link-geometry-shader-parameters ] curry [ tri ] 3curry
    ] bi (gl-program) dup gl-program-ok? [
        [
            swap world get \ program-instance boa
            |dispose dup verify-feedback-format
        ] with-destructors window-resource
    ] [ throw-link-program-error ] if ;