-
Notifications
You must be signed in to change notification settings - Fork 0
/
yinitB.mf
135 lines (134 loc) · 8.87 KB
/
yinitB.mf
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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
.cmchar "The letter B"; .beginchar("B",8.9u#,8.7m*u#,0);
.adjust_fit(0,0); z1=(.9u,.9v); z2=(1.3u,1.1v); z3=(1.1u,1.4v);
z4=(0.9u,1.7v); z5=(1.3u,1.9v); z6=(1.85u,1.3v); z7=(1.1u,.5v); z8=(0.2u,1.1v);
z8'=(0,1.5v); z9=(1.4u,2.8v); z10=(2.8u,2.2v); z10'=(4.35u,.7v); z11=(6.3u,v);
z12=(7.55u,3.95v); z13=(4.9u,4.2v); z14=(4.3u,3.5v); z15=(5.5u,1.7v);
z16=(6.8u,3v); z17=(6u,3.9v); z18=(5.2u,3.3v); z19=(5.4u,2.9v);
z20=(5.75u,2.95v); z21=(6.05u,2.7v); z22=(5.9u,2.45v); penpos1(hair,-110);
penpos2(.3u,0); penpos3(.4u,74); penpos4(.3u,0); penpos5(1.5hair,-90);
penpos6(hair,-180); penpos7(hair,90); penpos8(1.5hair,12); penpos8'(hair,0);
penpos9(.2v,-84); penpos10(.5[u,v],-144); penpos10'(0.55u,-119);
penpos11(1.5hair,-61); penpos12(.9u,30); penpos13(.2v,-225);
penpos14(hair,-180); penpos15(hair,-90); penpos16(hair,0); penpos17(1.2hair,90);
penpos18(.3u,-180); penpos19(.6v,-90); penpos20(0.5v,-73); penpos21(.2u,-180);
penpos22(hair,110); penstroke
z1e{(2.6u,0)-(0,1.4v)}...z2e...z3e...z4e...z5e...z6e...z7e...
z8e...z9e{right}...z10e...z10'e...z11e...z12e...z13e...z14e...z15e...z16e...
z17e...z18e...z19e...z20e...z21e...{(2u,0)-(9.8u,5v)}z22e; z23=(1.85u,2.25v);
z24=(4.8u,0.05v); z25=(5.3u,0.07v); z26=(5.7u,0.15v); z27=(8.6u,3.15v);
z28=(7.2u,5.35v); z29=(6.8u,5.4v); z30=(6.5u,5.3v); z31=(2.3u,1.3v);
z32=(1.3u,0); z33=(0.9u,0.2v); z34=(2.6u,0.8v); z23'=(2.2u,1.7v);
z34'=(2.5u,0.5v); z35=(2.1u,0.2v); z35'=(3u,-0.1v); z36=(3.1u,0.4v);
z37=(3.3u,0.4v); penpos23(hair,-144); penpos24(hair,-90); penpos25(hair,-90);
penpos26(hair,-75); penpos27(hair,0); penpos28(hair,82); penpos29(hair,90);
penpos30(hair,98); penpos31(hair,-180); penpos32(hair,90); penpos33(hair,33);
penpos34(hair,-180); penpos34'(hair,-180); penpos35(hair,90);
penpos35'(hair,-90); penpos36(hair,-90); penpos37(hair,-45);
penpos23'(hair,-144); penstroke
z23e{(3.3u,0)-(0,5v)}...z23'e...z24e...z25e...z26e...z27e...z28e...z29e...
{(0,4.5v)-(3.9u,5v)}z30e; penstroke
z23'e{(3.7u,0)-(0,4.3v)}...z31e...z32e...{(0,1.8v)-(u,0)}z33e; penstroke
z23'e{(3.5u,0)-(0,4.5v)}...z34e...z34'e...{left}z35e; penstroke
z34'e...{right}z35'e; penstroke
z23'e{(3.3u,0)-(0,5v)}...{right}z36e..z36e...z37e; z38=(6.25u,0.3v);
z39=(7.55u,1.3v); z40=(8.4u,0.65v); z41=(7.8u,0); z42=(7.4u,0.4v);
z43=(7.75u,0.75v); z44=(7.9u,0.5v); z45=(6.65u,1.7v); z46=(5.9u,2.35v);
z47=(5.2u,1.75v); z48=(4.85u,1.05v); z49=(5.75u,1.25v); z50=(6.05u,1.65v);
penpos38(hair,-35); penpos39(hair,-90); penpos40(hair,-180); penpos41(hair,90);
penpos42(hair,0); penpos43(hair,-90); penpos44(hair,-180); penpos45(hair,0);
penpos46(hair,90); penpos47(hair,-180); penpos48(hair,90); penpos49(hair,-90);
penpos50(hair,0); penstroke
z38e{(10u,5.6v)-(6u,0)}...z39e...z40e...z41e...z42e...z43e...z44e;
kouki(44,3,1.25); penstroke z41e{left}...{up}z38e &
z38e{(10u,5.6v)-(6u,0)}...z45e...z46e..z47e ...{left}z48e; kouki(48,5,1);
penstroke z47e{down}...z49e...{up}z50e; kouki(50,1,1.5); mpalla(24,1);
mpalla(25,1); mpalla(26,1); z51=(1.85u,3.7v); z52=(1.5u,3.9v); z53=(1.15u,3.5v);
z54=(1.7u,3.1v); z55=(2.3u,3.75v); z56=(1.45u,4.55v); z57=(0.3u,3.5v);
z58=(1.6u,2.2v); z59=(3.1u,3.4v); z60=(3.45u,4.8v); z61=(2.45u,6.25v);
z62=(2.05u,6.35v); z63=(2.6u,2.4v); z64=(4.3u,5.5v); z65=(2.5u,7.75v);
z66=(1.6u,7.5v); z67=(0.7u,7.5v); z68=(0.35u,8.75v); z68'=(0.7u,8.85v);
z69=(1.1u,8.6v); z70=(1.4u,8.35v); z71=(1.6u,8.5v); z60'=(3.1u,5.7v);
penpos51(hair,0); penpos52(hair,90); penpos53(hair,-180); penpos54(hair,-90);
penpos55(hair,0); penpos56(hair,90); penpos57(hair,-180); penpos58(hair,-90);
penpos59(0.1u,-45); penpos60(0.5u,0); penpos61(1.2u,37); penpos62(1.8u,37);
penpos63(hair,-42); penpos64(0.75u,0); penpos65(0.9v,90); penpos66(0.9v,110);
penpos67(0.7v,62); penpos68(1.5hair,-45); penpos68'(hair,-90);
penpos69(0.35u,-150); penpos70(2hair,-90); penpos71(hair,0); penpos60'(0.7u,38);
penstroke z51e{up}...z52e...z53e...z54e...z55e...z56e...z57e...z58e...z59e...
z60e...z60'e...z61e...{(0,7.6v)-(4.6u,5v)}z62e; penstroke
z63e{(5u,4.75v)-(0,0)}...z64e...z65e...z66e...z67e...z68e...z68'e...
z69e...z70e...{up}z71e; kouki(51,3,2); z72=(7.8u,5.8v); z73=(8.05u,5.6v);
z74=(8.4u,5.9v); z75=(8u,6.3v); z76=(7.1u,5v); z77=(4.7u,2.7v); z78=(2.9u,4.8v);
z79=(3.9u,7v); z80=(5.6u,7.9v); z81=(6.65u,7.65v); z82=(7.05u,6.95v);
z83=(7.3u,6.35v); penpos72(hair,-180); penpos73(hair,-90); penpos74(hair,0);
penpos75(hair,90); penpos76(hair,-180); penpos77(hair,90); penpos78(hair,0);
penpos79(hair,-39); penpos80(0.5v,-90); penpos81(0.875u,-134);
penpos82(1.1u,-144); penpos83(1.5u,-141); penstroke
z72e{down}...z73e...z74e...z75e{left}...z76e{down}...z77e{left}...
z78e{up}...{(7.6u,10v)-(0,3.7v)}z79e; kouki(72,2,1.3); z84l=z82l; z84r=z83;
z85=(8.15u,7.15v); z86=(8.35u,7.7v); z87=(7.9u,8.3v); z88=(7.6u,8v);
z89=(7.7u,7.95v); z90=(8.1u,7.8v); z91=(7.7u,7.5v); z92=(7.2u,8v);
z93'=(8.45u,8.4v); z93=(7.9u,8.7v); z94=(8.6u,7.7v); z94'=z30;
penpos85(2hair,-53); penpos86(hair,0); penpos87(hair,90); penpos88(1.5hair,-180);
penpos89(0.3v,-90); penpos90(hair,-180); penpos91(hair,90); penpos92(hair,0);
penpos93(hair,-90); penpos93'(hair,-135); penpos94(hair,-180);
penpos94'(hair,-236); penstroke
z85e{(10u,9.5v)-(0,0.6v)}...z86e{up}..z87e{left}..z88e...z89e...z90e{down}..
z91e{left}..z92e...z93e...z93'e...z94e...{(0,1.1v)-(10u,7.9v)}z94'e; z93.2=z93';
z92'=z93.2+(-.1u,.6v); penpos93.2(hair,39); penpos92'(hair,-90); penstroke
z93.2e{(7.2,10)-(10,6.5)}...{right}z92'e; kouki(92',8,1); z95=(6.35u,5.6v);
penpos95'(hair,-225); z95'r=z13r; penpos95(1.5hair,128.5); penstroke
z95e{(0,0.4v)-(10u,8.6v)}...z95'e; filldraw
z79l{(7.6u,10v)-(0,3.7v)}...z80l...z81l...
z82l{(8.9u,5v)-(5.7u,10v)}...{(10u,8.2v)-(0,2.6v)}z85l & z85l--z85r & z85r--z95l
& z95l--z95r & z95r{z83r-z95l}...{(6.4u,10v)-(7.25u,0)}z82r...z81r...z80r...
{(0,3.7v)-(7.6u,10v)}z79r & z79r--z79l & cycle; z100=(2.7u,2.3v);
z101=(4.5u,4.25v); z102=(5.05u,6.1v); z103=(4.6u,7.6v); z104=(2.35u,8.8v);
z105=(0.2u,6.7v); z106=(1.9u,5.1v); z107=(3u,6.5v); z108=(2.2u,7.1v);
z109=(1.3u,6.3v); z110=(1.9u,5.75v); z111=(2.4u,6.3v); z112=(2u,6.7v);
z113=(1.7u,6.5v); penpos100(hair,-51); penpos101(hair,-30); penpos102(hair,0);
penpos103(hair,25); penpos104(hair,90); penpos105(hair,180);
penpos106(hair,-90); penpos107(hair,0); penpos108(hair,90); penpos109(hair,180);
penpos110(hair,-90); penpos111(hair,0); penpos112(hair,90); penpos113(hair,180);
kouki(113,4,1); penstroke
z100e{(6.4u,5v)-(0,.3v)}...z101e...z102e...z103e...z104e...z105e...
z106e...z107e...z108e...z109e...z110e...z111e...z112e...{down}z113e;
z106'=(7.65u,6.25v); mpalla(106',2); z114=(6.1u,6.1v); z115=(4.2u,5.2v);
z116=(5.3u,4.1v); z117=(6.2u,5.1v); z118=(5.6u,5.7v); z120=(5.35u,6.9v);
z121=(5.8u,7.25v); z122=(6.2u,6.8v); z123=(5.85u,6.6v); z114'=(5.4u,8.9v);
z115'=(5.7u,8.65v); z116'=(5.5u,8.3v); z117'=(4.1u,9.1v); z29'=z76;
z119=(5.3u,5.3v); penpos29'(hair,0); penpos114(hair,65); penpos115(hair,-180);
penpos116(hair,-90); penpos117(hair,0); penpos118(hair,90); penpos119(hair,180);
penpos120(hair,0); penpos121(hair,-90); penpos122(hair,-180);
penpos123(hair,90); penpos114'(hair,-90); penpos115'(hair,-180);
penpos116'(hair,90); penpos117'(hair,20); penstroke
z103e{(4.7u,10v)-(5.7u,5v)}---z117'e; penstroke
z103e{(4.7u,10v)-(5.7u,5v)}...z114'e...z115'e...{left}z116'e; kouki(116',5,1);
penstroke z29'e{up}...z114e...z115e...z116e...z117e...z118e... {down}z119e;
kouki(119,4,2); mpalla(106,1.5); z125=(2.25u,2.65v); z126=(1.85u,5.55v);
z127=(1.05u,4.8v); z128=(1.6u,4.2v); z129=(2.1u,4.7v); z130=(1.8u,5v);
mpalla(27,1.5); penpos125(hair,-38); penpos126(hair,90); penpos127(hair,180);
penpos128(hair,-90); penpos129(hair,0); penpos130(hair,90); kouki(130,7,1.5);
penstroke z125e{(4.3u,5v)-(0,0)}...z78e...
z126e...z127e...z128e...z129e...{left}z130e; penstroke
z114e{(0,8v)-(9.3u,5v)}...z120e...z121e...{left}z123e; kouki(123,5,1.5);
z131=(3.7u,3.1v); z132=(3.9u,2.6v); z133=(3.6u,2.3v); z134=(3.4u,2.4v);
z135=(0.3u,7.8v); z136=(-0.2u,7.5v); z137=(-0.5u,7.7v); z138=(7.8u,1.3v);
z139=(8.6u,1.8v); penpos131(hair,-131); penpos132(hair,-180);
penpos133(hair,90); penpos134(hair,0); kouki(134,2,1.2); penpos135(hair,-230);
penpos136(hair,90); penpos137(hair,0); kouki(137,2,1.2); penpos138(hair,-42);
penpos139(hair,-90); kouki(139,8,1.5); penstroke
z131e{(7u,0)-(0,6.7v)}...z132e...z133e...{up}z134e; penstroke
z135e{(0,0)-(5u,5v)}...z136e...{up}z137e; penstroke
z138e{(10u,3.5v)-(6.6u,0)}...{right}z139e; z200=(-0.3u,2.9v);
z201=z200+(-0.15u,0.5v); z202=z200+(1.3u,0.5v); triaina(200,201,202,0.6);
z210=(1.1u,6.8v); z211=z210+(0.6u,-1.2v); z212=z210+(-1.8u,-1.1v);
triaina(210,211,212,0.4); z207=(3.75u,8.3v); z208=z207+(-0.15u,0.55v);
z209=z207+(1.1u,0.3v); triaina(207,208,209,0.8); kouki(35',6,1.2);
z220=0.5[z14,z10'l]; mpalla(220,2); z240=z114; penpos240(0.25u,-35);
penpos241(0.6v,55); z241=z114; z240.1=z241r; z240.2=z241l;
penpos240.1(0.25u,-35); penpos240.2(0.25u,-35); penstroke z240.1e--z240.2e;
z250=((8.4u,0)--(8.4u,9v)) intersectionpoint (z27{up}..z28..z29);
z251=(8.3u,5.1v); ka(250,45); ka(251,0); penstroke z250e{dir110}..z251e{up};
kouki(251,2,1.2); kouki(35,5,1); penlabels(range 1 thru 250);
.endchar;