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 sequences ;

IN: core-text

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