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
|