summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/Alphabet/Caps/N.mf
blob: 2b1bad4c4fb89312e9352930d02d572c08f3a261 (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
beginchar("N",em#,5cap#/7,0dth#); "Ni";
path p[];
 save ww,hh,dd;

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

 y3 = y6 = 9hh;
 x1 = x2 = x3 = x9 = x7;
 x4 = x5 = x6 = x10 = x8;
 x1 = 10ww - x4 = ww;
 y1 = y4 = 0; x0 = 5ww;
 y2 = y5 = .25[y1,y3];
 y0 = y9 = y10 = .5[y1,y3];
 y7 = y8 = .75[y1,y3];
 z11 = .5[z3,z7];
 z12 = .5[z5,z4];

 p5 = z11{right}..z0..{right}z12;
 z13 = point .5 of p5;
 z14 = point 1.5 of p5;
 z15 = .75[z2,z14];
 z16 = .75[z8,z13];

 penpos0(1.7b,45);
 penpos1(2b,0);
 penpos2(.6b,0);
 penpos9(1.7b,0);
 penpos7(.6b,0);
 penpos3(b,0);
 penpos6(b,0);
 penpos8(.6b,0);
 penpos10(1.7b,0);
 penpos5(.6b,0);
 penpos4(2b,0);
 penpos11(b,90);
 penpos12(b,90);
 penpos13(.6b,45);
 penpos14(.6b,45);

 penstroke z1e..z2e..z9e..z7e..z3e;
 penstroke z4e..z5e..z10e..z8e..z6e;
 penstroke z11e{right}..z13e..z0e..z14e..{right}z12e;

 pickup pencircle scaled .4pt;
 draw z13..controls z1..z15;
 draw z14..controls z6..z16;
 draw fullcircle scaled .5b shifted (z16);
 draw fullcircle scaled .5b shifted (z15);
 pickup pencircle scaled b;
 drawdot z3;
 drawdot z6;

endchar;