<glyph-region> ( run positions start count bounds order -- region )

Vocabulary

core-text

Inputs

run	an object
positions	an object
start	an object
count	an object
bounds	an object
order	an object

Outputs

region

an object

Definition

USING: accessors core-foundation core-graphics.types kernel math
math.order sequences ;

IN: core-text

:: <glyph-region>
    ( run positions start count bounds order -- region )
    1/0. :> left! -1/0. :> right! count <iota> [| i |
        positions start i + glyph-position-x :> x x left min
        left! x right max right!
    ] each glyph-region new run >>run start count <CFRange>
    >>range order >>order left bounds CGRect-x + 2 - >>left
    right bounds CGRect-x + bounds CGRect-w + 2 + >>right ;