summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/XAP_fth/DLE_kliton.mf
blob: 741718e946ddad5c79e46ca698cf9047979182b1 (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
beginchar(oct"020",.4em#,.5cap#,0dth#); "Kliton";
picture DLE;
 path p[];

 Radi = .5Diam;
 z0 = .5(w,h);
 z1 = .74(w,h);
 d1 = (x0-x1)++(y0-y1);
 l1 = Radi/d1;
 x2 = l1*x1 + (1-l1)*x0;
 y2 = l1*y1 + (1-l1)*y0;
 z3 = .1(w,h);
 d2 = (x0-x3)++(y0-y3);
 l2 = Radi/d2;
 x4 = l2*x3 + (1-l2)*x0;
 y4 = l2*y3 + (1-l2)*y0;
 x5 = 1w/25; y5 = 5h/25;

 pickup pencircle scaled .8pt;
 p1 = fullcircle scaled Diam shifted (z0);
 p2 = z1--z3..{z4-z3}z5;
 p3 = z2--z4;
 draw p1;
 draw p2;
 undraw p3;
DLE = currentpicture;
endchar;