blob: 78b5c56935a111f0997ed2a33324e32e9b7eeae8 (
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:14:44 simpson Rel $
% $Log: tcomlig.mf,v $
%Revision 1.1 88/01/15 13:14:44 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;
|
