summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/Alphabet/Caps/D.mf
blob: 1395fc759a8d07bb6598429d14d57d192b9c7a7e (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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
beginchar("D",em#,5cap#/7,0); "Delta";
path p[];
 save ww,hh,dd;

 ww = w/10; hh = h/5;
 b := ww;

 z0 = (7ww,5hh); 
 x1 = 2ww; y1 = 9.5hh;
 x3 = 10ww - x2 = ww; 
 y3 = y2 = hh;
 p1 = z1{right}..z0..{right}z2;
 z4 = point .3 of p1;
 z5 = z4;
 p2 = z4{left}..{left}z3;
 z6 = point .5 of p2;
 z7 = (5ww,y3);
 z8 = .5[z4,z6];
 z9 = point .6 of p1;
 z10 = point 1.5 of p1;
 z11 = (x6,.5[y3,y6]);
 z12 = (x1,y9);
 z13 = (x0,y4);
 z14 = z3;
 z15 = z2;
 y16 = y17 = .5hh;
 x16 = x3;
 x17 = x2;
 penpos1(b,90);
 penpos0(1.7b,0);
 penpos2(b,90);
 penpos7(.6b,90);
 penpos3(b,270);
 penpos4(b,270);
 penpos5(b,0);
 penpos6(1.7b,0);
 penpos8(.6b,angle(z6-z8) + 90);
 penpos9(.6b,angle(z0-z9) + 90);
 penpos10(.6b,0);
 penpos11(.8b,0);
 penpos14(b,90);
 penpos15(b,90);

 penstroke z1e{right}..z9e..z0e..z10e..{right}z2e;
 penstroke z5e{down}..z8e..z6e..z11e..{left}z3e;
 penstroke z14e..z7e..z15e;
 pickup pencircle scaled b;
 drawdot z1;
 drawdot z2;
 drawdot z3;
 draw z3..z16; 
 draw z2..z17; 
 pickup pencircle scaled .4pt;
 draw z7{up}..z8..{left}z12;;
 draw z7{up}..z9..{right}z13;
 draw fullcircle scaled .5b shifted (z12);
 draw fullcircle scaled .5b shifted (z13);

endchar;