summaryrefslogtreecommitdiff
path: root/dviware/quicspool/wbfonts/tcomlig.mf
blob: bf3c521099c6282b0205d1c48360a2c355a91a61 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
% $Header: tcomlig.mf,v 1.1 88/01/15 13:12:35 simpson Rel $
% $Log:	tcomlig.mf,v $
%Revision 1.1  88/01/15  13:12:35  simpson
%initial release
%
%Revision 0.1  87/12/11  19:01:25  simpson
%beta test
%
% This file defines characters common to roman and italic text fonts
% that appear only when |ligs>0|.

% Character codes \006 is generated

cmchar "Em dash";
beginchar(oct"006",18u#,x_height#,0);
italcorr .61803x_height#*slant+.5u#;
adjust_fit(letter_fit#,letter_fit#);
pickup crisp.nib; pos1(vair,90); pos2(vair,90);
top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
filldraw stroke z1e--z2e;  % bar
penlabels(1,2); endchar;