summaryrefslogtreecommitdiff
path: root/fonts/cm/xcmr/xcmr12.mf
blob: 9a32292865686f62bc25098b115882698c0f6e79 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
% Computer Modern Roman 12 point crossed-out
if unknown cmbase: input cmbase fi
 
 
def crossout =
pickup crisp.nib;
pos100(1rule_thickness,90); pos101(1rule_thickness,90);
%pos200(1rule_thickness,90); pos201(1rule_thickness,90);
%pos300(1rule_thickness,90); pos301(1rule_thickness,90);
top y100r=top y101r=.6x_height;   lft x100=-u; rt x101=w+u;
%top y200r=top y201r=-.6desc_depth;   lft x200=-u; rt x201=w+u;
%top y300r=top y301r=-1.2desc_depth; lft x300=-u; rt x301=w+u;
filldraw stroke z100e--z101e;  % bar
%filldraw stroke z200e--z201e;  % bar
%filldraw stroke z300e--z301e;  % bar
%penlabels(100,101);
%penlabels(200,201);
%penlabels(300,301);
enddef;
 
extra_endchar:=extra_endchar&"crossout";
 
input cmr12