%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Programs for punctuation in the METAFONT logo font % Damian Cugley, SEH Sun 2 Jul 1989 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% input mfbrackets; input mfcommas; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Hyphen-like thingies % def hyphen_like(expr code,desc,u_wd) = beginchar(code,u_wd*u#,barheight# + 1/2py#,0); desc; pickup logo_pen; x1 = w - x1' = good.x(1 u + s); y1 = y1' = barheight; draw z1 -- z1'; labels(1,1'); endchar; enddef; hyphen_like("-","Hyphen (-)",6); short_dash := nextcode; hyphen_like(short_dash,"Short dash (--)",12); long_dash := nextcode; hyphen_like(long_dash,"Long dash (---)",18); ligtable "-": "-" =: short_dash; ligtable short_dash: "-" =: long_dash;