summaryrefslogtreecommitdiff
path: root/fonts/utilities/mff-29/mfpunct.mf
blob: 219ed9139f92fdbce3c70851c07f7a7e02ee35d6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  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;