(blur) ( texture horizontal? framebuffer dim -- )

Vocabulary

gpu.effects.blur

Inputs

texture	an object
horizontal?	an object
framebuffer	an object
dim	an object

Outputs

None

Definition

USING: destructors gpu.render gpu.shaders gpu.state gpu.util
kernel math math.rectangles sequences ;

IN: gpu.effects.blur

:: (blur) ( texture horizontal? framebuffer dim -- )
    { 0 0 } dim <rect> <viewport-state> set-gpu-state
    texture horizontal? 1.0 dim horizontal?
    [ first ] [ second ] if / blur-uniforms boa framebuffer {
        { "primitive-mode" [ 2drop triangle-strip-mode ] }
        { "uniforms" [ drop ] }
        {
            "vertex-array"
            [
                2drop
                blur-program <program-instance>
                <window-vertex-array> &dispose
            ]
        }
        { "indexes" [ 2drop T{ index-range { count 4 } } ] }
        { "framebuffer" [ nip ] }
    } 2<render-set> render ;