draw-line-tiles ( line -- )

Vocabulary

ui.text.core-text.private

Inputs

line

an object

Outputs

None

Definition

USING: accessors continuations kernel opengl.gl sequences
ui.render ;

IN: ui.text.core-text.private

:: draw-line-tiles ( line -- )
    line text-clip visible-tile-offsets
    :> offsets offsets empty? [
        GL_ONE GL_ONE_MINUS_SRC_ALPHA glBlendFunc [
            [
                offsets [
                    line swap cached-text-tile
                    [ vao>> ] [ texture>> ] bi
                    gl3-draw-cached-texture
                ] each
            ] with-gl3-cached-textures
        ] [ GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA glBlendFunc ]
        finally
    ] unless ;