diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/yi4latex/yirdefs.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/yi4latex/yirdefs.mf | 519 |
1 files changed, 519 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/yi4latex/yirdefs.mf b/Master/texmf-dist/fonts/source/public/yi4latex/yirdefs.mf new file mode 100644 index 00000000000..766cb0087d9 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/yi4latex/yirdefs.mf @@ -0,0 +1,519 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%% The Yi Syllable Font. +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%% (c) Oliver Corff, Berlin/Beijing/Ulaanbaatar 1997. +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%% Common definitions. +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def getpen = + pickup pencircle scaled thick; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def eyebrow = % nnnX syllables are covered by this! + x97=5/16width; + x98=4/8width; + x99=11/16width; + y97=y99=11/12height; + y98=23/24height; + getpen; + draw z97..z98..z99; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def gong(expr lx, uy, rx, ly) = % The gong-shape appearing so often. + numeric x[]; + numeric y[]; + x1:=lx; y1:=uy; + x2:=rx; y2:=uy; + x3:=lx; y3:=ly; + x4:=rx; y4:=ly; + z5=1/2[z1,z2]; + z6=1/2[z3,z4]; + getpen; + draw z1--z2; draw z3--z4; draw z5--z6; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Ddash(expr lx, uy, rx, ly) = % The Double Dash-shape appearing so often. + numeric x[]; + numeric y[]; + z1=(lx,uy); + z2=1/3[z1,z4]; + z3=2/3[z1,z4]; + z4=(rx,ly); + getpen; + draw z1--z2; + draw z3--z4; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Er(expr lx, uy, rx, ly) =% The er-shape appearing so often. + numeric x[]; + numeric y[]; + x1=lx; y1=uy; + x2=rx; y2=uy; + x3=lx; y3=ly; + x4=rx; y4=ly; + getpen; + draw z1--z2; draw z3--z4; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def san(expr lx, uy, rx, ly) =% The san-shape appearing so often. + numeric x[]; + numeric y[]; + x1=lx; y1=uy; + x2=rx; y2=uy; + x3=lx; y3=ly; + x4=rx; y4=ly; + x5=lx; y5=1/2[ly,uy]; + x6=rx; y6=1/2[ly,uy]; + getpen; + draw z1--z2; draw z3--z4; draw z5--z6; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def H(expr lx, uy, rx, ly) = % The H-shape appearing so often. + numeric x[]; + numeric y[]; + x1:=lx; y1:=uy; + x2:=lx; y2:=ly; + x3:=rx; y3:=uy; + x4:=rx; y4:=ly; + z5=1/2[z1,z2]; + z6=1/2[z3,z4]; + getpen; + draw z1--z2; draw z3--z4; draw z5--z6; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Ih(expr lx, uy, rx, ly) = % The Single Dash-shape appearing so often. + numeric x[]; + numeric y[]; + z1=(lx,uy); + z2=(rx,ly); + getpen; + draw z1--z2; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def II(expr lx, uy, rx, ly) =% The II-shape appearing so often. + numeric x[]; + numeric y[]; + x1:=lx; y1:=uy; + x2:=lx; y2:=ly; + x3:=rx; y3:=uy; + x4:=rx; y4:=ly; + getpen; + draw z1--z2; draw z3--z4; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def III(expr lx, uy, rx, ly) =% The III-shape appearing so often. + numeric x[]; + numeric y[]; + x1=lx; y1=uy; + x2=lx; y2=ly; + x3=rx; y3=uy; + x4=rx; y4=ly; + x5=1/2[lx,rx]; y5=uy; + x6=1/2[lx,rx]; y6=ly; + getpen; + draw z1--z2; draw z3--z4; draw z5--z6; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def N(expr lx, uy, rx, ly) = % The N-shape appearing so often. + numeric x[]; + numeric y[]; + x1:=lx; y1:=ly; + x2:=lx; y2:=uy; + x3:=rx; y3:=ly; + x4:=rx; y4:=uy; + getpen; + draw z1--z2--z3--z4; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Oh(expr lx, uy, rx, ly) = % The O-shape appearing so often. + numeric x[]; + numeric y[]; + x51:=x53:=1/2[lx,rx]; + y51:=uy; + x52:=rx; + y52:=y54:=1/2[uy,ly]; + y53:=ly; + x54:=lx; + getpen; + draw z51..z52..z53..z54..cycle; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Otense(expr lx, uy, rx, ly, t) = % The O-shape appearing so often. + numeric x[]; + numeric y[]; + x1=x3=1/2[lx,rx]; + y1=uy; + x2=rx; + y2=y4=1/2[uy,ly]; + y3=ly; + x4=lx; + getpen; + draw z1..tension t..z2..tension t..z3..tension t..z4..tension t..cycle; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def S(expr lx, uy, rx, ly) = % The S-shape appearing so often. + numeric x[]; + numeric y[]; + z1=(rx,5/6[ly,uy]); + z2=(1/2[lx,rx],uy); + z3=(lx,1/4[uy,ly]); + z4=(x2,1/2[uy,ly]); + z5=(rx,1/4[ly,uy]); + z6=(x2,ly); + z7=(lx,1/6[ly,uy]); + getpen; + draw z1..{left}z2{left}..z3..z4..z5..{left}z6{left}..z7; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def T(expr lx, uy, rx, ly) = % The Single Dash-shape appearing so often. + Ih(lx,uy,rx,uy); + Ih(1/2[lx,rx],uy,1/2[lx,rx],ly); +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Tdash(expr px, uy, ly) = % The Triple Dash-shape appearing so often. + numeric x[]; + numeric y[]; + z1=(px,uy); + z2=(x1,1/5[uy,ly]); + z3=(x1,2/5[uy,ly]); + z4=(x1,3/5[uy,ly]); + z5=(x1,4/5[uy,ly]); + z6=(x1,ly); + getpen; + draw z1--z2; + draw z3--z4; + draw z5--z6; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def U(expr lx, uy, rx, ly) = % The U-shape appearing so often. + numeric x[]; + numeric y[]; + z1=(lx,uy); + z2=(lx,2/3[uy,ly]); + z3=(1/2[lx,rx],ly); + z4=(rx,y2); + z5=(rx,uy); + + getpen; + draw z1---z2..z3..z4---z5; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def X(expr lx, uy, rx, ly) = % The X-shape appearing so often. + numeric x[]; + numeric y[]; + x1:=lx; y1:=uy; + x2:=rx; y2:=uy; + x3:=lx; y3:=ly; + x4:=rx; y4:=ly; + getpen; + draw z1--z4; draw z2--z3; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Xi(expr lx, uy, rx, ly) = % The XI-shape appearing so often. + numeric x[]; % Since there is a syllable + numeric y[]; % "XI" in the corpus this one + x1:=lx; y1:=uy; % is given as 'Xi'; see also + x2:=rx; y2:=uy; % "O" and 'Oh'. This helps us + x3:=lx; y3:=ly; % to avoid confusion. + x4:=rx; y4:=ly; + getpen; + draw z1--z4--z2--z3; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def IXI(expr lx, uy, rx, ly) = % The IXI-shape appearing so often. + numeric x[]; + numeric y[]; + x1:=lx; y1:=uy; + x2:=rx; y2:=uy; + x3:=lx; y3:=ly; + x4:=rx; y4:=ly; + getpen; + draw z1--z4--z2--z3--cycle; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Z(expr lx, uy, rx, ly) = % the inverted Z-shape + numeric x[]; + numeric y[]; + x1:=lx; + x4:=rx; + x2:=x3:=1/2[x1,x4]; + y2:=ly; + y3:=uy; + y1:=1/6[y2,y3]; + y4:=5/6[y2,y3]; + getpen; + draw z1--z2--z3--z4; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Zdash(expr lx, uy, rx, ly) = % the inverted Z-shape with dash + numeric x[]; + numeric y[]; + x1:=lx; + x4:=rx; + x2:=x3:=1/2[x1,x4]; + y2:=ly; + y3:=uy; + y1:=1/6[y2,y3]; + y4:=5/6[y2,y3]; + z5=(lx,1/2[uy,ly]); z6=(rx,y5); + getpen; + draw z1--z2--z3--z4; + draw z5--z6; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def ZPimmel(expr lx, uy, rx, ly) = % the inverted Z-shape with Pimmel + numeric x[]; + numeric y[]; + x1:=lx; + x4:=rx; + x2:=x3:=1/2[x1,x4]; + y2:=ly; + y3:=uy; + y1:=1/6[y2,y3]; + y4:=5/6[y2,y3]; + z5=(1/2[lx,rx],2/5[uy,ly]); z6=(7/8[lx,rx],1/4[ly,uy]); + getpen; + draw z1--z2--z3--z4; + draw z5{z2-z1}..{down}z6; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Arsch(expr lx, uy, rx, ly) = % the Arsch-shape + numeric x[]; + numeric y[]; + z1=(1/2[lx,rx],uy); + z2=(rx,6/24[ly,uy]); + z3=(1/2[x2,x4],ly); + z4=(x1,y2); + z5=(1/2[x4,x6],ly); + z6=(lx,y2); + getpen; + draw z1{right}..tension 1.5..z2{down}..z3..{up}z4 & + z4{down}..z5..{up}z6..tension 1.5..{right}z1..cycle; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Blitz(expr lx, uy, rx, ly) = % the Blitz-shape + numeric x[]; + numeric y[]; + z1=(1/2[lx,rx],uy); + z2=(lx,1/3[ly,uy]); + z3=(rx,1/3[uy,ly]); + z4=(x1,ly); + getpen; + draw z1--z2--z3--z4; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Brunnen(expr lx, uy, rx, ly) = % the Brunnen (jing)-shape + numeric x[]; + numeric y[]; + z1=(1/4[lx,rx],uy); + z2=(x1,ly); + z3=(3/4[lx,rx],uy); + z4=(x3,ly); + z5=(lx,1/4[uy,ly]); + z6=(rx,y5); + z7=(lx,3/4[uy,ly]); + z8=(rx,y7); + getpen; + draw z1--z2; + draw z3--z4; + draw z5--z6; + draw z7--z8; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Busen(expr lx, uy, rx, ly) = % the Busen-shape + numeric x[]; + numeric y[]; + x11:=lx; + x15:=rx; + x13:=1/2[x11,x15]; + x12:=1/2[x11,x13]; + x14:=1/2[x13,x15]; + y11:=y13:=y15:=uy; + y12:=y14:=ly; + + getpen; + draw z11{down}..z12..{up}z13 & z13{down}..z14..{up}z15; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Gasmaske(expr lx, uy, rx, ly) = % the Gasmaske-shape + numeric x[]; + numeric y[]; + Oh(lx,uy,1/3[lx,rx],5/12[uy,ly]); + Oh(2/3[lx,rx],uy,rx,5/12[uy,ly]); + Oh(1/3[lx,rx],7/12[uy,ly],2/3[lx,rx],ly); + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Huegel(expr lx, uy, rx, ly) = % the Huegel-shape + numeric x[]; + numeric y[]; + z1=(lx,ly); + z2=(1/2[lx,rx],uy); + z3=(rx,ly); + getpen; + draw z1{up}..tension 1.2..z2..tension 1.2..{down}z3; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Jalousie(expr lx, uy, rx, ly) = % The Jalousie-shape appearing so often. + numeric x[]; + numeric y[]; + z1=(lx,uy); + z2=(rx,1/5[uy,ly]); + z3=(x1,2/5[uy,ly]); + z4=(x2,3/5[uy,ly]); + z5=(x1,4/5[uy,ly]); + z6=(x2,ly); + getpen; + draw z1--z2; + draw z3--z4; + draw z5--z6; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Liane(expr lx, uy, rx, ly) = % the Liane-shape + numeric x[]; + numeric y[]; + z1=(lx,uy); + z2=(1/2[lx,rx],ly); + z3=(rx,uy); + getpen; + draw z1{down}..tension 1.2..z2..tension 1.2..{up}z3; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Plus(expr lx, uy, rx, ly) = % The Plus-shape appearing so often. + numeric x[]; + numeric y[]; + x1=1/2[lx,rx]; y1=uy; + x2=rx; y2=1/2[uy,ly]; + x3=lx; y3=y2; + x4=x1; y4=ly; + getpen; + draw z1--z4; draw z2--z3; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Quad(expr lx, uy, rx, ly) = % the Four Strokes-shape + numeric x[]; + numeric y[]; + z1=(lx,uy); + z2=(lx,1/3[uy,ly]); + z3=(lx,2/3[uy,ly]); + z4=(lx,ly); + z5=(rx,y1); + z6=(rx,y2); + z7=(rx,y3); + z8=(rx,y4); + getpen; + draw z1--z2; + draw z3--z4; + draw z5--z6; + draw z7--z8; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Sanduhr(expr lx, uy, rx, ly) = % the Sanduhr-shape + numeric x[]; + numeric y[]; + z1=(lx,uy); + z2=(rx,uy); + z3=(lx,ly); + z4=(rx,ly); + getpen; + draw z1--z2--z3--z4--cycle; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Sichel(expr lx, uy, rx, ly) = % the Sichel-shape + numeric x[]; + numeric y[]; + x1:=x5:=x6:=lx; + x3:=x4:=rx; + x2:=1/2[x1,x3]; + + y2:=uy; + y6:=ly; + y1:=y3:=1/6[y2,y6]; + y4:=y5:=11/16[y2,y6]; + x7:=rx; y7:=ly; % Ein Hilfspunkt! + getpen; + draw z1..z2..z3---z4{z4-z3}..{z5-z7}z5&z5--z6; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +def Smiley(expr lx, uy, rx, ly) = % the Smiley-shape + numeric x[]; + numeric y[]; + z1=(lx,uy); + z2=(lx,1/3[uy,ly]); + z3=(rx,y1); + z4=(rx,y2); + z5=(1/2[lx,rx],2/3[uy,ly]); + z6=(x5,ly); + getpen; + draw z1--z2; + draw z3--z4; + draw z5--z6; + numeric x[]; + numeric y[]; +enddef; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%% The Yi Syllable Font, Common Definitions, ends here. %%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |