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;
|