%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  Programs for punctuation in the METAFONT logo font
%  Damian Cugley, SEH <pdc@oxford.prg> 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;