find-shader-instance ( shader -- instance )

Vocabulary

gpu.shaders.private

Inputs

shader

an object

Outputs

instance

an object

Definition

USING: accessors assocs kernel namespaces ui.gadgets.worlds ;

IN: gpu.shaders.private

: find-shader-instance ( shader -- instance )
    world get over instances>> at*
    [ nip ] [ drop compile-shader ] if ;