(blended-point-sprite-batch) ( verts framebuffer texture point-size dim -- )

Vocabulary

gpu.util

Inputs

verts	an object
framebuffer	an object
texture	an object
point-size	an object
dim	an object

Outputs

None

Definition

USING: gpu.render gpu.shaders gpu.state kernel math
math.rectangles opengl.gl sequences ;

IN: gpu.util

: (blended-point-sprite-batch)
    ( verts framebuffer texture point-size dim -- )
    f eq-add func-one func-one <blend-mode> dup <blend-state>
    set-gpu-state f origin-upper-left 1.0 <point-state>
    set-gpu-state GL_POINT_SPRITE glEnable { 0 0 } swap <rect>
    <viewport-state> set-gpu-state window-point-uniforms boa {
        { "primitive-mode" [ 3drop points-mode ] }
        { "uniforms" [ 2nip ] }
        {
            "vertex-array"
            [
                2drop
                window-point-program <program-instance>
                <streamed-vertex-array>
            ]
        }
        { "indexes" [ 2drop length 2 / 0 swap <index-range> ] }
        { "framebuffer" [ drop nip ] }
    } 3<render-set> render ;