line-loc ( metrics loc dim -- loc )

Vocabulary

core-text

Inputs

metrics	an object
loc	an object
dim	an object

Outputs

loc

an object

Definition

USING: accessors arrays math math.functions sequences ;

IN: core-text

:: line-loc ( metrics loc dim -- loc )
    loc first round >integer metrics ascent>> dim second loc
    second + - round >integer 1 - 2array ;