summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/XAP_pos/x002_oligon.mf
blob: 37d13f95db43f64f7e168ddba291bd557dd77bef (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
beginchar(oct"002",.8em#,5cap#/7,0dth#); "Oligon";
 path p[];
 picture OLIGON, scOLIGON;

 save ww,hh;
 ww = w/8; hh = h/5;

 y0 = y1 = 0;
 y2 = y3 = hh;
 x0 = .4ww; x1 = 7.9ww;
 x2 = 7.6ww; x3 = .1ww;
 p0 = z0--z1..z2--z3..cycle;
 fill p0;
 OLIGON = currentpicture;
 clearit;
 p1 = p0 xscaled 1.4;
 fill p1;
 scOLIGON = currentpicture;
 clearit;
 addto currentpicture also OLIGON;
 endchar;