blob: 4ecbf99ace029ec13cf1e2931d8bc8ceae43aaef (
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
26
27
28
29
30
31
32
33
|
% Copyright 1988 Michael Urban
% Everyone is granted permission to copy, modify and redistribute
% this file, provided that a currently-dated copy of this
% copyright notice is included in the copy.
% License is granted to produce fonts based on the information
% in this file, provided that such fonts are redistributed
% without charge to any third party.
% SCCS ID @(#)bars.mf 1.1 10/1/86
def underbar=
begingroup;
save x,y;
z9 = barpoint;
x10 = .5w; y10=0;
x11= .8w; y11=0;
x12=w; y12=1/80em;
draw z9..z10{right}..z11{right}..z12;
penlabels(5,6,7,8,9,10,11,12);
endgroup;
enddef;
def overbar=
begingroup;
save x,y;
z9 = barpoint;
x10 = .7w; top y10=xht;
x11= .2w; top y11=xht;
x12=0; top y12=xht-1/80em;
draw z9..z10{left}..z11{left}..z12;
endgroup;
enddef;
|
