summaryrefslogtreecommitdiff
path: root/fonts/gothic/yinit/yinitF.mf
blob: 7e45909d367aaeac6277626d7fe672f13b4698e2 (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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
.cmchar "The letter F";
.beginchar("F",8.9u#+0.3mm#,8.7m*u#,0);
.adjust_fit(0,0); 
z1=(3.2u,5.3v); z2=(3.6u,5.7v); z3=(3.45u,6.05v); z4=(2.95u,6.25v);
z5=(2.45u,6.65v);  z6=(2.5u,7v); z7=(3.25u,7.45v); z8=(4.45u,6.25v);
z9=(3u,4.65v); z10=(1.35u,6.4v);  z11=(3.35u,8.45v); z12=(5.5u,7.45v);
z13=(7.8u,6.4v); z14=(8.8u,7.6v); z15=(7.8u,8.5v);  z16=(7.15u,7.9v);
z17=(7.7u,7.45v); z18=(8.1u,7.4v); z19=(8.25u,7.75v); z20=(4.7u,0.95v); 
z21=(5.7u,1.7v); z22=(6.8u,3.4v); z23=(6.4u,4.25v); z24=(5.1u,5.15v);
z25=(4.9u,6v);  z26=(5.9u,7v); z27=(4.3u,0.2v); z28=(4.4u,1.5v);
z29=(2.2u,2.3v); z30=(1.85u,3.3v);  z31=(3u,4.3v); z32=(3.75u,3.6v);
z33=(3.15u,2.85v); z34=(2.6u,3.35v); z35=(2.85u,3.75v);  z36=(4.25u,4.2v);
z37=(4.65u,4v); z38=(5.9u,2.8v); z39=(5.45u,1.95v); z41=(6.2u,4.75v); 
z42=(8u,4.6v);  penpos1(hair,-90); penpos2(0.1u,0); penpos3(0.5uv,42);
penpos4(0.9v,90);   penpos5(0.65uv,37); penpos6(0.25u,0); penpos7(1.5hair,-90);
penpos8(1.5hair,180);   penpos9(1.5hair,90); penpos10(1.5hair,0);
penpos11(0.7v,-90); penpos12(uv,-140);   penpos13(0.5uv,-90); penpos14(0.2u,0);
penpos15(hair,90); penpos16(hair,180);   penpos17(0.4v,-90); penpos18(0.2v,-90);
penpos19(hair,0); penpos20(hair,-35);   penpos22(0.8u,0); penpos21(1.5hair,-35);
penpos23(uv,51); penpos24(uv,51);   penpos25(0.475u,0); penpos26(hair,-52);
penpos27(hair,-23); penpos28(1.05uv,60);   penpos29(0.8uv,42); penpos30(0.4u,0);
penpos31(1.5hair,-90); penpos32(hair,180);   penpos33(hair,90);
penpos34(hair,0); penpos35(hair,-90); penpos36(1.4uv,50);   penpos37(0.8uv,52);
penpos38(0.3u,0); penpos39(hair,-53); penpos41(hair,40);  
penpos42(0.8uv,-140);  penstroke
z1e{right}...{up}z2e...z3e...{left}z4e...z5e...z6e...z7e...z8e...z9e...z10e...
z11e...z12e...z13e...z14e...{left}z15e...{down}z16e...z17e...z18e...{up}z19e;
penstroke z20e{(9u,9v)-(4.1u,0)}...z21e...z22e...z23e...z24e...z25e...
{(8.8u,9v)-(0,2.9v)}z26e; penstroke
z27e{(7.2u,9v)-(4.2u,0)}...z28e{(0,4.3v)-(6.9u,0)}...z29e...z30e...
z31e...z32e...z33e...z34e...{right}z35e; kouki(35,8,2); z36'=z36+(0.1u,0);
z37'=(5.7u,3.8v); filldraw flex(z36l,z36',z36r) &
z36r{down}...z37r...z37'...z38r...{(2.95u,0)-(9u,4.7v)}z39r  & z39r--z39l &
z39l{(9u,4.7v)-(2.95u,0)}...z38l...z37l...{(0,2.3v)-(9u,5.5v)}z36l & cycle;
penpos42.1(1.5hair,-50); penpos42.2(1.5hair,-230); z42.1r=z42l; z42.2l=z42r;
penpos43(hair,-50); penpos44(hair,-230); z43=(8.7u,5.15v); z44=(7.4u,4v);
z41'=(7.5u,5.45v); filldraw z41l{(9u,8v)-(2u,0)}...z41'...z42.1l...z43l &
z43l--z43r & z43r--z44l & z44l--z44r & z44r...z42.2r...{(2u,0)-(9u,8v)}z41r &
z41r--z41l & cycle; z50=(7.55u,1.8v); z51=(7.05u,1.85v); z52=(7.1u,2.15v); 
z53=(7.5u,2.4v); z54=(8.15u,1.7v); z55=(6.85u,0.85v);  mpalla(55,1.2);
z56=(5.2u,0.45v); z57=(5.8u,0.1v); z58=(6.15u,0.4v);  z59=(5.9u,0.6v);
z60=(5.4u,1.55v); z61=(2.8u,3.25v);  z62=(1.4u,2.8v); z63=(0.8u,1.5v);
z64=(1.2u,0.4v);  z65=(2.15u,0); z66=(3.2u,1.7v); z67=(2.25u,2.05v); 
z68=(1.4u,1.3v); z69=(1.7u,0.8v); z70=(2.25u,0.8v);  z71=(2.6u,1.2v);
z72=(0.6u,0); z73=(0.1u,0.5v);  z74=(0.45u,v); z75=(0.8u,0.7v);
z76=(0.65u,2.4v);  z77=(0.05u,3v); z78=(0.5u,3.4v); z79=(0.8u,3.1v); 
z80=(0.65u,2.85v); z81=(2.7u,5.3v); z82=(1.55u,4.3v);  z83=(0.8u,3.65v);
z84=(0.4u,4v); z85=(0.6u,4.2v);  z86=(2.2u,3.65v); z87=(2.7u,4.15v);
z88=(2.3u,4.5v);  z89=(4.2u,5v); z89'=(3.9u,6.3v); z90=(1.8u,8v); 
z91=(0.15u,6.5v); mpalla(91,1.3); z92=(1.25u,5v); z93=(2.15u,6.05v); 
z94=(1.4u,6.9v); z95=(0.65u,6.3v); z96=(1.25u,5.7v);  z97=(1.7u,6.1v);
z98=(2.45u,7.4v); z99=(1.4u,8.6v);  z100=(1.9u,9.15v); z101=(2.25u,8.8v);
z102=(2u,8.6v);  z103=(1.5u,7.3v); z104=(0,8.5v); z105=(0.75u,9.15v); 
z106=(1.05u,9v); z107=(0.95u,8.65v); z108=(0.7u,8.4v);  z109=(0.8u,8.2v);
z110=(5.55u,4.8v); z111=(7.4u,8v);  z112=(5.9u,9.3v); z113=(4.3u,7.7v);
z114=(5.5u,6.5v);  z115=(6.85u,7.7v); z116=(5.9u,8.6v); z117=(7.5u,5.8v); 
z118=(9.05u,4.25v); mpalla(118,1.2); z119=(7.9u,3v);  z120=(6.8u,3.9v);
z121=(7.65u,4.8v);  z122=(8.35u,4.2v); z123=(7.9u,3.6v); z124=(7.25u,1.65v);  
z125=(8.3u,1.3v); z126=(9.05u,2.05v); z127=(8.6u,2.5v);  z128=(8.3u,2.2v);
z129=(8.5u,1.95v); z130=(9u,0.55v);  z131=(8.65u,0.15v); z132=(8.4u,0.4v);
z133=(7.85u,0.6v);  z134=(7.5u,0.05v); z135=(7.15u,0.3v); z136=(7.3u,0.55v); 
z137=(2.6u,8.75v); z138=(3.65u,9.1v); z139=(6.2u,7.9v);  z140=(7.7u,6.9v);
z141=(8.1u,8.2v); z141'=(7.3u,9v); mpalla(141',1.2); ka(50,90);
penpos51(0.5uv,45); penpos52(0.2u,0); ka(53,-90); ka(54,180); ka(55,90);
ka(56,180); penpos57(0.25v,-90); ka(58,0);  ka(59,90); ka(60,49); ka(61,90);
ka(62,125); ka(63,180); ka(64,-135); ka(65,-90);  ka(66,0); ka(67,90);
ka(68,180); ka(69,-122); penpos70(0.2v,-90); ka(71,0);  ka(72,90); ka(73,0); 
ka(74,-90); ka(75,180); ka(76,90); ka(77,0); ka(78,-90); ka(79,180); ka(80,90); 
ka(81,90); ka(82,180); ka(83,90); ka(84,0); ka(85,-90); ka(86,-90); ka(87,0); 
ka(88,90); ka(89,12); ka(89',25); ka(90,90); ka(91,180); ka(92,-90); ka(93,0); 
ka(94,90); ka(95,180); ka(96,-90); ka(97,0); kouki(97,1,1.5); ka(98,65); 
ka(99,0); ka(100,-90);  ka(101,180); ka(102,90); kouki(102,5,1.1); ka(103,86);
ka(104,0); ka(105,-90);  penpos106(0.2u,180); penpos107(0.3uv,132);
penpos108(0.2u,180); ka(109,-90);  ka(110,-43); ka(111,0); ka(112,90);
ka(113,180); ka(114,-90); ka(115,0); ka(116,90);  kouki(106,7,1.2); ka(117,-90);
ka(118,180); ka(119,90); ka(120,0);  ka(121,-90); ka(122,180); ka(123,90);
kouki(123,5,1); penpos124(0.3uv,-140); ka(125,-90); ka(126,0); ka(127,90); 
ka(128,180); ka(129,-90); kouki(129,6,1.1); ka(130,180); ka(131,90);  ka(132,0);
kouki(132,2,1.1); ka(133,180); ka(134,90); ka(135,0);  ka(136,-90);
kouki(136,8,1.1); ka(137,-51); ka(138,-90);  ka(139,-135); ka(140,-90);
ka(141,90); kouki(141,7,1);  penstroke
z50e{left}...z51e...z52e...z53e...z54e...z55e{left}...z56e...z57e...
z58e...{left}z59e; penstroke
z55e{left}...z60e...z61e...z62e{(0,1.6v)-(8.8u,9v)}...z63e...z64e...
z65e...z66e...z67e...z68e...z69e...z70e...{up}z71e; penstroke
z68e{down}...z72e...z73e...z74e...{down}z75e; kouki(75,5,1.2); penstroke
z62e{(0,1.6v)-(8.8u,9v)}...z76e...z77e...z78e...z79e...{left}z80e;
kouki(80,5,1.2); penstroke
z60e{(0,7v)-(7u,0)}...z81e...z82e{down}...z83e...z84e...{right}z85e;
kouki(85,8,1); penstroke z82e{down}...z86e...z87e...{left}z88e; kouki(88,7,1.3);
penstroke z60e{(0,7v)-(7u,0)}...z89e{up}...z89'e...z90e...z91e...z92e...z93e...
z94e...z95e...z96e...{up}z97e;  penstroke
z89'e{(3u,9v)-(6.1,0)}...z90e...z91e...z92e...z93e...z94e...z95e...
z96e...{up}z97e; penstroke
z89'e{(3u,9v)-(6.1,0)}...z98e...z99e...z100e...z101e...{left}z102e; penstroke
z89'e{(3u,9v)-(6.1,0)}...z103e...z104e...z105e...z106e...z107e...
z108e...{right}z109e; penstroke
z60e{(0,7v)-(7u,0)}...z110e...z111e...z112e...z113e...z114e...z115e
...{left}z116e; kouki(116,7,1.1); penstroke
z110e{(9u,7.8v)-(0,0.3v)}...z117e...z118e...z119e...z120e...z121e...
z122e...{left}z123e; mpalla(124,1.8); penstroke
z124e...z125e...z126e...z127e...z128e...{right}z129e; penstroke
z124e{(9u,0.5v)-(0,7v)}...z130e...z131e...{up}z132e; penstroke
z124e{(9u,0.5v)-(0,7v)}...z133e...z134e...z135e...{right}z136e;
z140'=(8.5u,7.5v); ka(140',0); penstroke
z137e{(3u,9v)-(0,7.2v)}...z138e...z139e...z140e{right}...z140'e...{left}z141e;
penlabels(range 1 thru 145);
.endchar;