JustiClip

HyperLib.gtl

1287

1298

    let JustiClip(v, w, h) = valof          \Clip text to a rectangle
    {   let v = $v in
        if blank v do res "";
        Rejustify(w, v, 0);
        {   let W, H = textsize v in
            let V = linesplit v in
            let S = () in
            let i = 0 in
            while i < order V & order S < order V * h / H + 1 do { S := S aug V i; i += 1 };
            res catl S
        }
    } in