🚀 go-pugleaf

---

% show a string, underlined.  Not very fancy, but gets the job done.
/show-underlined { % string => -
    gsave
        % UnderlinePosition and UnderlineThickness are represented
        % relative to the native font coordinate system, so we need to
        % roll them through FontMatrix
        currentfont begin
            FontInfo begin
                UnderlineThickness UnderlinePosition FontMatrix dtransform
            end
        end

        % (relative) move to UnderlinePosition
        0 exch rmoveto 

        % set line width to UnderlineThickness
        setlinewidth

        % find the width of the string and draw a line just that wide
        dup stringwidth rlineto

        % stroke it, using square end caps
        0 setlinecap stroke
    grestore

    % now (finally) show the string.
    show
} bind def