draw-line-region ( context line loc dim -- )

Vocabulary

core-text

Inputs

context	an object
line	an object
loc	an object
dim	an object

Outputs

None

Definition

USING: accessors core-graphics kernel math sequences ;

IN: core-text

:: draw-line-region ( context line loc dim -- )
    line line>> CTLineGetGlyphCount 4096 > [
        line loc first loc first dim first +
        visible-glyph-regions [| region |
            context CGContextSaveGState
            region run>> context region range>> CTRunDraw
            context CGContextRestoreGState
        ] each
    ] [ line line>> context CTLineDraw ] if ;