Initial commit

29 files changed, 3254 insertions, 0 deletions

diff --git a/fonts/gothic/yinit/README b/fonts/gothic/yinit/README
new file mode 100644
index 0000000000..1ff6c90dcf
--- /dev/null
+++ b/fonts/gothic/yinit/README
@@ -0,0 +1,43 @@
+yinit font
+==========
+
+Old German decorative capital letters (only)
+
+Version: 2019-01-24
+Public Domain
+
+Created by Yannis Haralambous ca. 1994 as Metafont font.
+
+The yinit.pdf font chart was created by running (more or less):
+  mf '\mode:=ljfour;input yinit' && gftopk yinit.600pk
+  echo '\table\end' | tex testfont
+  dvips testfont && ps2pdf testfont.ps yinit.pdf
+There is no other documentation (available or needed).
+
+Historical note 1: Andreas Schrell made a modified driver file,
+yinitas.mf, and a LaTeX file initials.sty.  These are now available on
+CTAN separate from this directory (they used to be merged together).
+
+Historical note 2: since inception, TeX Live contained a stub driver
+file, yinitdd.mf, which merely generated the letter D.  At Yannis'
+suggestion, it has now been removed.
+
+Historical note 3: yinit was re-uploaded to CTAN in January 2015 by
+Karl Berry, including this README, after discussions with Yannis about
+the license and other points above.  No changes to the actual font,
+either metrics or glyphs, but because of the license clarification,
+the release date/version is explicitly mentioned above.
+
+
+Changes after 2015
+==================
+
+20190124
+
+In agreement with Yannis Haralambous, the following changes were made
+to allow using yinit fonts with dropcaps package. The changes are
+- changing the font identifier to YINIT from CMR
+- changing the font size to the correct value instead of 10pt#
+
+Development has moved to Github: https://github.com/TeX-Live/yinit
+
diff --git a/fonts/gothic/yinit/yinit.mf b/fonts/gothic/yinit/yinit.mf
new file mode 100644
index 0000000000..62b17c5ea4
--- /dev/null
+++ b/fonts/gothic/yinit/yinit.mf
@@ -0,0 +1,112 @@
+% This is the yinit.mf driver file.
+% Whole font released to the public domain.
+if unknown cmbase: input cmbase fi
+input yintbase                % -sl   15-3-1991
+
+font_identifier:="YINIT";
+
+u#:=160/36pt#;
+v#:=160/36pt#;
+font_size 8.7u#;
+
+width_adj#:=0pt#;    % width adjustment for certain characters
+serif_fit#:=0pt#;    % extra sidebar near lowercase serifs
+cap_serif_fit#:=40/36pt#;  % extra sidebar near uppercase serifs
+letter_fit#:=0pt#;    % extra space added to all sidebars
+
+body_height#:=40pt#;  % height of tallest characters
+asc_height#:=40pt#;    % height of lowercase ascenders
+cap_height#:=40pt#;    % height of caps
+fig_height#:=40pt#;    % height of numerals
+x_height#:=800/36pt#;  % height of lowercase without ascenders
+math_axis#:=720/36pt#;  % axis of symmetry for math symbols
+bar_height#:=320/36pt#;   % height of crossbar in lowercase e
+comma_depth#:=560/36pt#;    % depth of comma below baseline
+desc_depth#:=560/36pt#;   % depth of lowercase descenders
+
+crisp#:=0pt#;    % diameter of serif corners
+tiny#:=32/36pt#;      % diameter of rounded corners
+fine#:=28/36pt#;      % diameter of sharply rounded corners
+thin_join#:=28/36pt#;    % width of extrafine details
+numeric m; m:=1;
+hair#:=2/36u#;
+stem#:=200/36pt#;    % lowercase stem breadth
+curve#:=240/36pt#;    % lowercase curve breadth
+ess#:=216/36pt#;      % breadth in middle of lowercase s
+flare#:=264/36pt#;    % diameter of bulbs or breadth of terminals
+dot_size#:=288/36pt#;    % diameter of dots
+cap_hair#:=88/36pt#;    % uppercase hairline breadth
+cap_stem#:=256/36pt#;    % uppercase stem breadth
+cap_curve#:=296/36pt#;  % uppercase curve breadth
+cap_ess#:=280/36pt#;    % breadth in middle of uppercase s
+rule_thickness#:=1.6pt#;    % thickness of lines in math symbols
+
+dish#:=8/36pt#;      % amount erased at top or bottom of serifs
+bracket#:=160/36pt#;    % vertical distance from serif base to tangent
+jut#:=224/36pt#;      % protrusion of lowercase serifs
+cap_jut#:=296/36pt#;    % protrusion of uppercase serifs
+beak_jut#:=80/36pt#;    % horizontal protrusion of beak serifs
+beak#:=560/36pt#;    % vertical protrusion of beak serifs
+vair#:=64/36pt#;      % vertical diameter of hairlines
+notch_cut#:=80pt#;    % maximum breadth above or below notches
+bar#:=88/36pt#;      % lowercase bar thickness
+slab#:=88/36pt#;    % serif and arm thickness
+cap_bar#:=88/36pt#;    % uppercase bar thickness
+cap_band#:=88/36pt#;    % uppercase thickness above/below lobes
+cap_notch_cut#:=80pt#;   % max breadth above/below uppercase notches
+serif_drop#:=32/36pt#;  % vertical drop of sloped serifs
+stem_corr#:=8/36pt#;    % for small refinements of stem breadth
+vair_corr#:=8/36pt#;    % for small refinements of hairline height
+apex_corr#:=0pt#;    % extra width at diagonal junctions
+
+o#:=64/36pt#;   % amount of overshoot for curves
+apex_o#:=64/36pt#;    % amount of overshoot for diagonal junctions
+
+slant:=0;      % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1;      % factor applied to weights of heavy characters
+math_spread:=0;      % extra openness of math symbols
+superness:=1/sqrt2;    % parameter for superellipses
+superpull:=1/6;      % extra openness inside bowls
+beak_darkness:=11/30;  % fraction of triangle inside beak serifs
+ligs:=2;      % level of ligatures to be included
+
+square_dots:=false;    % should dots be square?
+hefty:=false;    % should we try hard not to be overweight?
+serifs:=true;    % should serifs and bulbs be attached?
+monospace:=false;    % should all characters have the same width?
+variant_g:=false;    % should an italic-style g be used?
+low_asterisk:=false;    % should the asterisk be centered at the axis?
+math_fitting:=false;    % should math-mode spacing be used?
+mode_setup;
+font_setup;
+u:=160/36pt;
+v:=160/36pt; uv:=u;
+boolean zero_depth;
+zero_depth:=true;
+%readfrom("yinitbase");       % -sl   15-3-1991
+generate yinitA; 
+generate yinitB;
+generate yinitC;
+generate yinitD;
+generate yinitE;
+generate yinitF;
+generate yinitG;
+generate yinitH;
+generate yinitJ;
+generate yinitK;
+generate yinitL;
+generate yinitM;
+generate yinitN;
+generate yinitO;
+generate yinitP;
+generate yinitQ;
+generate yinitR;
+generate yinitS;
+generate yinitT;
+generate yinitU;
+generate yinitV;
+generate yinitW;
+generate yinitX;
+generate yinitY;
+generate yinitZ;
+end.
diff --git a/fonts/gothic/yinit/yinit.pdf b/fonts/gothic/yinit/yinit.pdf
new file mode 100644
index 0000000000..b6a3b938d3
--- /dev/null
+++ b/fonts/gothic/yinit/yinit.pdf
diff --git a/fonts/gothic/yinit/yinitA.mf b/fonts/gothic/yinit/yinitA.mf
new file mode 100644
index 0000000000..533331665c
--- /dev/null
+++ b/fonts/gothic/yinit/yinitA.mf
@@ -0,0 +1,139 @@
+.cmchar "The letter A";
+.beginchar("A",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0); 
+penpos1(hair,90); penpos1'(hair,-270); penpos2(hair,0); penpos3(hair,-40);
+penpos4(hair,-40); penpos7(1.5hair,180); penpos8(hair,-135); penpos13(hair,-62);
+z1=(.3u,-.2v); z2=(0,.2v); z3=(.5u,v); z4=(1.35u,1.75v); z5=(1.45u,2.4v);
+z6=(.9u,2.8v); z7=(0,2.1v); z8=z3; z9=(1.7u,.5v); z10=(3.3u,1.25v);
+z11=(4.1u,2.9v); z12=(4.1u,4.8v); z13=(4.9u,7.2v); z14=(3.4u,5v); z15=(3.5u,3v);
+z16=(3u,1.45v); z17=z9+(0,vround(1.5hair)); z32=(.1u,2v); z31=(1.3u,3.15v);
+z30=(2.2u,2.7v); z29=(2.6u,2.7v); z1'=(.5[x2,x1],-.2v); penstroke
+z1e{left}...z2e{up}...z3e...z4e; fill z4r{z4-z3}...{right}z29 &
+z29{left}...{z31-z29}z30...{left}z31.. {down}z7r & z7r--z7l &
+z7l{up}...z6{right}...z5{z4-z6}...{z3-z4}z4l &  z4l--z4r & cycle; penstroke
+z7e{down}..{(1.6u,0)-(0,1.5v)}z8e; fill
+z8r{(1.6u,0)-(0,1.5v)}...z9{right}...{(5u,2.9v)-(2.1u,0)}z10...
+z11{up}...z12{up}...z13r{(6.7u,8v)-(0,5v)} & z13r--z13l &
+z13l{(0,5.3v)-(7u,8v)}...z14{down}...z15{down}...z16{(2u,0)-(5u,4.1v)}
+...z17{left}...z8l{(0,1.5v)-(1.6u,0)} & z8l--z8r & cycle; z33=(6.45u,7.65v);
+z34=(8.55u,5.75v); z35=(6.6u,3.4v); z36=(4.9u,5v); z37=z33-(0,1.2v);
+z38=z34-(u,.35v); z39=z35+(0,.9v); z40=z36+(.8u,0); z41=z37-(0,.65v);
+z42=z38-(.6u,0); z43=(6.7u,5v); penpos33(hair,-90); penpos34(hair,-180);
+penpos35(hair,-270); penpos36(hair,0); penpos37(hair,-90); penpos38(hair,-180);
+penpos39(hair,-270); penpos40(hair,0); penpos41(hair,-90); penpos42(hair,-180);
+penpos43(hair,-270);  penstroke
+z13e...z33e...z34e...z35e...z36e...z37e...z38e...z39e...z40e...z41e...
+z42e...z43e; z44=(6.8u,7.8v); z45=(7.25u,7.8v); z46=(7.9u,8.05v); z47=(8u,7.6v);
+z48=(6.9u,6.75v); z49=(5.1u,7.6v); z50=(3.2u,8.25v); z51=(.95u,6.1v);
+z52=(2.7u,4.5v); z53=(4.45u,6v); z54=(4u,7v); z55=(3.25u,7.35v); z56=(2.6u,7v);
+z57=(2.7u,6.5v); z59=(2.2u,5.65v); z60=(1.9u,5.9v); penpos44(hair,-110);
+penpos45(.35u,-30); penpos46(hair,-110); penpos47(hair,-180);
+penpos48(.35u,-270); penpos49(.85u,45); penpos50(.5v,-270);
+penpos51(1.5hair,-180); penpos52(hair,-90); penpos53(hair,0); penpos54(hair,50);
+penpos55(hair,90);  penpos56(.45u,-195); penpos57(.65u,-120);
+penpos58(.65u,-180); z58r=z57r; penpos59(1.5hair,-270); penpos60(hair,0);
+penstroke z44e{(7.5u,6.4v)-(5.4u,9v)}...z45e{dir45}...
+z46e{(7.5u,6.4v)-(5.4u,9v)}...z47e{down}...z48e...z49e...z50e...z51e...z52e...
+z53e...z54e...z55e...z56e...z57e...z58e...z59e...z60e; z61=(6.8u,6.6v);
+z62=(6.5u,5.5v); z63=(6.5u,2.6v); z64=(8.4u,1.9v);  z64'=z64-(hair,0);
+z65=(7u,0.2v); z66=(6.7u,0.7v); z67=(5.8u,2v); z68=(5.8u,5v); z69=(7.6u,1.25v);
+unfill z61{(0,0.7v)-(5u,5v)}...z62{down}---z63{down}...z69{right}...
+z64'{up}--z64 & z64{down}... z65{down} &
+z65{up}...z66{(0,3.3v)-(8.5u,0)}...z67{up}...z68{(6.5u,10v)-
+(5.1u,0)}...z61{(5u,5v)-(0,0.7v)} & cycle; z70=(4.5u,2.65v); z71=(4.1u,3.25v);
+z72=(4.6u,3.7v); z73=(5.1u,3.6v); z74=(5.7u,4.1v); z75=(5.3u,4.5v);
+penpos70(hair,90); penpos71(hair,0); penpos72(.45v,-105); penpos73(.45v,-105);
+penpos74(hair,0); penpos75(hair,90); penstroke
+z70e{left}...z71e{up}...z72e...z73e...z74e{up}...{left}z75e; z76=(7.65u,3.7v);
+z76'=(6.2u,2.75v); z77=(4.1u,0.8v); z78=(4.9u,0); z138=(5.4u,1.1v);
+z79=(5.6u,0.7v); z80=(5.05u,1.3v); z81=(4.65u,.7v); z82=(4.95u,.45v);
+z83=(5.3u,.7v); z84=(5.05u,.9v); penpos76(hair,-233); penpos76'(hair,-244);
+penpos77(hair,-180); penpos138(hair,45); penpos78(hair,-90); penpos79(hair,0);
+penpos80(hair,90); penpos81(hair,180); penpos82(hair,-90); penpos83(hair,0);
+penpos84(hair,90);  penstroke
+z76e...z76'e...z77e...z78e...z79e...z138e...z80e...z81e...z82e...z83e...z84e;
+z85=(-.1u,1.1v); z86=(1.7u,0.2v); z87=(3.8u,1.4v); z88=(4.5u,3.9v);
+z89=(4.65u,6v); z90=(6.4u,7.15v); z90'=(7.5u,6.7v); z89'=(7.9u,6.1v);
+penpos85(hair,-135); penpos86(hair,-90); penpos87(hair,-35); penpos88(hair,0);
+penpos89(hair,-35); penpos90(hair,-90); penpos90'(hair,-135);
+penpos89'(hair,-180); penstroke
+z85e...z86e...z87e...z88e...z89e...z90e...z90'e...z89'e; z91=(1u,2.2v);
+z92=(.75u,2.4v); z93=(0.35u,1.7v); z94=(1.5u,0.9v); z95=(2.9u,2.75v);
+z95'=(2.6u,4.2v); z96=(2.5u,4.6v); penpos91(hair,0); penpos92(hair,90);
+penpos93(hair,180); penpos94(1.5hair,-90); penpos95(.5u,0); penpos95'(u,33);
+penpos96(1.7u,34);  penpos95.3(hair,90); penpos95.4(hair,-90); z95.3r=z96l;
+z95.4l=z96r; penstroke z91e...z92e...z93e...z94e{right}; filldraw
+z94r{right}..z95r..z95'r ..z95.4r{z96r-z96l}--z95.4l--
+z95.3r--z95.3l{z96r-z96l}..z95'l ..z95l..z94l{left}--z94r & cycle;
+z97=(1.2u,1.2v); z97'=(2.3u,2.4v); z98=(1.1u,4.3v); z98'=(-.1u,3.6v);
+z99=(.3u,3.1v); z99'=(.3u,3.6v); penpos97(hair,-90); penpos97'(hair,0);
+penpos98(hair,90); penpos98'(hair,180); penpos99(hair,-90); penpos99'(hair,90); 
+penstroke z97e{right}...z97'e...z98e...z98'e...z99e...z99'e; z100=(7.25u,0);
+z101=(7.4u,0.4v); z101'=(8.3u,0.3v); z102'=(8.1u,0); z102=(8.65u,1.9v);
+z103=(7.9u,2.7v); z103'=(7.1u,2.1v); z104=(7.7u,1.45v); z104'=(7.8u,2.45v);
+z105=(7.45u,2.2v); z105'=(7.8u,1.9v); z106=(8u,2.05v); z107=(8.15u,2.1v);
+z108=(6.9u,2.1v); z109=(6.9u,4.1v); z110=(8u,5.4v); z111=(8.8u,4.6v);
+z112=(8.6u,4v); z113=(8.1u,3.3v); z114=(8.3u,3v); z115=(8.1u,3.8v);
+z116=(7.5u,4.3v); z117=(8u,4.8v); z118=(8.4u,4.4v); z119=(8u,4.1v);
+z120=(7.6u,3.2v); z121=(7.9u,2.9v); z100'=(8.3u,1.1v); penpos100(hair,-20);
+penpos101(hair,-53); penpos101'(hair,-180); penpos102'(hair,-270);
+penpos102(hair,0); penpos103(hair,90); penpos103'(hair,-180);
+penpos104(hair,-90); penpos104'(hair,90); penpos105(3hair,-180);
+penpos105'(0.2v,-90);  penpos106(hair,-44); penpos107(hair,-116);
+penpos108(hair,0); penpos109(hair,0); penpos110(hair,-90); penpos111(hair,-180);
+penpos112(hair,-225); penpos113(hair,-180); penpos114(hair,-90);
+penpos115(hair,90); penpos116(hair,0); penpos117(hair,-90);
+penpos118(hair,-180); penpos119(hair,90); penpos120(hair,-90);
+penpos121(hair,-180); penpos100'(hair,-45); penstroke
+z100e...z101e{(1,1)-(0,0)}...z101'e...{left}z102'e;  z640=z64; penpos640(hair,0);
+penstroke z101e{(1,1)-(0,0)}...z100'e...z102e...z103e...z103'e...
+z104e...z640e...z104'e...z105e...z105'e...z106e...z107e; z108'=z104;
+penpos108'(hair,90); penstroke
+z108'e{left}...z108e{up}...z109e{up}...z110e...z111e...z112e
+...z113e...{right}z114e; penstroke z112e...z115e...z116e...z117e...z118e...z119e;
+penstroke z108e{up}...z120e{right}...{down}z121e; z122=(2.2u,4.2v);
+z123=(0.6u,5.4v); z124=(0.4u,6.4v); z125=(0.7u,7.5v); z126=(1.65u,8.5v);
+z127=(0.9u,8.3v); z128=(0.6u,8.5v); z129=(0.4u,8.4v); z130=(0.1u,8.2v);
+z131=(-0.1u,8.5v); z132=(5u,8.35v); z133=(5.4u,8.6v); z134=(5.9u,7.9v);
+z135=(6.4u,8.55v); z136=(6.75u,8.3v); z137=(6.5u,8v); z139=(5.1u,1.7v);
+z140=(5.4u,1.95v); z135'=(7.7u,7.9v); z136'=(6.9u,7.25v); penpos122(hair,71);
+penpos123(hair,25); penpos124(hair,0); penpos125(hair,-26); penpos126(hair,0);
+penpos127(hair,0); penpos128(2.5hair,90);  penpos129(0.3u,150);
+penpos130(2hair,90); penpos131(hair,0); penpos132(hair,180); penpos133(hair,90);
+penpos134(hair,20);penpos135(hair,-90); penpos136(hair,-180);
+penpos137(hair,90); penpos139(hair,0); penpos140(hair,-90);
+penpos135'(hair,-180); penpos136'(hair,90); penstroke z122e...z123e...z124e{up};
+penstroke z125e{dir70}...{up}z126e; penstroke
+z124e{up}...z125e...z127e...z128e...z129e...z130e...{up}z131e; penstroke
+z134e{(4u,10v)-(10u,3.8v)}...z133e...{down}z132e; penstroke
+z135'e{down}...z136'e...z134e{(4u,10v)-(10u,3.8v)}
+...z135e...z136e...{left}z137e; penstroke
+z79e{up}...z138e...z139e...{right}z140e; z141=(3.2u,7v); z142=(3.7u,6.1v);
+z143=(3.2u,5.4v); z144=(2.3u,5.2v); z145=(1.35u,6.3v); z146=(3u,7.7v);
+z147=(4.5u,7.1v); penpos141(hair,-90); penpos142(hair,-180);
+penpos143(hair,-240); penpos144(hair,90); penpos145(hair,0);
+penpos146(hair,-90); penpos147(hair,-131); penstroke
+z141e{right}...z142e...z143e...z144e...z145e...z146e...
+{(6.7u,5v)-(1.2u,10v)}z147e; kouki(126,1,1); kouki(132,6,1); kouki(137,5,1);
+kouki(141,7,1); kouki(60,2,1.5); kouki(99',7,1); kouki(75,7,2); 
+kouki(70,6,2.25);  kouki(140,8,1); kouki(84,7,1); kouki(102',5,1.5);
+kouki(121,3,1.5); kouki(114,6,1); kouki(119,5,1.5); kouki(89',3,1);
+kouki(1,6,1.5);  z148=(5.8u,8.7v); z149=(4.7u,1.6v); mpalla(148,1);
+mpalla(149,1.5); mpalla(123,2); z150.1=(4.3u,4.95v); z150.2=(5.1u.,4.95v);
+z150.3=(5.1u,4.7v); z150.4=(4.3u,4.7v); filldraw
+z150.1--z150.2--z150.3--z150.4--cycle; z34.1=z34+(-.15u,.1v);
+z34.2=z34+(.15u,.1v); z34.3=z34+(.15u,-.1v); z34.4=z34+(-.15u,-.1v); filldraw
+z34.1--z34.2--z34.3--z34.4--cycle; z200=z79; ka(200,180);  z201=(6.2u,0);
+ka(201,-90);  z202=(x201,0.8v); ka(202,90); z203=(x79+0.4u,0.65[y201,y202]);
+ka(203,180); kouki(203,4,1); z201'=(x201+0.3u,y203); ka(201',0); penstroke
+z200e{down}..z201e{right}.. z202e{left}..z203e{down}; z204=z77; ka(204,180);
+z205=(3.6u,0); ka(205,90); z206=(x205-0.05v,y83+0.05v);
+z207=(x205+0.05u,0.35[y205,y206]); ka(206,-90); ka(207,90); kouki(207,5,1);
+penstroke z204e{down}..z205e{left}.. z206e{right}..z207e{left}; z220=(5.45u,3v); 
+z221=(u,3.7v);  z225=(x34,y135); z226=(x34+0.1u,y135-0.6v);
+z227=(x34,y125-0.5v); z228=(x34+0.1u,y227+0.5v); ka(225,-90); ka(226,90);
+ka(227,90); ka(228,-90); kouki(226,5,1); kouki(228,7,1); z47''=z47; ka(47'',0);
+penstroke z228e{right}..z227e{left} ..z47''e{up}..z225e{right}..z226e{left};
+z230=(x112,0.5[y101',y100']); mpalla(230,1.5); penlabels(range 1 thru 230); 
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitB.mf b/fonts/gothic/yinit/yinitB.mf
new file mode 100644
index 0000000000..388ed97484
--- /dev/null
+++ b/fonts/gothic/yinit/yinitB.mf
@@ -0,0 +1,135 @@
+.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;
+
diff --git a/fonts/gothic/yinit/yinitC.mf b/fonts/gothic/yinit/yinitC.mf
new file mode 100644
index 0000000000..8f5ecd77ea
--- /dev/null
+++ b/fonts/gothic/yinit/yinitC.mf
@@ -0,0 +1,122 @@
+.cmchar "The letter C";
+.beginchar("C",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(3.4u,6.6v); z2=(1.75u,3.85v); z3=(2.7u,1.7v); z4=(4.7u,.85v); z5=(6.6u,1.5v);
+z6=(7.55u,3.4v); z7=(6.65u,4.3v); z8=(6.2u,4v);  penpos1(hair,116);
+penpos2(.65u,-180); penpos3(.9*.5[u,v],-135); penpos4(.9v,-90);
+penpos5(.6*.5[u,v],-55); penpos6(1.5hair,0); penpos7(hair,90);
+penpos8(hair,180); kouki(7,7,3); penstroke
+z1e{(0,4.9v)-(5u,7.4v)}...z2e...z3e...z4e...z5e...z6e...{left}z7e; z9=(4u,7.2v);
+z10=(1.05u,3.5v); z11=(4.65u,0); z12=(7.9u,2.9v); z13=(7.9u,3.55v);
+z14=(2.7u,7.2v); z15=(2.4u,7.1v); z16=(2.7u,6.8v); z17=(3.15u,6.55v);
+z18=(2.6u,5.95v); z19=(1.8u,6.75v); z20=(2.65u,7.7v); z21=(4u,6.5v);
+z22=(2.5u,5.05v); z23=(0.85u,6.55v); z24=(2.9u,8.55v); z25=(5.3u,7.4v);
+z26=(6.1u,4.7v); z27=(4.25u,2.5v); z28=(3.1u,3.3v); z29=(3.5u,3.8v);
+z30=(3.95u,3.6v);  penpos9(hair,95); penpos10(hair,180); penpos11(hair,-90);
+penpos12(hair,0); penpos13(hair,4); penstroke
+z9e{(0,6.15v)-(10u,8.1v)}...z10e...z11e...z12e... {(7.2u,9v)-(8.1u,0)}z13e;
+penpos14(hair,90); penpos15(1.5hair,180); penpos16(.3u,-90);
+penpos17(1.5hair,180); penpos18(hair,90); penpos19(hair,0); penpos20(hair,-90);
+penpos21(hair,-90); penpos22(hair,90); penpos23(hair,0); penpos24(hair,-90);
+penpos25(hair,-146); penpos26(hair,-180); mpalla(20,2); mpalla(26,1.5);
+penpos27(hair,90); penpos28(1.2hair,0); penpos29(0.35v,-90); penpos30(0.5u,-180);
+penpos29'(0.5u,-135); z29'r=z29r; penstroke
+z14e{left}...z15e{down}...z16e{right}...z17e{down}...z18e...z19e...
+z20e...z21e...z22e...z23e...z24e...z25e...z26e{down}...z27e...{up}z28e; filldraw
+z28r{up}...{down}z30r...{up}z30l...{down}z28l & z28l--z28r & cycle;
+z31=(4.3u,7.7v); z32=(6u,8.5v); z33=(7.4u,7.4v); z34=(5.8u,6.55v);
+penpos31(hair,-58); penpos33(.15v,-63); penpos34(hair,-243); filldraw
+flex(z31l,(5.6u,8.1v),z32) & flex(z32,(6.45u,7.75v),z33l) & z33l--z33r &
+z33r--z34l & z34l--z34r & flex(z34r,(5.9u,7.4v),z31r) & z31r--z31l & cycle;
+z38=(3.9u,7.2v); z39=(4.1u,6v); z40=(5.1u,5.25v); z41=(5.5u,4.4v);
+penpos38(0.45u,180); penpos39(0.95u,-132); penpos40(0.95u,-132);
+penpos41(0.7u,-173); z31'=z31; penpos31'(hair,122); penstroke
+z31'e{z31-z32}...z38e...z39e...z40e...z41e...{left}z27e; z42=(3.3u,4.9v);
+z43=(3.8u,4.8v); z44=(4.75u,3.6v); penpos42(1.4*.5[u,v],45); penpos43(0.7v,65);
+penpos44(0.3u,0); filldraw flex(z42l,z42+(0.05u,-0.05v),z42r) & z42r{down}...
+{(7.8u,3v)-(0,7.4v)}z43r...{down}z44r & z44r--z44l & z44l{up}...z43l...
+{(0,3.3v)-(10u,7.2v)}z42l & cycle; z45=(4u,2.7v); z46=(3.3u,3.3v);
+penpos45(hair,-90); penpos46(hair,180); penstroke z46e{down}...z45e...{up}z44e;
+z47=(3.9u,3.7v); z48=(5.3u,2v); z48'=(7.4u,2.5v); z49=(8.8u,1.35v);
+z50=(7.85u,0.3v); z51=(7u,1.2v); z52=(7.7u,1.85v); z53=(8.35u,1.25v);
+z54=(7.85u,0.7v); z55=(7.45u,1.1v); z56=(7.6u,1.2v); z57=(7.8u,1.15v);
+z58=(7.95u,1.15v); z59=(8.05u,1.4v); penpos47(hair,180); penpos48(hair,-90);
+penpos48'(hair,-90); penpos49(hair,-180); penpos50(hair,90); penpos51(hair,0);
+penpos52(hair,-90); penpos53(hair,-180); penpos54(hair,90); penpos55(hair,0);
+penpos56(0.3v,-90); penpos57(0.25v,-135); penpos58(0.2v,-90); penpos59(hair,0);
+penstroke z34e{z34-z33}...z47e...z48e{right}...{right}z48'e...z49e...z50e...
+z51e...z52e...z53e...z54e...{up}z55e; kordella(55,59); z60.1=(0,0.5v);
+z61=(0.55u,0); z62=(1.25u,0.75v); z63=(u,2.15v); z64=(2u,3.3v); z65=(3.5u,2v);
+z66=(1.9u,0.55v); z67=(0.55u,2.2v); z68=(3.4u,4.25v); z69=(4.8u,3.4v); z68'=z68;
+z70=(1.8u,4.1v); z71=(0.25u,5.2v); z72=(0.8u,5.7v); z73=(1.2u,5.3v);
+z74=(0.85u,4.95v); z75=(0.55u,5.25v); z60=(0.5u,0.95v); z60'=z60;
+z76=(0.8u,5.45v); penpos60(hair,90); penpos60'(hair,-90); kouki(60',8,2);
+penpos60.1(hair,-180); penpos61(hair,-90); penpos62(hair,0); penpos63(hair,0);
+penpos64(hair,-90); penpos65(hair,-180); penpos66(hair,90); penpos67(hair,0);
+penpos68(hair,-90); penpos69(hair,-148); penpos68'(hair,90); penpos70(hair,90);
+penpos71(hair,0); penpos72(hair,-90); penpos73(hair,180); penpos74(hair,90);
+penpos75(hair,0); penpos76(hair,-90); kouki(76,8,1); penstroke
+z60e{left}...z60.1e...z61e...z62e{up}...{up}z63e...z64e...z65e...z66e...
+z67e{up}...{right}z68e...{(7.7u,0)-(3.9u,5v)}z69e; penstroke
+z68'e{left}...z70e{left}...z71e...z72e...z73e...z74e...z75e... {right}z76e;
+z77=(6.3u,3v); z78=(5.9u,3.3v); z79=(5.6u,3v); z80=(5.85u,2.75v);
+z81=(4.9u,5.4v); z82=(6.75u,6.15v); z83=(8.55u,6.7v); z84=(8.2u,7.2v);
+z85=(7.75u,6.75v); z86=(8u,6.5v); z87=(7.85u,5.1v); z88=(7.15u,4.45v);
+z89=(6.6u,5v); z90=(7.1u,5.5v); z91=(7.45u,5.1v); z92=(7.1u,4.8v);
+z93=(6.85u,6.65v); z94=(7.55u,7v); z95=(8.25u,8.1v); z96=(7.3u,9v);
+z97=(6.65u,8.5v); z98=(7.25u,7.8v); z99=(8.7u,8.65v); z100=(9u,8.3v);
+penpos77(hair,0); penpos78(hair,90); penpos79(hair,180); penpos80(hair,-90);
+kouki(80,6,1.2); penstroke z48e{right}...{up}z77e...z78e...z79e...{right}z80e;
+penpos81(hair,-45); penpos82(hair,-90); penpos83(hair,0); penpos84(hair,90);
+penpos85(hair,180); penpos86(hair,-90); kouki(86,6,1.2); penstroke
+z81e{(1,1)-(0,0)}...{right}z82e...z83e{up}...z84e...z85e...{right}z86e;
+penpos87(hair,-180); penpos88(hair,90); penpos89(hair,0); penpos90(hair,-90);
+penpos91(hair,180); penpos92(hair,90); kouki(92,5,1.3); penstroke
+z82e{right}...z87e{down}...z88e...z89e... z90e...z91e...{left}z92e;
+penpos93(hair,-69); penpos94(hair,-60); penpos95(hair,0); penpos96(hair,90);
+penpos97(hair,180); penpos98(hair,-90); penpos99(hair,-90); penpos100(hair,180);
+kouki(100,3,1.4); z93'=0.5[z93,z94]; penpos93'(hair,-65); mpalla(93',1.8);
+penstroke z81e{(1,1)-(0,0)}...z93e...z94e...{up}z95e...z96e...z97e...z98e{right}
+...{right}z99e...{down}z100e; z101=(5.3u,6.15v); z102=(5.2u,8.8v); z101'=z31;
+z103=(5.5u,8.55v); z104=(5.3u,8.3v); z26'=z26; penpos26'(hair,0);
+penpos101(hair,45); penpos101'(hair,0); penpos102(hair,-90);
+penpos103(hair,180); penpos104(hair,90); kouki(104,5,1); penstroke
+z26'e{up}...z101e...{up}z101'e...z102e{right}...z103e...{left}z104e;
+mpalla(93,1.2); mpalla(94,1.2);  z105=(7.85u,8.1v); z106=(7.4u,8.5v);
+z107=(7.15u,8.2v); penpos105(1.1hair,0); penpos106(hair,90);
+penpos107(hair,180);kouki(107,4,1.5); penstroke
+z33e{z33-z34}...z105e...z106e...{down}z107e; z108=(8.5u,3.45v);
+z109=(8.8u,3.9v); z110=(8.5u,4.15v); z111=(8.3u,3.95v); z112=(8.25u,3.1v);
+z113=(8.6u,2.75v); penpos108(hair,-90); penpos109(hair,0); penpos110(hair,90);
+penpos111(hair,-180); kouki(111,4,1); z108'=z7; penpos108'(hair,-90);
+penpos112(hair,-141); penpos113(hair,-90); penstroke
+z108'e{right}...z108e{right}...z109e...z110e...{down}z111e; penstroke
+z108'e{right}...z112e...{right}z113e; kouki(113,6,1); mpalla(112,1);
+z114=(4.1u,8.3v); z115=(3.4u,8.55v); z116=(0.7u,8.2v); z117=(0.1u,8.8v);
+z118=(0.2u,7.15v); z119=(0.6u,6.15v); z120=(0.15u,6.6v); z116'=(1.2u,8.3v);
+z117'=(1.2u,8.05v);penpos116'(hair,90); penpos117'(hair,90); penpos114(hair,64);
+penpos115(hair,76.5); penpos116(hair,90); penpos117(hair,0);
+penpos118(hair,180); penpos119(hair,90); penpos120(hair,0); z114'=.5[z114,z115];
+mpalla(114',1.5); mpalla(114,1.2); mpalla(115,1.2); penstroke
+z114e{(0,9.9v)-(10u,6v)}...{(0,9.05v)-(10u,7.5v)}z115e...z116'e...{left}z116e
+...{up}z117e; z118'=z117+(0.8u,0.4v); penpos118'(hair,0); kordella(117,118');
+penstroke
+z114e{(0,9.9v)-(10u,6v)}...{(0,9.05v)-(10u,7.5v)}z115e...z117'e...{down}z118e;
+kouki(118,4,1); z20'=z20; penpos20'(hair,90); penstroke
+z20'e{left}...z119e{left}...z120e{up}; kouki(120,2,1.3); z200=(1.45u,3.1v);
+z201=(0.85u,2.4v); z202=(0.6u,3.9v); triaina(200,201,202,0.8); z210=(1.3u,7.5v);
+z211=(0.6u,7.05v); z212=(0.6u,8.55v); triaina(210,211,212,0.5); z220=(8.2u,6v);
+z221=(8.75u,5.7v); z222=(7.75u,5.2v); triaina(220,221,222,0.7);
+z230=(8.8u,5.2v); ka(230,-90); penstroke z82e{right}..z230e{right};
+kouki(230,6,1); z231=(8.7u,0.2v); ka(231,-90); penstroke
+z53e{down}..z231e{right}; kouki(231,6,1); z232=((3.1u,0)--(3.1u,8v))
+intersectionpoint  (z10{down}..z11{right}); ka(232,90); z233=(2.4u,0.15v);
+ka(233,180); penstroke z232e{left}..z233e{down}; kouki(233,4,1); z240=z27;
+ka(240,-90); z241=(4.1u,1.6v); ka(241,90); penstroke z240e{right}.. z241e{left};
+kouki(241,5,1); z242=z22; ka(242,-90); z243=(3u,5.6v); ka(243,0); kouki(243,1,1);
+mpalla(25,1.2); z244=(2.3u,4.7v); ka(244,0); kouki(244,2,1); penstroke
+z68'e{left}..z244e{up}; penstroke z242e{right}..z243e{up}; z245=(7.05u,3.5v);
+z246=(6.6u,4v); ka(245,0); ka(246,90);  penstroke z48e{right}..z245e{up}..
+z246e{left}; penlabels(range 1 thru 230);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitD.mf b/fonts/gothic/yinit/yinitD.mf
new file mode 100644
index 0000000000..83ecb2b11e
--- /dev/null
+++ b/fonts/gothic/yinit/yinitD.mf
@@ -0,0 +1,121 @@
+.cmchar "The letter D";
+.beginchar("D",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0); % 9911558 ajhna
+z1=(2.5u,8.1v); mpalla(1,1.5); z2=(2.5u,8v); z3=(2.1u,7.8v); z4=(1.75u,8.25v);
+z5=(0.75u,7.8v); z6=(2.1u,6.65v); z7=(2.7u,6.8v);  z8=(4.4u,7.5v);
+z8'=(6.85u,6.7v); z9=(7.65u,5v); z10=(6.5u,1.4v); z11=(4.8u,0.7v);
+z12=(3.3u,1.55v); z13=(1.8u,2.25v); z14=(0.65u,1.2v); z15=(1.35u,0.4v);
+z16=(1.85u,0.8v); z17=(1.75u,1.05v); z18=(1.5u,1.1v); z19=(1.35u,1.3v);
+z20=(1.5u,1.45v); ka(2,-180); penpos3(0.35v,43); penpos4(0.4v,41);
+penpos5(0.1u,180); penpos6(0.75v,-90); penpos7(0.9v,-65); penpos8(0.95v,-73);
+penpos8'(0.9uv,-134); penpos9(0.75u,-180); ka(10,133); penpos11(0.5v,90);
+penpos12(0.9uv,45); penpos13(0.4v,90); ka(14,180); ka(15,-90);
+penpos16(0.25u,0); penpos17(0.35uv,45); penpos18(0.25v,90); penpos19(0.15u,0);
+ka(20,-90); penstroke
+z2e{down}...z3e...z4e...z5e...z6e...z7e...z8e...z9e...z10e...z11e...
+z12e...z13e...z14e...z15e...z16e...z17e...z18e...z19e...{right}z20e;
+z21=(4.85u,5.9v); z22=(5u,5.8v); z23=(5.35u,6.2v); z24=(4.3u,6.3v);
+z25=(3.8u,5.55v); z26=(4.1u,4.95v); z27=(4.75u,4.15v); z28=(5u,3.3v);
+z29=(3.5u,1.4v); penpos21(hair,180); penpos22(0.25v,-90); penpos23(0.35u,0);
+penpos24(2hair,117); penpos25(0.55u,180); penpos26(0.8uv,-144);
+penpos27(0.8uv,-144); penpos28(0.55u,180); penpos29(hair,121); penstroke
+z21e{down}...z22e...z23e...z24e...z25e...z26e...z27e...z28e...
+{(1.2u,0)-(9u,4.8v)}z29e; z30=(2.95u,4.15v); z30.2=(3.5u,3.85v);
+z31=(3.3u,1.55v); penpos30(1.35uv,36.5); penpos30.2(0.7uv,45.5);
+penpos31(hair,133); z30'=z30+(0.1u,0); filldraw flex(z30l,z30',z30r) &
+z30r{down}...z30.2r...{(1.8u,0)-(9u,7v)}z31l & z31l--z31r &
+z31r{(9u,7v)-(1.8u,0)}...z30.2l...z30l & cycle; z32=(2.7u,1.3v);
+z33=(1.6u,2.5v); z34=(2.5u,3.35v); z35=(3.1u,3.05v); z36=(2.8u,2.7v); ka(32,90);
+ka(33,0); penpos34(0.12v,-90); penpos35(0.3u,180); penpos36(0.5v,90);
+mpalla(36,2.5); penstroke
+z31e{(0.7u,0)-(9u,4.8v)}...z32e...z33e...z34e...{down}z35e...{left}z36e;
+z37=(5.8u,8.5v); z38=(5.4u,8.1v); z39=(4.7u,8.5v); z40=(3.9u,8.2v);
+z41=(3.35u,8v); z42=(2.3u,8.5v); z43=(1.45u,8.8v); z44=(0.05u,7.65v);
+z45=(0,7.2v); z46=(1.9u,5.5v); z66'=(4.25u,6.6v); z47=(5u,6.7v); z48=(7.05u,4v);
+z49=(5.5u,1.2v); ka(37,180); z37'=z37; ka(37',0); kouki(37',1,1.2); ka(38,90);
+ka(39,90); ka(40,126); ka(41,90); ka(42,60); mpalla(42,1.1); ka(43,90);
+ka(44,170); ka(45,180); ka(46,-90); ka(66',-75); ka(47,-90); ka(48,180);
+ka(49,108); penstroke
+z37e{down}...z38e{left}...z39e{left}...z40e...z41e{left}...z42e...
+z43e...z44e...z45e...z46e...{(9u,8v)-(0,5.3v)}z66'e...z47e...z48e...
+{(2u,0)-(9u,2.4v)}z49e; mpalla(44,1.2); mpalla(45,1); mpalla(66',1);
+z50=(1.35u,7.3v); z51=(1.5u,7.1v); z52=(1.7u,7.5v); z53=(1.35u,7.7v);
+z54=(0.7u,6.9v); z55=(1.4u,6.05v); z55.2=(0.2u,5.5v); z55.3=(0.5u,5.1v);
+z55.4=(0.8u,5.4v); z55.5=(0.6u,5.55v); z55'=z55; ka(55,-112); ka(55',68);
+ka(55.2,180); ka(55.3,-90); ka(55.4,0); ka(55.5,90); kouki(55.5,7,1); penstroke
+z55'e{(0,6.6v)-(9u,3.2v)}...z55.2e{down}...z55.3e{right}...z55.4e{up}
+...{left}z55.5e; z56=(2.15u,5.9v); mpalla(56,1); z57=(0.6u,4.3v);
+z58=(0.7u,4.2v); z59=(u,4.5v); z60=(0.6u,4.8v); z61=(0.25u,4.4v);
+z62=(0.95u,3.7v); z63=(1.8u,4.3v); mpalla(63,1.2); z64=(2.25u,4.8v);
+z65=(3.2u,5v); z67=(3.4u,4.2v);  ka(50,180); z50'=z50; ka(50',0);
+kouki(50',2,1); ka(51,-90); ka(52,0); ka(53,90); ka(54,180);  ka(56,-90);
+z66=z66'; ka(66,-71); penstroke
+z50e{down}...z51e...z52e...z53e...z54e...z55e...z56e... {(9u,8v)-(0,5.3v)}z66'e;
+ka(57,180); ka(58,-90); ka(59,0); ka(60,90); ka(61,180); ka(62,-90); ka(63,-40);
+ka(64,-40); ka(67,32); ka(65,0); z57'=z57; ka(57',0); kouki(57',2,1); penstroke
+z57e{down}...z58e...z59e...z60e...z61e...z62e...z63e---z64e...
+{(9u,8v)-(0,5.3v)}z66'e; penstroke
+z67e{(0,8.2v)-(7u,0)}...z65e...{(9u,8v)-(0,5.3v)}z66'e; z68=(1.35u,0.75v);
+z69=(0.9u,1.2v); z70=(1.5u,1.7v); z71=(2.3u,0.9v); z72=(1.3u,0);
+z73=(0.15u,1.4v); mpalla(73,1.2); z74=(2.1u,3v); z75=(4.5u,1.3v); z76=(3.5u,0);
+z77=(2.8u,0.65v); ka(68,90); ka(69,0); ka(70,-90); ka(71,180); ka(72,90);
+ka(73,0); ka(74,-90); ka(75,180); ka(76,90); ka(77,0); kouki(77,2,1);
+z76'=z76+(0,0.2v); mpalla(76',2); penstroke
+z68e{left}...z69e...z70e...z71e...z72e...z73e...z74e...z75e...
+{left}z76e...{up}z77e; z78=(3.7u,1.2v); z78'=(5u,2.25v); z79=(6.6u,2.9v);
+z80=(8.35u,1.2v); mpalla(80,1.2); z81=(7.15u,0); z82=(5.95u,v); z83=(6.8u,2.1v);
+z84=(7.6u,1.5v); z85=(7.2u,v); z86=(6.7u,1.3v); z87=(5.95u,4.1v);
+z88=(7.2u,6.3v); z89=(7.8u,7.8v); z90=(7.2u,8.5v); z91=(6.7u,8.3v);
+z92=(6.2u,8.1v); z93=(6.9u,7.9v); z94=(5.6u,4v); z95=z89; z96=(8.8u,7v);
+z97=(8.3u,6.2v); z98=(7.7u,6.7v); z98'=z98+(0.15u,0); mpalla(98',1.5);
+z99=(8.1u,7.2v); z100=(8.35u,6.9v); ka(78,-54); ka(78',-54); ka(79,-90);
+ka(80,180); ka(81,90); ka(82,0); ka(83,-90); ka(84,180); ka(85,90); ka(86,0);
+penstroke
+z78e{(9u,5v)-(2u,0)}...z78'e{(9u,5v)-(2u,0)}...z79e...z80e...z81e{left}...
+z82e...z83e...z84e...z85e...{up}z86e; ka(87,-11); ka(88,-35); ka(89,0);
+ka(90,90); ka(91,135); ka(92,90); ka(93,-90); ka(94,0); ka(95,-90); ka(96,180);
+ka(97,90); ka(98,0); ka(99,-90); ka(100,180); penstroke
+z78'e{(9u,5v)-(2u,0)}...z87e...z88e...z89e...z90e...
+{(0,2v)-(7.5u,9v)}z91e...{left}z92e; kouki(92,5,1); penstroke
+z91e{(0,2v)-(7.5u,9v)}...{right}z93e; kouki(93,6,1.2); penstroke
+z78'e{(9u,5v)-(2u,0)}...{up}z94e...z95e{right}...z96e...z97e...z98e
+...z99e...{down}z100e; z101=(5.3u,3v); z102=(6.35u,4.1v); z103=(5.25u,5.5v);
+z104=(4.25u,5.8v); z105=(4.5u,6.15v); z106=(4.5u,4.8v); z107=(5.4u,4.05v);
+z108=(6.3u,3.9v); z109=(6.5u,3.6v); z110=(6.75u,3.4v); z111=(6.6u,3.2v);
+ka(101,-90); ka(102,0); ka(103,90); ka(104,0); ka(105,-90); ka(106,180);
+ka(107,-90); ka(108,-126); ka(109,-90); ka(110,180); ka(111,90); z101'=z101;
+ka(101',90); penstroke z101'e{left}...{(0,8v)-(7.3u,0)}z67e; penstroke
+z101e{right}...z102e{up}...z103e{left}...z104e...{right}z105e; kouki(105,8,1);
+penstroke z103e{left}...z106e...z107e{right}...{(9u,1.2v)-(u,9v)}z108e;
+penstroke z101e{right}...z109e...z110e...{left}z111e; kouki(111,5,1);
+z112=(7.6u,2.6v); z113=(8.3u,2.4v); z114=(8.6u,2.8v); z115=(8.25u,3.15v);
+z116=(7.95u,2.85v); z117=(8.2u,2.6v); ka(112,-122); ka(113,-90); ka(114,0);
+ka(115,90); ka(116,180); ka(117,-90); kouki(117,6,1.1); penstroke
+z112e...z113e...z114e...z115e...z116e...{right}z117e; z118=(8.05u,1.6v);
+z119=(7.85u,0.5v); z120=(8.5u,0); z121=(8.8u,0.3v); z122=(8.65u,0.45v);
+ka(118,180); ka(119,180); ka(120,-90); ka(121,0); ka(122,90); kouki(122,7,1.1);
+penstroke z112e...z118e...z119e...z120e...z121e...{left}z122e;
+z123=(0.8u,2.45v); z124=(1.4u,3.5v); z125=(0.8u,4.15v); z126=(0.25u,3.6v);
+z127=(0.6u,3.2v); z128=(0.8u,3.4v); z128'=(0.65u,3.55v); ka(123,-49); ka(124,0);
+ka(125,90); ka(126,180); ka(127,-90); ka(128,0); ka(128',90); kouki(128',7,1);
+penstroke z123e{(7.9u,9v)-(0,1.7v)}...z124e...z125e...z126e...z127e...z128e
+...{left}z128'e; z129=(5.3u,1.9v); z130=(5.65u,1.6v); ka(129,-90); ka(130,180);
+penstroke z78e...z129e...{down}z130e; kouki(130,3,1); z131=(5.7u,2.55v);
+z132=(6.2u,2.25v); z133=(6u,2.05v); ka(131,-90); ka(132,180); ka(133,90);
+kouki(133,5,1.2); penstroke z78'e...z131e...z132e...{left}z133e; mpalla(85,1.3);
+z200=(2.3u,3.65v); z201=(3.05u,4.45v); z202=(1.65u,5.7v);
+triaina(201,200,202,0.3); z203=z11; ka(203,180); z204=(5.4u,0.1v); ka(204,-90);
+penstroke z203e{down}..z204e{right}; kouki(204,6,1); z205=(8.2u,1.05v);
+z206=(7.8u,0.4v); z207=(7u,1.75v); triaina(205,206,207,0.6); z208=(8u,6.1v);
+z209=(8.7u,5.2v); z210=(7.8u,4v); ka(208,-90); ka(209,180); ka(210,90);
+penstroke z102e{up}..z208e{right}.. z209e{down}..z210e{left}; z211=(8.5u,3.6v);
+mpalla(211,1.3); z212=(6.55u,3.95v); z213=(6.55u,4.5v); z214=(7.5u,3.95v);
+triaina(212,213,214,0.7); z215=(5.2u,5.05v); ka(215,90); penstroke
+z107e{right}..z215e{left}; z216=(4.9u,1.45v); mpalla(216,1.3); z217=z40;
+ka(217,90); z218=(3.2u,8.75v); ka(218,0); penstroke z217e{dir210} ..z218e{up};
+kouki(218,2,1.1); z219=(8.9u,8.5v); ka(219,0); penstroke z95e{right}..
+z219e{up}; kouki(219,1,1.3); z220=(6.05u,5.8v); mpalla(220,1); z221=(7.8u,5.6v);
+z222=(8.4u,5.2v); ka(221,-90); ka(222,180); penstroke z221e{right}..z222e{down};
+kouki(222,3,1);
+penlabels(range 1 thru 225); .endchar;
+
diff --git a/fonts/gothic/yinit/yinitE.mf b/fonts/gothic/yinit/yinitE.mf
new file mode 100644
index 0000000000..2d3a337843
--- /dev/null
+++ b/fonts/gothic/yinit/yinitE.mf
@@ -0,0 +1,100 @@
+.cmchar "The letter E";
+.beginchar("E",8.9u#-1mm#,8.7m*u#,0);
+.adjust_fit(0,0); 
+z1=(1.5u,1.6v); z2=(1.8u,1.5v); z3=(2.2u,1.8v); z4=(2.2u,2.25v);
+z5=(2.6u,2.3v);z6=(3u,1.5v);  z7=(2u,0.55v); z8=(0.7u,1.8v);  z9=(2u,3.3v);
+z10=(3.6u,2.8v); z11=(4.7u,1.5v); z12=(6.7u,0.8v); z13=(8.15u,2.2v);
+z14=(7.2u,3.25v); z15=(6.45u,2.8v); z16=(6.7u,2.3v); z17=(7u,1.95v);
+z18=(6.7u,1.7v); z19=(4.45u,1.75v); z20=(4.5u,1.65v); z21=(5.75u,4v);
+z22=(5.55u,4.6v); z23=(4.05u,5.7v); z24=(3.7u,6.5v); z25=(4.4u,7.5v);
+z26=(6.05u,7.3v); z27=(6.45u,6.7v);z28=(5.25u,5v); z29=(7.1u,4.95v);
+z30=(7.3u,4.55v); penpos1(hair,180); z1'=z1; ka(1',0); kouki(1',2,1.2);
+penpos2(0.2v,-90); penpos3(0.5u,9.5); penpos4(0.55u,-20); penpos5(0.2v,-90);
+ka(6,180); ka(7,90); ka(8,0); penpos9(0.45v,-90); penpos10(0.85uv,-138); 
+penpos11(0.8uv,-142);penpos12(0.45v,-90); penpos13(1.2hair,0); ka(14,90);
+penpos15(0.4u,180); penpos16(0.5uv,-109); penpos17(0.2u,180); ka(18,90);
+penstroke z1e...z2e{right}... z3e{up}...z4e...z5e...z6e...z7e...
+z8e...z9e...z10e...z11e...z12e... z13e{up}...{left}z14e...z15e{down}...z16e...
+z17e{down}...{left}z18e; penpos19(hair,-41); ka(20,-50); penpos21(0.6u,0);
+penpos22(0.75uv,40); penpos23(0.9uv,58); penpos24(0.5u,0);
+penpos25(1.5hair,-64); penpos26(0.6uv,-145); penpos27(2uv,-145); penstroke
+z20e{(9u,5.5v)-(2.6u,0)}... z21e...z22e...z23e...z24e...z25e... {z27-z26}z26e;
+z19.1=(5u,3.3v); z19.2=(3.7u,4.6v); z19.3=(3.2u,4.5v); penpos19.1(0.4u,0);
+penpos19.2(0.75uv,63); penpos19.3(1.6uv,43); penstroke z19e{(9u,7v)-(3.1u,0)}...
+z19.1e{up}...z19.2e{(0,5.1v)-(9u,3.9v)} ...{z19.3-z19.2}z19.3e; ka(28,-58);
+penpos29(0.55uv,-139); penpos30(1.5uv,-139); penstroke z28e{(9u,7.4v)-(0,2v)}...
+{z30-z29}z29e; penpos27.1(1.5hair,-235); z27.1l=z27r; penpos27.2(hair,-55);
+z27.2r=z27l; filldraw z26l{z27-z26}...{z27.2-z27.1} z27.2l & z27.2l--z27.2r &
+z27.2r--z27.1l & z27.1l--z27.1r & z27.1r{z27.2-z27.1} ...{z26-z27}z26r &
+z26r--z26l & cycle; penpos30.1(1.5hair,-49); z30.1r=z30l; filldraw
+z29l{z30-z29}...{z30l-z30r} z30.1l & z30.1l--z30.1r & z30.1r--z30r &
+z30r{z30l-z30r}...z29r & z29r--z29l & cycle; z31=(4.4u,4.8v); z32=(3.5u,2.8v);
+z33=(3u,0.4v); z34=(2u,0); z35=(1.5u,0.1v); z36=(0.1u,2v); z37=(0.15u,2.4v);
+z38=(1.5u,3.9v); z39=(2.35u,4v); z40=(4.65u,2.5v); z40'=(4.45u,2.15v);
+z41=(4.25u,2.5v); z42=(5.35u,3.2v); z43=(6.55u,2v); z44=(5.2u,0.4v);
+z45=(3.45u,1.55v); z46=(4.1u,3.8v); z47=(7.4u,7.8v); z48=(6.9u,8.35v);
+z49=(6.7u,7.9v); z50=(8u,5.3v); z51=(7.8u,5.6v); ka(31,-141); ka(32,180);
+ka(33,127); ka(34,90); ka(35,77); mpalla(33,1.5); mpalla(35,1.3); ka(36,0);
+ka(37,-9); ka(38,-65); ka(39,-90); ka(40,180); ka(40',90); ka(41,0); ka(42,-90);
+ka(43,180); ka(44,90); ka(45,31); ka(46,-31); ka(47,0); ka(48,90); ka(49,-90);
+kouki(49,6,1.2); ka(50,0); ka(51,90); kouki(51,7,1.5); penstroke
+z27.1e{z27r-z27l}...z31e... z32e...z33e...z34e...z35e...z36e...z37e
+...z38e...z39e...{down}z40e...z40'e... {up}z41e...z42e...z43e...z44e...z45e...
+z46e...z28e{(9u,7.4v)-(0,2v)}; penstroke z27.2e{z27l-z27r}...z47e...
+z48e{left}...{right}z49e; penstroke z30.1e{z30l-z30r}...z50e... {left}z51e;
+z52=(7.5u,4.1v); z53=(8.15u,4.3v); z54=(8.2u,3.4v); z55=(7.8u,2.7v);
+z56=(7.2u,3.4v); z57=(7.6u,3.65v);  z58=(6.25u,4.2v); z59=(7.2u,6.85v);
+z60=(8u,6v);  z61=(7.4u,5.5v); z62=(6.9u,6v); z63=(7.2u,6.3v); 
+z64=(5.75u,6.3v); z65=(6.8u,8.65v); z66=(8u,7.5v);  z67=(7.35u,6.6v);
+z68=(6.7u,7.2v); z69=(7.15u,7.3v);  z70=(7.55u,7.5v); z71=(6.5u,8.1v);
+z72=(6u,8.55v);  z73=(5.8u,8.4v); z74=(6u,8.2v); z75=(4.7u,8.8v); 
+z75.1=(5u,8.6v); z75.2=(4.9u,8.35v); z75.3=(5u,8.05v); penpos75.1(0.25u,180);
+penpos75.2(0.4uv,-147); ka(75.3,-124); z76=(2.5u,8.3v); z77=(0.75u,7v);
+z78=(1.9u,5.9v);  z78'=(2.6u,6.1v); z79=(3u,6.8v); z80=(2.1u,7.8v);
+z81=(1.5u,7.3v);  z82=(1.8u,6.9v); z83=(2.05u,6.95v); z84=(2.4u,6.5v); 
+z85=(2.1u,6.35v); z86=(2.05u,5.2v); z87=(2.7u,4.55v);  z88=(3.25u,5v);
+z89=(3u,5.4v); z90=(2.75u,5.25v);  z91=(0.7u,4.4v); z92=(0,5v);
+z93=(0.5u,5.55v);  z94=(0.8u,5.2v); z94'=(0.7u,4.9v); z95=(0.3u,5.9v);
+z96=(3u,7.6v);  z97=(1.5u,7.4v); z98=(0,8.3v); z98'=(0.5u,8.7v);
+z99=(0.5u,8.2v);  z100=(0.35u,8.35v); z101=(1.9u,8.7v); z102=(3.3u,7v); 
+z103=(1.2u,5.2v); z104=(2.6u,3.6v); z105=(8.3u,0.7v);  z106=(7.8u,0);
+z107=(7.45u,0.4v); z108=(7.7u,0.65v);  ka(52,-90); ka(53,0); ka(54,180);
+ka(55,90); ka(56,0); ka(57,-90);  ka(58,0); ka(59,-90);  ka(60,180); ka(61,90);
+ka(62,0); ka(63,-90); ka(64,27); ka(65,-90); ka(66,180);  ka(67,90); ka(68,0);
+ka(69,-90); ka(70,180); ka(71,0); ka(72,90); ka(73,180);  ka(74,-90);
+ka(75,-90); ka(76,90); ka(77,180); mpalla(77,1.5); ka(78,-90); ka(79,0);
+ka(80,90);  penpos81(2hair,180); penpos82(0.5v,-90); ka(94',90);
+penpos83(0.45uv,-59); ka(84,180); ka(85,90); ka(86,180); ka(87,-90);  ka(88,0);
+ka(89,90); ka(90,90); ka(91,90); ka(92,0); ka(93,-90); ka(94,180);  ka(95,0);
+ka(96,90); ka(97,90); ka(98,0); ka(98',-90); ka(99,90);  ka(100,0); ka(101,-85); 
+ka(102,90); ka(103,180); ka(104,-90); ka(105,180); ka(106,90); ka(107,0); 
+ka(108,-90); z52'=(4.65u,1.65v); ka(52',-57);  z52.2=(6.05u,2.95v); ka(52.2,-38);
+penstroke z52'e{(9u,4.7v)-(2.3u,0)}...z52.2e...{right}z52e...{up}z53e;
+kouki(53,1,1.2); penstroke z52e{right}...{down}z54e...z55e...z56e...{right}z57e;
+penstroke z52'e{(9u,4.7v)-(2.3u,0)}...{up}z58e...{right}z59e...z60e...z61e...
+z62e...{right}z63e; kouki(63,8,1.5); penstroke
+z58e{up}...z64e...z65e{right}...z66e...z67e...z68e...z69e... {down}z70e;
+kouki(70,3,1.2); z75.4=(4.3u,8.4v);ka(75.4,0); penstroke
+z68e{up}...z71e...z72e...z73e...{right}z74e; penstroke
+z64e{(4.2u,9v)-(9u,0.6v)}...z75.4e...{right}z75e...z75.1e{down}...z75.2e{(0,4v)-(5.6u,9v)}
+...{(9u,5.8v)-(3.4u,9v)}z75.3e;  penstroke
+z64e{(4.2u,9v)-(9u,0.6v)}...z76e...z77e...z78e...z79e...z80e...
+z81e...{right}z82e...z83e...{down}z84e...{left}z85e; ka(78',126); penstroke
+z78'e{(0,4v)-(6.25u,9v)}...{down}z86e...z87e...z88e... {left}z89e;
+kouki(89,7,1);  penstroke z89e...z90e...z91e...z92e...z93e...z94e...{left}z94'e;
+kouki(94',5,1.2); penstroke z92e{up}...{up}z95e; kouki(95,1,1.2); penstroke
+z58e{up}...{left}z96e...{left}z97e...z98e...z98'e...z99e...z100e...
+{right}z101e; z23'=z23; penpos23'(hair,0); penstroke
+z58e{up}...z102e{left}...z103e...z104e...z23'e; z105.1=(5.5u,1.65v);
+z105.2=(6.9u,1.3v); z105.3=(7.7u,2.2v); z105.4=(7.1u,2.75v); ka(105.1,-120);
+ka(105.2,-90); ka(105.3,0); ka(105.4,90); penstroke
+z105.1e{(8.5u,0)-(0,4.6v)}...z105.2e...z105.3e...{left}z105.4e; penstroke
+z105.2e{right}...z105e{down}...z106e...z107e...{right}z108e; kouki(108,8,1.5);
+kouki(57,8,1.2); mpalla(105.2,1.2); mpalla(45,1.5); mpalla(37,1.6);
+z109=(3.85u,v); z110=(4.4u,0.55v); z111=(4.2u,0.3v); z112=(3.9u,0.5v);
+z113=(3.5u,0.4v); ka(109,-90); ka(110,180); penpos111(0.2v,90);
+penpos112(0.2uv,45); ka(113,180); kouki(113,4,1); z33'=z33; ka(33',-53);
+penstroke z33'e{(9u,5.6v)-(2.5u,0)}...z109e...
+z110e...z111e...z112e...{down}z113e;
+penlabels(range 1 thru 120);  .endchar;
+
diff --git a/fonts/gothic/yinit/yinitF.mf b/fonts/gothic/yinit/yinitF.mf
new file mode 100644
index 0000000000..7e45909d36
--- /dev/null
+++ b/fonts/gothic/yinit/yinitF.mf
@@ -0,0 +1,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;
+
diff --git a/fonts/gothic/yinit/yinitG.mf b/fonts/gothic/yinit/yinitG.mf
new file mode 100644
index 0000000000..57e62eb163
--- /dev/null
+++ b/fonts/gothic/yinit/yinitG.mf
@@ -0,0 +1,89 @@
+.cmchar "The letter G";
+.beginchar("G",8.9u#+0.1mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(4.45u,1.4v); z2=(4.35u,2.25v); z3=(3.8u,2.4v); z4=(3.05u,3.2v);
+z5=(3.75u,3.95v); z6=(4.15u,3.55v); penpos1(hair,0); penpos2(0.85uv,62);
+penpos3(0.8v,90); penpos4(0.3u,0); ka(5,-90); ka(6,-180); kouki(6,3,2);
+penstroke z1e{up}...z2e{(0,2.75v)- (5.1u,0)}...z3e{left}...z4e{up}...
+z5e{right}...z6e{down}; z11=(4.5u,1.9v); z12=(5.1u,2.45v); z13=(6.2u,4v);
+z14=(5.8u,4.9v); z15=(4.1u,5.8v); z16=(3.75u,6.5v); z17=(4.35u,7.6v);
+ka(11,-48); ka(12,-48); penpos13(0.65u,0); penpos14(0.95uv,50);
+penpos15(0.95uv,53); penpos16(0.65u,0); ka(17,-51); penstroke
+z11e{(9u,6.1v)-(2.5u,0)}... z12e{(9u,6.1v)-(2.5u,0)}...z13e{up}...
+z14e{(0.7u,9v)-(9u,2.3v)}... z15e{(0.7u,9v)-(9u,2.3v)}...z16e...
+{(6.8u,9v)-(0,5v)}z17e; z17.1=(6.45u,8.95v); z17.2=(7.75u,7.35v);
+z17.3=(6.33u,6.3v); z17.4=(6.2u,7.7v); z17.45=(5.2u,8.05v); z17.5=(6.2u,8.5v);
+z17.6=(7.3u,7.45v); z17.7=(8.45u,8.45v); penpos17.1(hair,-23.5);
+penpos17.2(0.3uv,-57); penpos17.3(hair,123); penpos17.7(hair,0); filldraw
+z17l{(6.8u,9v)-(0,5v)}... z17.45 & flex(z17.45,z17.5,z17.1l) & z17.1l--z17.1r &
+flex(z17.1r,z17.6,z17.7l) & z17.7l--z17.7r{up} & z17.7r{down}...z17.2r--z17.3l &
+z17.3l--z17.3r & flex(z17.3r,z17.4,z17r) & z17r--z17l & cycle; z18=(5.1u,5.3v);
+z19=(4.3u,3.6v); z20=(5.85u,2.3v); z21=(7.2u,3.5v); z22=(6.8u,3.95v);
+z23=(6.5u,3.7v);
+ z25=(7.8u,9v); z26=(7.2u,8.5v); z27=(7.6u,8v); z28=(8u,8.3v); ka(18,123);
+ka(19,-180); ka(20,-90); ka(21,0); ka(22,90); ka(23,-180); kouki(23,4,1.5);
+ka(25,90); ka(26,180); ka(27,-90); ka(28,0); kouki(28,1,1.2); penstroke
+z17.3e{z17.3-z17.2}...z18e... z19e...z20e...z21e...z22e...z23e{down}; penstroke
+z17.7e{up}... z25e...z26e...z27e...z28e{up}; z29=z18+(0.3u,-0.15v);
+z30=(8.1u,4.55v); z31=(6.7u,1.2v); z32=(2.15u,2.4v); z33=(3.35u,7.25v);
+z34=(4.4u,7.5v); z35=(6.55u,5.5v); z36=(4.4u,3.4v); z37.1=(2.9u,4.15v);
+z37=(2.6u,5v); z38=(4.45u,6.6v); z39=(5.3u,5.7v); ka(29,-57);
+penpos30(0.85uv,-152); penpos31(1.5hair,121);  penpos32(uv,28);
+penpos33(1.5hair,-60.5); ka(34,-90); ka(35,-180); ka(36,90); ka(37,0);
+ka(37.1,38); ka(38,-90); ka(39,-180); penstroke z29e{(8.7u,9v)-(1.45u,0)}...
+z30e{(9u,2.8v)-(5.75u,9v)}...z31e... z32e...z33e...z34e...z35e...z36e...
+z37e...z38e...z39e... {(1.45u,0)-(8.7u,9v)}z18e; z7=(5.1u,2.7v); z8=(5.35u,3.4v);
+z9=(4.5u,4.35v); z10=(3.85u,4.55v); ka(7,-30); penpos9(0.6uv,58);
+penpos8(0.3u,0); penpos10(0.7uv,59); z10.1=z89=(2.3u,3.9v); z10.2=z15l;
+z10.3=(3.3u,4.6v); filldraw z7l{(9u,9v)-(3.4u,0)}... flex(z8l,(4.1u,4.1v),z10.1)
+&  flex(z10.1,z10.3,z10.2) & z10.2...z10r... z9r...z8r...{(3.4u,0)-(9u,9v)}z7r &
+z7r--z7l & cycle; z29.2=z18; z40=(6.9u,6.05v); z41=(8.9u,4v); z42=(6.9u,0.8v);
+z43=(4.5u,0); z44=(1.9u,0.9v); z45=(0.65u,4v); z46=(1.45u,6.5v);
+z47=(5.3u,8.8v); z47.1=(7.9u,8.15v); z48=(8.85u,6.6v); z49=(8.1u,5.9v);
+z50=(7.55u,6.45v); z51=(7.95u,6.85v); z52=(8.3u,6.6v); z53=(0,0.8v);
+z54=(0.7u,0.1v); z55=(1.2u,0.7v); z56=(0.75u,1.1v); z57=(0.4u,0.8v);
+z58=(2.2u,0.95v); z59=(2.65u,0.5v); z60=(2.4u,0.1v); z61=(2.3u,8.35v);
+z62=(1.35u,9.25v); z63=(0.5u,8.5v); z64=(1.15u,7.7v); z65=(1.7u,8.25v);
+z66=(1.35u,8.65v); z67=(0.25u,7.7v); z68=(0.6u,7.2v); z69=(3.4u,7.8v);
+z70=(4u,8.65v); z71=(3.5u,9.25v); z72=(3u,8.9v); z73=(8.8u,7.7v); z74=(9.1u,8v);
+z74.1=(8.9u,8.25v); z75=(6.8u,2.65v); z76=(7.3u,2.8v); z77=(6.3u,1.5v);
+z78=(7.55u,0); z79=(8.6u,v); z80=(8u,1.75v); z81=(7.3u,1.2v); z82=(7.8u,0.6v);
+z83=(8.3u,1.45v); z84=(8.8u,2.25v); z85=(9u,2v); z86=(1.15u,5.1v);
+z87=(0.15u,4v); z88=(1.2u,2.9v);  z90=(1.4u,4.6v); z91=(0.1u,5.4v);
+z92=(0.6u,6.5v); z92.1=(0.4u,6.85v); ka(29.2,-57); ka(40,-90); ka(41,180);
+ka(42,120); ka(43,90); ka(44,43); ka(45,0); ka(46,-32); ka(47,-78);
+ka(47.1,-126); ka(48,-168); ka(49,90); ka(50,0); ka(51,-90); ka(52,180);
+kouki(52,3,1.5); ka(53,180); ka(54,-90); ka(55,0); ka(56,90); ka(57,180);
+kouki(57,4,1.2); ka(58,-90); ka(59,180); ka(60,90); z60.2=(2.05u,0.35v);
+z60.3=(1.7u,0.4v); penpos60.2(0.2u,15); ka(60.3,100); ka(61,0); ka(62,90);
+ka(63,180); ka(64,-90); ka(65,0); mpalla(61,0.5); ka(66,90); ka(67,180);
+ka(68,-90);
+ ka(69,-70); mpalla(69,1); ka(70,0); ka(71,90); ka(72,180); kouki(72,4,1);
+ka(73,-90); ka(74,0); ka(74.1,90); kouki(74.1,7,1); mpalla(75,1.5); ka(75,129);
+ka(76,90); z76.1=z76; ka(76.1,-90); kouki(76.1,8,1.2); ka(77,180); ka(78,-90);
+ka(79,0); ka(80,90); ka(81,180); ka(82,-90); ka(83,45); ka(84,-90); ka(85,180);
+kouki(85,3,1.2); ka(86,90); ka(87,180); ka(88,-90); ka(89,0); ka(90,77);
+ka(91,0); ka(92,0); ka(92.1,54); penstroke z29e{(7.6u,9v)-(1.6u,0)}...
+z40e...z41e...z42e...z43e... {(0,2.7v)-(2.8u,0)}z44e...z45e...
+{(2.9u,9v)-(0,4v)}z46e...z47e... z47.1e{(9u,7.5v)-(6.6u,9v)}...
+z48e...z49e...z50e...z51e... {down}z52e; penstroke z44e{(0,2.7v)-(2.8u,0)}...
+z53e{down}...z54e{right}...z55e... z56e...{down}z57e; penstroke
+z54e{right}...z58e...z59e... z60e{left}...z60.2e{(0,3.8v)-(2.3u,0)}...
+{(u,0)-(9u,5.1v)}z60.3e; penstroke z46e{(2.9u,9v)-(0,4v)}...
+z61e{up}...z62e...z63e...z64e...z65e... z66e{left};  z150=(1.4u,8.2v);
+z151=(0.2u,8.2v); z152=(1.4u,9.3v); triaina(150,151,152,0.6); mpalla(42,1.5);
+mpalla(87,1.5); penstroke z46e{(2.9u,9v)-(0,4v)}...
+z69e...z70e...z71e...{down}z72e; penstroke z47.1e{(9u,7.5v)-(6.6u,9v)}...
+z73e...z74e...{left}z74.1e; penstroke z76e{left}...z75e...z77e...
+z78e...z79e...z80e...z81e...z82e... z83e...z84e...{down}z85e; penstroke
+z37.1e{(0,8v)-(6u,0)}...z86e...z87e... z88e...z89e...z90e...z91e...z92e...
+{(0,v)-(u,0.2v)}z92.1e; z100=(1.2u,7.2v); z101=(1.8u,8v); z102=(2.2u,6.5v);
+triaina(100,101,102,1/2); z103=(6.6u,1.6v); z104=(5.8u,1.1v); z105=(5.9u,2.6v);
+triaina(103,104,105,1/2); z106=(1.3u,0.9v); z107=(u,1.3v); z108=(2u,1.4v);
+triaina(106,107,108,0.7); mpalla(38,1.5); z109=(5.4u,7.25v); z110=(5.1u,7.6v);
+z111=(4.8u,7.35v); ka(109,0); ka(110,90); ka(111,180); penstroke
+z38e{right}...z109e...z110e ...{down}z111e; kouki(111,4,1); z111.1=(5.5u,6.45v);
+mpalla(111.1,2); z112=(1.85u,4.75v); z113=(1.85u,5.6v); z114=(3.4u,4.75v);
+triaina(112,113,114,0.6); penlabels(range 1 thru 115);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitH.mf b/fonts/gothic/yinit/yinitH.mf
new file mode 100644
index 0000000000..269cc8401a
--- /dev/null
+++ b/fonts/gothic/yinit/yinitH.mf
@@ -0,0 +1,123 @@
+.cmchar "The letter H";
+.beginchar("H",8.9u#+0.2mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(1.9u,0.3v); z2=(2.7u,1.1v);  z3=(4.3u,3.55v); z4=(3.7u,4.9v);
+z5=(2.85u,6.35v); z6=(3.8u,7.8v); z7=(5.1u,5.85v); z8=(6.15u,8.6v);
+z9=(7.6u,7.1v); z10=(8.1u,8v); z11=(7.55u,8.55v); z12=(7.25u,8.3v);
+z13=(7.4u,8.1v); z14=(7.6u,8.2v); z15=(7.8u,8.1v); z16=(1.7u,1.8v);
+z17=(0.8u,2.9v); z18=(1.7u,3.75v); z19=(2.3u,3.2v); z20=(1.9u,2.75v);
+z21=(1.55u,3v); z22=(1.75u,3.25v); z23=(1.92u,3.15v); z27.2=(2.2u,4.65v);
+z24=(2u,3.1v); z25=(2.3u,1.4v); z26=(3.35u,3v); z27=(1.4u,4.3v);
+z28=(2.4u,5.3v); z28'=(3.1u,3.85v); z29=(5.6u,5.5v); z30=(7.6u,4.55v);
+z31=(7.9u,3.6v); z32=(6u,0.8v); z33=(4.85u,1.75v); z34=(5.65u,2.65v);
+z35=(6.45u,3.5v); z36=(6u,4.05v); z37=(5.75u,3.9v); z38=(5.9u,3.5v); ka(1,-31);
+ka(2,-55); penpos3(0.8u,0); penpos4(0.85uv,40); penpos5(0.65u,0);
+penpos6(1.5hair,-52); ka(7,117); ka(8,158); ka(9,-63); ka(10,0); ka(11,90);
+penpos12(1.5hair,180); penpos13(0.3v,-90); penpos14(0.2uv,-49); ka(15,-133);
+penpos16(0.85uv,62); penpos17(0.3u,0); penpos18(1.5hair,-90); ka(19,180);
+ka(20,90); penpos21(1.5hair,0); penpos22(0.3v,-90); penpos23(0.2uv,-135);
+ka(24,-135); ka(25,-59); penpos26(0.3u,0); ka(27,-68); ka(28,168);
+penpos27.2(0.9uv,43); ka(28',-21); penpos29(0.35v,-90); penpos30(0.85uv,-149);
+penpos31(0.75u,180); ka(32,90); ka(33,0); penpos34(0.8v,-90); penpos35(0.12u,0);
+ka(36,90); ka(37,180); ka(38,-90); kouki(38,6,1.5); filldraw
+z1r{(7.3u,9v)-(1.6u,0)}... z2r{(9u,5v)-(0.8u,0)}...z3r{up} & z3r--z3l &
+z3l{down}...z2l{(0.8u,0)-(9u,5v)} & z2l{(0,7.8v)-(3.2u,0)}... z16r  ...z17r{up} &
+z17r--z17l & z17l{down}... z16l...  flex(z16l,(1.9u,v),z1l) & z1l--z1r & cycle;
+penstroke z17e{up}...z18e...z19e... z20e...z21e...z22e...z23e...z24e; filldraw
+z25r{(9u,5.4v)-(0,0)}... z26r{up}...(3.3u,4.05v)...
+z27.2r...z28l{(3.2u,9v)-(1.1u,0)} & z28l--z28r & flex(z28r,(2u,4.8v),z27l) &
+z27l--z27r & z27r{(9u,7.2v)-(0,3.7v)}
+...z27.2l...(2.6u,4v)...z26l{down}...z25l{(0,0)-(9u,5.4v)} & z25l--z25r & cycle;
+penstroke z3e{up}...z4e...z5e{up}... z6e{(6u,9v)-(0,5.8v)}; filldraw
+z6r{(6u,9v)-(0,5.8v)}... (5.7u,7.3v)...z7r{(0,3.3v)-(9u,7.8v)}
+...z28'l{(1.4u,0)-(5.3u,9v)} & z28'l--z28'r & z28'r{(5.3u,9v)-(1.4u,0)}...
+{(9u,7.8v)-(0,3.3v)}z7l---z9r...z10r{up} & z10r--z10l & z10l{down}...z9l...
+(6.4u,7.35v)...z8l{(6.3u,9v)-(3u,0)} & z8l--z8r & z8r{(3u,0)-(6.3u,9v)}...
+z6l{(0,5.8v)-(6u,9v)} & z6l--z6r & cycle; penstroke z28'e{(5.3u,9v)-(1.4u,0)}...
+z29e...z30e...z31e...z32e{left}...z33e{up}
+...{right}z34e...{up}z35e...z36e...z37e ...{right}z38e; penstroke
+z10e{up}...z11e...z12e...z13e... z14e...z15e; z40=(2.1u,0.2v); z41=(3.3u,1.15v);
+z42=(5.3u,4.5v); z43=(4.1u,7.4v); z44=(2u,8.2v); z45=(0.1u,6.5v);
+z46=(1.2u,5.5v); z47=(2.4u,6.55v); z48=(1.5u,7.5v); z49=(0.8u,6.9v);
+z50=(1.3u,6.4v); z50'=(1.65u,6.75v); z51=(1.45u,7.05v); z52=(1.2u,6.8v);
+z53=(0,8.35v); z54=(0.55u,8.9v); z55=(u,8.5v); z56=(0.7u,8.2v);
+z57=(0.4u,8.45v); z58=(1.4u,8.6v); z59=(1.55u,8.8v); z60=(5u,3.1v);
+z61=(4.05u,5.75v); z62=(3.85u,6.1v); z63=(3.7u,6.6v); z64=(4.7u,7.55v);
+z65=(5.4u,6.85v); z66=(4.8u,6.15v); z67=(4.3u,6.7v); z68=(4.75u,7.15v);
+z69=(5.05u,6.9v); z70=(3.85u,8.2v); z71=(4.55u,9.05v); z72=(5.15u,8.7v);
+z73=(4.8u,8.3v); z74=(4.6u,8.55v); z75=(5.5u,8.55v); z76=(5.7u,8.8v);
+z77=(2.45u,3.8v); z78=(0.65u,4.55v); z79=(0.4u,5.35v); z80=(1.3u,6.25v);
+z81=(2u,5.5v); z82=(1.5u,5.05v); z83=(1.25u,5.25v); z84=(1.35u,5.5v);
+z85=(1.4u,5.7v); z86=(1.1u,5.8v); z87=(2.6u,2.3v); z88=(1.2u,3.2v);
+z89=(0.3u,3.6v); z90=(0.6u,4v); z91=(0.2u,3.1v); z92=(0.15u,2v);
+z93=(0.4u,1.3v); z94=(1.2u,0.9v); z94'=(2u,1.7v); z95=(1.5u,2.5v);
+z96=(0.7u,1.8v); z97=(1.1u,1.3v); z97'=(1.5u,1.8v); z98=(0.4u,0);
+z99=(0.1u,0.3v); z100=(0.3u,0.5v); ka(40,-46); ka(41,-56); ka(60,-27); ka(42,0);
+ka(43,49); ka(44,90); ka(45,180); ka(46,-90); ka(47,0); ka(48,90); ka(49,180);
+ka(50,-90); penpos50'(1.5hair,0); penpos51(0.3v,90); ka(52,138); ka(53,0);
+ka(54,-90); ka(55,180); ka(56,90); ka(57,0); ka(58,-90); ka(59,0);  ka(61,30);
+ka(62,30); ka(63,0); ka(64,-90); ka(65,180); ka(66,90); ka(67,0); ka(68,-90);
+ka(69,180); ka(70,0); ka(71,-90); ka(72,-142); ka(73,90); ka(74,0); ka(75,-90);
+ka(76,0); ka(77,62); ka(78,37); ka(79,0); ka(80,-90); ka(81,180); ka(82,90);
+penpos83(0.3u,0); penpos84(0.3uv,-51); penpos85(0.2u,0); ka(86,90); ka(87,0);
+ka(88,90); ka(89,0); ka(90,-90); mpalla(91,1.5); ka(92,180); ka(93,-141);
+ka(94,-90); ka(94',0); ka(95,90); ka(96,180); penpos97(1.5hair,-90);
+penpos97'(0.3u,0); ka(98,90); ka(99,0); ka(100,-90); penstroke
+z40e{(9u,5.5v)-(1.9u,0)}... z41e...z60e{(7.6u,9v)-(3.7u,0)}...
+z42e...z43e{(2.4u,9v)-(9u,2.5v)} ...z44e...z45e...z46e...z47e
+...z48e{left}...z49e...z50e...z50'e{up}... z51e{left}...z52e; filldraw
+(4.85u,3v)--(4.95u,3.2v)-- (5.2u,3.15v)--(5.1u,2.95v)--cycle; penstroke
+z48e{left}...z53e{up}... z54e...z55e...z56e...z57e{up}; kouki(57,2,1.2);
+penstroke z55e...z58e...z59e{up}; kouki(59,1,1); penstroke
+z60e{(7.6u,9v)-(3.7u,0)}... z61e...z62e...z63e...z64e...z65e...
+z66e...z67e...z68e...z69e{down}; kouki(69,3,1.8); mpalla(62,1.5); filldraw
+(3.9u,5.5v)--(3.75u,5.6v)-- (4.2u,6v)--(4.35u,5.85v)--cycle; penstroke
+z43e{(2.4u,9v)-(9u,2.5v)}... z70e{up}...z71e...
+z72e{(9u,3.15v)-(4.9u,9v)}...z75e{right} ...z76e{up}; kouki (76,1,1); penstroke
+z72e...z73e...z74e{up}; kouki(74,2,1.1); penstroke z25e{(9u,5.4v)-(0,0)}...
+z77e...z78e...z79e...z80e...z81e... z82e{left}...z83e{up}...
+{(5.2u,9v)-(0,4.2v)}z84e...z85e{up}... z86e; mpalla(78,1.2); penstroke
+z25e{(9u,5.4v)-(0,0)}... z87e{up}...z88e{left}...z89e...z90e{right};
+kouki(90,8,1); penstroke z88e{left}...z92e...
+z93e{(1.5u,0)-(0,1.7v)}...z94e...z95e... z96e...z97e...z97'e{up}; penstroke
+z93e{(1.5u,0)-(0,1.7v)}... z98e{left}...z99e...z100e{right}; mpalla(93,1.5);
+kouki(100,8,1); z101=(2.45u,7.25v); z102=(1.7u,7.5v); z103=(2.9u,9v);
+z104=(3u,8.05v); triaina(101,102,103,0.5); mpalla(104,1.7); z110=(2.8u,2.6v);
+z111=(4.25u,0.5v); z112=(4.8u,0.35v); z113=(6.35u,1.3v); z114=(5.7u,1.9v);
+z115=(5.25u,1.6v); z116=(5.5u,1.4v); z117=(5.25u,5v); z118=(7u,3.5v);
+z119=(6.6u,1.85v); z120=(6.85u,1.6v); z121=(7.05u,1.8v); z122=(6.1u,2.2v);
+z123=(5.35u,3v); z124=(5.7u,3.35v); z125=(6u,3v); z126=(5.1u,5.6v);
+z127=(8.4u,8v); z128=(7.4u,9.05v); z129=(6.65u,8.3v); z130=(7.3u,7.55v);
+z131=(7.15u,7.3v); z132=(6.25u,8.2v); z133=(6.7u,8.7v); z134=(7u,8.4v);
+z135=(6.2u,6v); z136=(8.8u,6.6v); z137=(8.25u,7.2v); z138=(7.6u,6.7v);
+z139=(8.1u,6.25v); z140=(8.35u,6.6v); z141=(7.65u,5.5v); z142=(8.9u,5.45v);
+z143=(8.6u,5.75v); z144=(8.35u,5.6v); z144'=(8.5u,5.4v); z145=(8.7u,3.4v);
+z146=(8.2u,v); z147=(8.8u,0.4v); z148=(9.1u,0.7v); z148'=(8.95u,0.85v);
+z149=(7.9u,1.5v); z150=(6.5u,0.5v); z151=(6.2u,0.25v); z152=(6.4u,0.05v);
+z153=(6.65u,0.2v); z154=(6.8u,0.3v); z155=(7.3u,0); z156=(7.5u,0.2v);
+z157=(3.6u,-0.3v); z158=(2.45u,0.3v); z159=(5.15u,1.1v); z28.25=z28';
+ka(28.25,159); ka(110,180); ka(111,-109); ka(112,-90); ka(113,0); ka(114,90);
+ka(115,180); ka(116,-90); kouki(116,6,1.3); ka(117,-90); ka(118,180);
+ka(119,180); ka(120,-90); ka(121,0); kouki(121,1,1); ka(122,90); ka(123,0);
+ka(124,-90); ka(125,180); ka(126,-59); ka(127,0); ka(128,90); ka(129,180);
+ka(130,-90); ka(131,90); ka(132,0); ka(133,-90); ka(134,180); ka(135,-90);
+ka(136,0); ka(137,90); ka(138,180); ka(139,-90); ka(140,0); ka(141,-62);
+ka(142,0); ka(143,90); ka(144,180); ka(145,180); ka(146,180); ka(147,-90);
+ka(148,0); kouki(148,1,1.6); ka(149,145); ka(150,112); ka(151,180);
+penpos152(1.5hair,-90);  penpos153(0.3uv,-45); penpos154(0.25v,-90);
+ka(155,-90); ka(156,0); kouki(156,1,1.8); triaina(157,158,159,0.4); penstroke
+z28.25e{(1.55u,0)-(5.1u,9v)}... z110e...z111e...z112e...z113e...z114e...
+z115e...z116e{right}; mpalla(112,1.5); penstroke z28'e{(5.3u,9v)-(1.4u,0)}...
+z117e...z118e{down}...z119e...z120e... z121e{up}; mpalla(118,1.2); penstroke
+z118e{down}...z122e...z123e ...z124e...z125e{down}; z15'=z15; ka(15',0);
+penstroke z126e{(9u,7.7v)-(0,2.8v)}... z127e{up}...z128e...z129e...z130e...
+z15'e{up}; penstroke z15e{down}...z131e...z132e... z133e...z134e{down};
+kouki(134,3,1.2); penstroke z126e{(9u,7.7v)-(0,2.8v)}...
+z135e{right}...z136e{up}...z137e... z138e...z139e...z140e{up}; kouki(140,1,1.5);
+penstroke z135e{right}... z141e{(9u,4.6v)-(2.1u,9v)}...z142e{up}
+...z143e...z144e{down}; kouki(144,4,1); penstroke z141e{(9u,4.6v)-(2.1u,9v)}...
+z145e{down}...z146e{down}...z147e... z148e{up};  penstroke
+z145e{down}...z149e...z150e... z151e{down}...z152e{left}...z153e...
+z154e...z155e...z156e{up}; penlabels(range 1 thru 156);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitJ.mf b/fonts/gothic/yinit/yinitJ.mf
new file mode 100644
index 0000000000..af8b930e1b
--- /dev/null
+++ b/fonts/gothic/yinit/yinitJ.mf
@@ -0,0 +1,122 @@
+def the_letter_I=
+z1=(3.35u,6.25v); z2=(3.45u,6.5v); z3=(3.2u,6.75v); z4=(2.9u,6.65v);
+z5=(2.7u,7v); z6=(3.2u,7.35v); z7=(3.9u,6.5v); z8=(2.9u,5.55v); z9=(1.6u,6.8v);
+z10=(3.4u,8.3v); z11=(4.5u,7.85v); z12=(6.1u,7v); z13=(6.95u,7.8v);
+z14=(6.5u,8.3v); z15=(1.2u,0.9v); z16=(1.05u,1.1v); z17=(1.4u,1.45v);
+z18=(1.95u,0.9v); z19=(1.3u,0.35v); z20=(0.5u,1.3v); z21=(1.7u,2.5v);
+z22=(3.25u,1.6v); z23=(4.65u,0.53v); z24=(5.8u,0.85v); z25=(6.8u,2.9v);
+z26=(6.23u,4.23v); z27=(5.3u,5.8v); z28=(6.2u,6.7v); z29=(6.6u,6.4v);
+z30=(2.85u,3v); z31=(4.7u,4.5v); z32=(4.65u,3.9v); z33=(6u,2.3v); z34=(5u,1.13v);
+z35=(4.35u,1.7v); z36=(4.66u,2.15v); z37=(5u,1.85v); ka(1,-52);
+penpos2(1.5hair,0); penpos3(0.5v,90); penpos4(0.55v,90); penpos5(0.2u,0);
+ka(6,-90); ka(7,180); ka(8,90); ka(9,0); penpos10(0.6v,-90);
+penpos11(0.95uv,-138); penpos12(0.25v,-90); penpos13(hair,0); penpos14(hair,90);
+kouki(14,7,2.6); penstroke z1e{(6.1u,9v)-(0,3v)}...z2e{up}
+...z3e{left}...z4e{left}...z5e{up}... z6e...z7e...z8e...z9e...z10e...z11e...
+z12e...z13e...z14e{left}; ka(15,90); ka(16,0); ka(17,-90); ka(18,180);
+ka(19,90); penpos20(1.5hair,0); penpos21(0.55v,-90); penpos22(1.06uv,-139);
+penpos23(0.4v,-90); penpos24(1.5hair,-57); penpos25(0.55u,0);
+penpos26(0.85uv,40); penpos27(0.5u,0); penpos28(hair,-90); ka(29,180);
+kouki(29,3,2.5); z15'=z15; ka(15',-90); kouki(15',6,1.8); penstroke
+z15e{left}...z16e...z17e... z18e...z19e...z20e...z21e...z22e...
+z23e...z24e...z25e...z26e...z27e... z28e...z29e{down}; ka(30,-52); ka(31,180);
+penpos32(0.9uv,34); penpos33(0.3u,0); ka(34,90); ka(35,0); penpos36(0.5v,-90);
+penpos37(0.5u,180); filldraw z30l--z31r & z31r--z31l &
+z31l{(5.1u,0)-(4.4u,9v)}...z32r... z33r...z34l{left}...z35l{up}...z36l...
+z37l{down}..z37r{up}... z35r{down}...z34r{right}...z33l...(4.5u,3.5v)...
+z30r{z30-z31} & z30r--z30l & cycle; z40=(1.2u,0.1v); z41=(0.15u,1.4v);
+z41'=(0.23u,1.95v); z42=(2u,3.35v); z43=(3.6u,2v); z44=(2.7u,0.6v);
+z45=(2.3u,0.85v); z46=(3.8u,4.7v); z47=(3.1u,5.45v); z48=(2.6u,4.9v);
+z49=(3.1u,4.4v); z49'=(3.5u,4.75v); z50=(3.3u,5.1v); z51=(0.9u,4.1v);
+z52=(1.6u,4.5v); z53=(2.35u,3.6v); z54=(1.5u,2.7v); z55=(0.4u,4.1v);
+z56=(1.4u,5.65v); z57=(3.35u,7.3v); z58=(2u,8.65v); z59=(0.4u,7.6v);
+z60=(0.25u,7v); z61=(0.8u,4.9v); z62=(2.9u,3.45v); z63=(5.65u,2.05v);
+z63'=(5.1u,1.37v); z64=(4.8u,1.45v); z65=(5u,1.55v); z66=(5.45u,2.05v);
+z67=(4.55u,2.85v); z68=(2.7u,1.2v); z69=(3.75u,0); z70=(4.6u,0.7v);
+z70'=(3.8u,1.5v); z71=(4.8u,0.9v); z72=(5u,0.85v); z73=(6.35u,2.5v);
+z74=(5.65u,3.9v); z75=(4.4u,6.6v); z76=(5u,8v); z77=(5.65u,8v); z78=(5.3u,8.5v);
+z79=(5.9u,9v); z80=(4.9u,9v); z81=(4.5u,8.7v); z82=(4.75u,8.4v);
+z83=(6.65u,8.67v); z83'=(7u,8.6v); z83''=(7.4u,8.5v); z84=(8.4u,7.2v);
+z85=(7u,5.5v); z86=(6u,5.8v); z87=(4.6u,0.2v); z88=(7.6u,1.35v);
+z89=(8.43u,0.6v); z90=(7.9u,0); z91=(7.35u,0.5v); z92=(7.75u,v);
+z93=(8.1u,0.65v); z94=(7.9u,0.4v); z91'=z91; z95=(6.55u,0); z96=(6.6u,1.2v);
+z96'=(7.5u,3v); z97=(7.9u,2.3v); z98=(8.15u,2.7v); z99=(8.15u,3.25v);
+z100=(8.5u,3.45v); z101=(8.9u,3.1v); z102=(8.75u,2.95v); z103=(6.8u,4.5v);
+z104=(6.3u,5.7v); z105=(7.4u,6.9v); z106=(8.3u,5.9v); z107=(7.6u,5v);
+z108=(7.5u,4.35v); z109=(8u,4v); z110=(8.3u,4.35v); z111=(8u,4.6v);
+z111'=(7.85u,4.5v); z112=(6.9u,5.6v); z113=(7.5u,6.05v); z114=(7.9u,5.8v);
+z115=(7.7u,5.5v); z116=(0.7u,8.5v); z117=(0.4u,8.8v); z118=(0,8.55v);
+z119=(0.25u,8.3v); z120=(0,5.7v); z121=(-0.3u,5.5v); z122=(-0.1u,5.25v);
+z123=(0.85u,6.25v); z124=(u,6.15v); z125=(0,3.5v); z126=(-0.2u,3.7v);
+z127=(0,3v); z128=(-0.3u,2.7v); z129=(2.15u,5.85v); z130=(1.05u,6.85v);
+z131=(1.8u,7.7v); z132=(2.5u,7.1v); z133=(2.3u,6.85v); z134=(1.3u,5.6v);
+z135=(1.9u,4.9v); z136=(4.85u,4.75v); z137=(4.15u,5.2v); z138=(4.8u,6v);
+z139=(6.9u,2.6v); z140=(7.5u,3.2v); z141=(8.1u,1.4v); z13'=z13;
+z142=(8.4u,8.2v); z143=(8.1u,8.6v); z144=(4.6u,5.7v); ka(40,90); ka(41,0);
+ka(41',-9); ka(42,-90); ka(43,180); ka(44,90); ka(45,0); ka(46,0); ka(47,90);
+ka(48,180); ka(49,-90); ka(49',0); ka(50,90); ka(51,180);  ka(52,90); ka(53,0);
+ka(54,-90);  ka(55,180); ka(56,119); ka(57,180); ka(58,-90); ka(59,-22);
+ka(60,0); ka(61,32); ka(62,76); ka(63,0); ka(63',-90); ka(64,-124); ka(65,-90);
+ka(66,0); ka(67,90); ka(68,180); ka(69,-90); ka(70,0); ka(70',90); ka(71,-103);
+ka(72,-90); ka(73,0); ka(74,46); ka(75,0); ka(76,-51); ka(77,180); ka(78,0);
+ka(79,-90); ka(80,90); ka(81,180); ka(82,-90); ka(83,-90); ka(83',-103);
+ka(83'',-111); ka(84,180); ka(85,90); ka(86,64); ka(87,-90); ka(88,-90);
+ka(89,180); ka(90,90); ka(91,0); ka(92,-90); ka(93,180); ka(94,90); z91=z94';
+ka(94',90); ka(95,90); ka(96',0); ka(96,-49); ka(97,-46); penpos98(0.3u,0);
+penpos99(0.2uv,-35); ka(100,-90); ka(101,180); ka(102,90); ka(103,33);
+ka(104,0); ka(105,-90); ka(106,180); ka(107,90); ka(108,180); ka(109,-90);
+ka(110,0); ka(111,90); ka(111',180); ka(112,0); penpos113(0.4v,-90);
+ka(114,180); ka(115,90); ka(116,0); ka(117,90); ka(118,180); ka(119,-90);
+ka(120,90); ka(121,180); ka(122,-90); ka(123,-90); ka(124,180); ka(125,90);
+ka(126,0); ka(127,90); ka(128,180); ka(129,90); ka(130,0); ka(131,-90);
+ka(132,180); ka(133,90); ka(134,0); ka(135,-90); ka(136,44); ka(137,90);
+ka(138,-90); ka(13',-100); ka(142,0); ka(143,90); ka(144,0); penstroke
+z18e{down}...z40e...z41e... z41'e...z42e{right}...z43e...z44e... z45e{up};
+kouki(45,2,1.2); mpalla(41',1.8); penstroke z42e{right}...z46e{up}...
+z47e...z48e...z49e...z49'e...z50e{left}; kouki(50,7,2); penstroke
+z64e{(6.7u,0)-(0,5v)}... z63'e...z63e{up}...z62e...
+z61e{(0,6.4v)-(3.4u,0)}...z60e... z59e{(1.3u,9v)-(0,7.2v)}...z58e
+...z57e...z56e{(0,4.4v)-(9u,9v)} ...z55e{down}...
+z54e...z53e...z52e...z51e...{right}z42e; mpalla(60,1.5); mpalla(59,1.2);
+mpalla(61,1.2);  penstroke z65e{right}...z66e{up}...
+z67e...z68e...z69e...z70e...z70'e{left}; penstroke z71e{(7.4u,0)-(0,2.75v)}...
+z72e...z73e...z74e... z136e{(u,9v)-(9u,0.35v)}...z75e...
+z76e{(6.3u,9v)-(0,4.2v)}...z77e{down}; mpalla(75,1.8); kouki(77,3,1); penstroke
+z76e{(6.3u,9v)-(0,4.2v)}... z78e{up}...z79e{right}; penstroke
+z78e{up}...z80e{left}... z81e...z82e{right}; kouki(82,6,1); penstroke
+z76e{(6.3u,9v)-(0,4.2v)}... z83e...z83'e...z83''e...z84e...z85e...
+z86e{(0,8.6v)-(9u,4.5v)};  mpalla(83,1.2); mpalla(83',1.7); mpalla(83'',1.2);
+mpalla(86,1.2); penstroke z87e{right}...z88e{right}...
+z89e...z90e...z91e...z92e...z93e... z94e...z94'e{left}...z95e{left};
+kouki(95,5,1.5); penstroke z87e{right}... z96e{(9u,3.2v)-(5.2u,0)}---z97e...
+z98e{up}...z99e{(9u,4.3v)-(5.5u,0)}... z100e{right}...z101e...z102e{left};
+kouki(102,5,1); penstroke z96e{(9u,3.2v)-(5.2u,0)}...
+z96'e{up}...z103e...z104e...z105e... z106e...z107e{left}...z108e...z109e...
+z110e...z111e{left}; kouki(111,7,1.3); penstroke z107e{left}...z112e; filldraw
+z112r{up}... z113r{(9u,4.6v)-(3.4u,9v)} &  z113r{(9u,5.7v)-(0,0)}...z114r{down}
+& z114r--z114l & z114l{up}...z113l... z112l{down} & z112l--z112r & cycle;
+penstroke z114e{down}...z115e{left}; kouki(115,5,1); penstroke
+z59e{(0.8u,9v)-(0,6v)}... z116e...z117e...z118e...z119e{right}; kouki(119,6,1);
+penstroke z61e{(0,6.4v)-(3.4u,0)}... z120e...z121e...z122e{right};
+kouki(122,6,1.3); penstroke z61e{(0,6.4v)-(3.4u,0)}... z123e...z124e{down};
+kouki(124,3,1); penstroke z55e{down}...z125e...z126e{up}; kouki(126,2,1);
+penstroke z41'e{up}...z127e...z128e{down}; kouki(128,4,1.5); penstroke
+z57e{down}...z129e...z130e... z131e...z132e...z133e{left}; kouki(133,5,1.8);
+penstroke z56e{(0,4.4v)-(9u,9v)}... z134e{up}; kouki(134,2,1.3); penstroke
+z56e{(0,4.4v)-(9u,9v)}... z135e{right}; kouki(135,6,1); penstroke
+z136e{(u,9v)-(9u,0.35v)}... z137e{left}; kouki(137,7,1); penstroke
+z136e{(u,9v)-(9u,0.35v)}... z138e{right}; kouki(138,2,1);
+triaina(139,140,141,0.55); penstroke z13'e{(9u,7.2v)-(2.6u,9v)}...
+z142e...z143e{left}; kouki(143,7,1); kouki(94,5,1.3); mpalla(106,1.5);
+kouki(51,4,1.4); kouki(79,8,1.1); mpalla(58,1.2); penlabels(range 1 thru 145);
+enddef;
+
+
+.cmchar "The letter I";
+.beginchar("I",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);  the_letter_I; .endchar;
+
+.cmchar "The letter J";
+.beginchar("J",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);  the_letter_I; .endchar;
+
diff --git a/fonts/gothic/yinit/yinitK.mf b/fonts/gothic/yinit/yinitK.mf
new file mode 100644
index 0000000000..fe3562aa44
--- /dev/null
+++ b/fonts/gothic/yinit/yinitK.mf
@@ -0,0 +1,125 @@
+.cmchar "The letter K";
+.beginchar("K",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(2.2u,0.5v); z2=(2.8u,1.7v);  z3=(4.17u,4.05v); z2'=(4.05u,3.15v);
+z4=(3.92u,4.75v); z5=(2.85u,5.95v); z6=(4u,7.95v); z7=(4.6u,5.85v);
+z8=(5.95u,8.8v); z9=(7.15u,7.4v); z10=(7.65u,8.2v); z11=(7.15u,8.85v);
+z12=(6.85u,8.7v); z16=(1.95u,1.95v); z17=(0.75u,3v); z18=(1.5u,3.85v);
+z19=(2.3u,3.2v); z20=(1.8u,2.7v); z21=(1.45u,2.95v); z22=(1.6u,3.2v);
+z23=(1.8u,3.15v); z27.2=(2.2u,4.7v); z24=(1.95u,3v); z25=(2.3u,1.7v);
+z26=(3.35u,3v); z27=(1u,4.2v); z28=(2.2u,5.6v); z28'=(3.1u,4.1v);
+z30=(6.6u,5.5v); z31=(7u,4.85v); z32=(7.85u,5.7v); z33=(7.5u,6.2v);
+z31'=(5.75u,4.15v); z34=(4.7u,3.1v); z35=(4.5u,2.5v); z36=(5.2u,1.9v);
+z37=(5.5u,2.4v); z38=(6.15u,3.45v); z39=(6.45u,1.95v); z40=(6.75u,1.35v);
+z41=(7.7u,1.5v); z42=(8.3u,2.2v); z43=(7.8u,2.7v); z44=(7.55u,2.4v);
+z45=(7.08u,0.5v); z46=(3.8u,4.9v); ka(1,-9); ka(2,-57); penpos3(0.8u,0);
+penpos4(uv,31); penpos5(uv,31); penpos6(1.5hair,-74); ka(7,120); ka(8,155);
+penpos9(2hair,-60); ka(10,0); ka(11,90); ka(12,180); penpos2'(0.45uv,-30);
+penpos16(0.85uv,70); penpos17(0.3u,0); penpos18(1.5hair,-90); ka(19,180);
+ka(20,90); penpos21(1.5hair,0); penpos22(0.3v,-90); penpos23(0.2uv,-135);
+ka(24,-135);  ka(25,-47); penpos26(0.3u,0); ka(27,-67); ka(28,175);
+penpos27.2(0.9uv,59); ka(28',-20); penpos30(0.8uv,-150); ka(31,120); ka(32,180);
+ka(33,-90); z33'=z33; ka(33',90); ka(31',120); ka(34,160); ka(35,180);
+ka(36,-90); ka(37,0); penpos38(0.8uv,-150); penpos39(0.8u,180);
+penpos40(0.9uv,-132.5); penpos41(1.5hair,-90); ka(42,0); ka(43,90); ka(44,180);
+ka(45,0); ka(46,-53); filldraw z1r{(3.5u,9v)-(2.1u,0)}...
+z2r{(9u,6.7v)-(0.7u,0)}... (4.55u,4.1v){up}... z4r{(0,8.7v)-(7.25u,0)} &
+z4r--z4l & z4l{(7.25u,0)-(0,8.7v)}... (3.8u,3.55v){down}...
+z2l{(0.7u,0)-(9u,6.7v)} & z2l{(0.8,9v)-(3.2u,0)}... z16r...z17r{up} & z17r--z17l
+& z17l{down}... z16l...flex(z16l,(2.2u,1.2v),z1l)  & z1l--z1r & cycle; penstroke
+z4e{(0,8.7v)-(7.25u,0)}...z5e... z6e{(6u,9v)-(0,6.6v)}; penstroke
+z17e{up}...z18e...z19e... z20e...z21e...z22e...z23e...z24e; filldraw
+z25r{(9u,8.2v)-(0.7u,0)}... z26r{up}...(3.55u,3.45v)...
+z27.2r...z28l{(1.8u,9v)-(2.8u,0)} & z28l--z28r & flex(z28r,(1.9u,4.8v),z27l) &
+z27l--z27r & z27r{(9u,7v)-(0,3.8v)} ...z27.2l...(3.1u,3.45v)...z26l{down}...
+z25l{(0.7u,0)-(9u,8.2v)} & z25l--z25r & cycle; filldraw z6r{(6u,9v)-(0,6.6v)}...
+(5.7u,7.4v)...z7r{z7-z9} ...z28'l{(1.4u,0)-(5.1u,9v)} & z28'l--z28'r &
+z28'r{(5.1u,9v)-(1.4u,0)}... z7l---z9r...z10r{up} & z10r--z10l &
+z10l{down}...z9l... (6.2u,7.75v)...z8l{(6.05u,9v)-(1.8u,0)} & z8l--z8r &
+z8r{(1.8u,0)-(6.05u,9v)}... (5.5u,8.3v)... z6l{(0,6.6v)-(6u,9v)} & z6l--z6r &
+cycle; penstroke z10e{up}...z11e...z12e{down}; kouki(12,4,1.5); filldraw
+z28'r{(5.1u,9v)-(1.4u,0)}... z46r... z30r{(8.7u,0)-(4.4u,9v)}... z31'r{z31'-z31}
+& z31'r--z31'l & z31'l{z31-z31'}...z31l...z32l{up}... z33l{left} & z33l--z33r &
+z33r{right}... z32r...z31r{z31'-z31} &  z31r{up}...z30l{(5u,9v)-(9u,2.2v)}...
+z46l...z28'l{(1.4u,0)-(5.1u,9v)} & z28'l--z28'r & cycle; filldraw
+z31'r{z31'-z31}... z34r{(3.4u,0)-(7.2u,9v)}... z35r{down} & z35r--z35l &
+z35l{up}... z34l{(7.2u,9v)-(3.4u,0)}... z38r...z39r{down}...z40r...z45l{down} &
+z45l--z45r & z45r{up}... z41r{(9u,2.1v)-(4.6u,0)}... z42r{up} & z42r--z42l &
+z42l{down}... z41l{(4.6u,0)-(9u,2.1v)}... z40l...z39l{up}...z38l... z31'l{left}
+& z31'l--z31'r & cycle; kouki(33',7,1.5); penstroke z35e{down}...z36e...z37e{up};
+kouki(37,1,2); penstroke z42e{up}...z43e...z44e{down}; kouki(44,4,1.8);
+z50=(2.45u,0.4v); z51=(3.25u,1.75v); z52=(4.8u,4.1v); z53=(4.3u,5.46v);
+z54=(3.6u,6.9v); z55=(4.6u,7.75v); z56=(5.3u,7v); z57=(4.7u,6.45v);
+z58=(4.3u,6.85v); z59=(4.5u,7.15v); z60=(2.65u,0.2v); z61=(4.4u,1.75v);
+z62=(5.7u,0.8v); z63=(6.55u,0); z64=(6.85u,0.3v); z65=(4.9u,0);
+z66=(4.15u,0.65v); z67=(4.6u,1.25v); z68=(4.95u,v); z69=(4.775u,0.73v);
+z70=(4.73u,0.53v); z71=(5u,0.35v); z72=(2.1u,6.5v); z73=(4.6u,9.05v);
+z73'=(6u,8.6v); z74=(6.8u,7.2v); z75=(5.5u,5.5v); z76=(2.2u,8.9v);
+z77=(0.7u,7.5v); z78=(1.4u,5v); z79=(0.8u,4.2v); z80=(0.3u,4.6v); z81=(0.6u,5v);
+z82=(1.8u,5.4v); z83=(2.1u,5.8v); z84=(3.2u,6.8v); z85=(2.25u,8v);
+z86=(0.25u,8.5v); z87=(0.7u,9v); z88=(1.1u,8.7v); z89=(0.8u,8.4v);
+z90=(1.4u,7.3v); z91=(1.9u,6.7v); z92=(2.25u,7v); z93=(2.15u,7.2v);
+z94=(1.95u,7.4v); z95=(2.05u,7.55v); z96=(3.8u,8.35v); z97=(3.45u,8.05v);
+z98=(3u,8.55v); z99=(3.65u,9.1v); z100=(4.95u,7.6v); z101=(2.9u,3.2v);
+z102=(5u,0.8v); z103=(7.2u,2.4v); z104=(6.15u,4.14v); z105=(8.2u,5.75v);
+z106=(7.4u,6.55v); z107=(6.9u,6.1v); z108=(7.3u,5.7v); z108'=(7.55u,5.85v);
+z109=(8u,6.65v); z110=(8.6u,7.3v); z111=(8.15u,7.8v); z112=(7.8u,7.4v);
+z113=(8.1u,7.1v); z113'=(8.3u,7.3v); z114=(7.9u,8.6v); z115=(8.2u,9v); z116=z30;
+z117=(7.6u,3.8v); z118=(8.15u,4.3v); z119=(7.6u,4.8v); z120=(7.4u,4.5v);
+z121=(1.7u,3.05v); z122=(0.2u,1.8v); z123=(0.8u,0.35v); z124=(0.5u,0);
+z125=(0.2u,0.3v); z126=(1.2u,0.75v); z126.1=(2u,1.5v); z126.2=(1.4u,2.25v);
+z126.3=(0.8u,1.7v); z126.4=(1.1u,1.25v); z127=(7.4u,0.2v); z128=(7.55u,0.9v);
+z129=(8.6u,2.2v); z130=(7.9u,3v); z131=(8u,1.15v); z132=(8.5u,0.5v);
+z133=(8.1u,0.1v); z134=(7.7u,0.5v); z135=(7.9u,0.8v); z136=(8.15u,0.7v);
+z137=(5u,5.35v); z138=(5.85u,4.7v); z139=(5.4u,4.2v); z140=(5u,4.6v);
+z141=(5.3u,4.95v); z142=(5.5u,4.8v); z143=(8u,3.65v); z144=(8.35u,3.5v);
+z145=(3.1u,0.65v); z146=(3.35u,0.55v); z147=(3.6u,0.5v); z148=(3.75u,0.8v);
+z150=(1.2u,7.5v); z151=(1.85u,6.35v); z152=(0,6.4v); ka(50,-9); ka(51,-50);
+ka(52,0); ka(53,37); ka(54,0); ka(55,-90); ka(56,180); ka(57,90); ka(58,0);
+ka(59,-90);  ka(60,-9); ka(61,-90); ka(62,180); ka(63,-90); ka(64,0); ka(65,90);
+ka(66,0); ka(67,-90); penpos68(0.3u,180); penpos69(0.35uv,141);
+penpos70(0.2u,180); ka(71,-114); ka(72,0); ka(73,-90); ka(73',-125); ka(74,180);
+ka(75,90); ka(76,90); ka(77,180); ka(78,180); ka(79,90); ka(80,0); ka(81,-90);
+mpalla(82,1.3); ka(83,-90); ka(84,0); ka(85,90); ka(86,0);  ka(87,-90);
+ka(88,180); ka(89,90); ka(90,180); ka(91,-90); penpos92(0.2u,0);
+penpos93(0.3uv,53); penpos94(.15u,0); ka(95,-45); ka(96,180); z96'=z96;
+ka(96',0); ka(97,90); ka(98,0); ka(99,-90); ka(100,180); ka(101,180);
+ka(102,-90); ka(103,0); ka(104,90); z104'=z104; ka(104',-90); ka(105,0);
+ka(106,90); ka(107,180); ka(108,-90); ka(108',-22); ka(109,-90); ka(110,0);
+ka(111,90); ka(112,180); ka(113,-90); ka(113',0); ka(114,0); ka(115,-90);
+ka(116,180); ka(117,-90); ka(118,0); ka(119,90); ka(120,180); ka(121,90);
+ka(122,180); ka(123,180); ka(124,90); ka(125,0); ka(126,-90); ka(126.1,0);
+ka(126.2,90); ka(126.3,180); ka(126.4,-90); ka(127,0); ka(128,-40); ka(129,0);
+ka(130,90); ka(131,-90); ka(132,180); ka(133,90); ka(134,0); ka(135,-90);
+ka(136,180); ka(137,-90); ka(138,180); ka(139,90); ka(140,0); ka(141,-90);
+ka(142,180); ka(143,-90); ka(144,180); penpos145(0.15v,-90);
+penpos146(0.3uv,-124); penpos147(0.2v,-90); ka(148,0); penstroke
+z50e{(3.5u,9v)-(2.1u,0)}... z51e{(9u,6.4v)-(1.1u,0)}...z52e{up}...
+z53e...z54e{up}... z55e...z56e...z57e...z58e...z59e{right}; kouki(59,8,1.7);
+penstroke z60e{(3.5u,9v)-(2.1u,0)}... z61e...z62e{down}...z63e...z64e{up};
+kouki(64,1,1.2); penstroke z62e{down}...z65e...z66e...
+z67e{right}...z68e{down}...z69e... z70e{down}...z71e; z28''=z28; ka(28'',0);
+penstroke z28''e...z72e...z73e...z73'e...z74e
+...z75e...z58e...z76e...z77e{down}...z78e ...z79e...z80e...z81e{right};
+mpalla(76,1.2); mpalla(77,1.4); triaina(150,151,152,0.5); kouki(81,8,1.2);
+penstroke z77e{down}...z83e...z84e... z85e{left}...z86e....z87e...z88e...z89e;
+kouki(89,5,1); penstroke z85e{left}... z90e...z91e...z92e{up}...z93e...
+z94e{up}...z95e; kouki(96',1,2); z51''=z51'=z51; ka(51',-145); ka(51'',35);
+penstroke z96e{down}...z97e...z98e... z99e...z100e...z101e...z51'e...
+z102e...z103e...z104e{left}; penstroke z104'e{right}...z105e...z106e...
+z107e...z108e...z108'e; penstroke z73'e{(9u,6.4v)-(5.5u,9v)}...
+z109e...z110e...z111e...z112e... z113e...z113'e{up}; kouki(113,1,1.2); penstroke
+z111e{left}...z10e{up}... z115e{right}; kouki(115,8,1.1); z30'=z30; ka(30',180);
+penstroke z30'e{down} ...z117e...z118e...z119e... z120e{down}; kouki(120,4,1.6);
+penstroke z51''e...z121e...z122e...z123e ...z124e...z125e{up}; kouki(125,2,1);
+penstroke z122e{down}...z126e... z126.1e...z126.2e...z126.3e... z126.4e{right};
+kouki(126.4,6,1); penstroke z127e{up}...
+z128e{(u,v)-(0,0)}...z129e...z130e{left}; penstroke z128e{(u,v)-(0,0)}...z131e...
+z132e...z133e...z134e...z135e... z136e{down}; kouki(136,3,1); penstroke
+z28'e{(5.1u,9v)-(1.4u,0)}... z137e...z138e...z139e...z140e...
+z141e...z142e{down}; kouki(142,3,1.1); penstroke z103e...z143e...z144e{down};
+kouki(144,3,1); penstroke z60e{(3.5u,9v)-(2.1u,0)}...
+z145e...z146e{(4.5u,0)-(0,2.35v)}... z147e{right}...z148e; penlabels(range 1
+thru 150);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitL.mf b/fonts/gothic/yinit/yinitL.mf
new file mode 100644
index 0000000000..b88fe0bf03
--- /dev/null
+++ b/fonts/gothic/yinit/yinitL.mf
@@ -0,0 +1,107 @@
+.cmchar "The letter L";
+.beginchar("L",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(2.15u,1.45v); z2=(2.3u,1.7v); z3=(2.1u,1.95v); z4=(1.7u,1.9v);
+z5=(1.55u,2.3v); z6=(2.1u,2.65v); z7=(2.9u,1.7v); z8=(1.9u,0.8v); z9=(0.75u,2v);
+z10=(2.3u,3.4v); z11=(3.65u,2.75v); z12=(4.9u,1.4v); z13=(6.35u,v);
+z14=(7.9u,2.5v); z15=(7.1u,3.4v); z16=(6.4u,3v); z17=(6.45u,2.6v);
+z18=(6.85u,2.45v); z19=(6.8u,2.05v); z20=(6.5u,1.9v); z21=(4.05u,2.25v);
+z22=(4.2u,2.05v); z23=(4.3u,1.9v); z24=(4.4u,1.85v); z25=(4.4u,1.7v);
+z26=(4.6u,1.6v); z24'=(5.1u,3.3v); z25'=(3.85u,4.55v); z26'=(3.75u,5.2v);
+z27=(2.35u,3.95v); z28=(5.8u,4v); z29=(5.55u,4.8v); z30=(4.3u,5.7v);
+z31=(4.05u,6.5v); z32=(4.5u,7.4v); z33=(6.45u,8.3v); z34=(7.95u,7.25v);
+z35=(5u,5.25v); z36=(8.35u,8v); z37=(7.65u,8.7v); z38=(7.1u,8.2v);
+z39=(7.45u,7.7v); z40=(7.8u,8v); ka(1,-53); penpos2(0.2u,0); penpos3(0.45v,90);
+penpos4(0.6v,90); penpos5(0.3u,0); penpos6(1.2hair,-90); ka(7,180); ka(8,90);
+penpos9(1.2hair,0); penpos10(0.55v,-90); penpos11(0.85uv,-139);
+penpos12(0.9uv,-138); penpos13(0.5v,-90); penpos14(1.2hair,0); ka(15,90);
+penpos16(0.3u,180); penpos17(0.55uv,-123); penpos18(0.55uv,-121);
+penpos19(0.15u,180); ka(20,90); ka(21,-21.5); ka(22,-52); ka(23,-53);
+ka(24,-55); ka(25,-59); ka(26,-59); penpos24'(0.2u,0); penpos25'(0.75uv,69);
+ka(26',180); ka(27,-60);  penpos28(0.4u,0); penpos29(0.85uv,46);
+penpos30(0.9uv,32); penpos31(0.55u,0); penpos32(1.5hair,-57); ka(33,156);
+ka(34,-56); ka(36,0); ka(37,90); ka(38,180); ka(39,-90); ka(40,0); ka(35,125);
+penstroke z1e...z3e{left}... z4e...z6e...z7e...z8e...
+z9e...z10e...z11e...z12e...z13e... z14e...z15e... z17e{(9u,1.3v)-(0,6.2v)}...
+z18e{(9u,1.3v)-(0,6.2v)} ...z20e{left}; filldraw z22l{(9u,6v)-(2u,0)}...
+z24'l...z25'l{(0,4.6v)-(9u,3.6v)}... z27r{z27-z34} & z27r--z27l &
+z27l{z34-z27}...z26'r{up} & z26'r--z26'l & z26'l{down}...
+z25'r{(9u,2.5v)-(0,6.75v)}... z24'r...z22r{(2u,0)-(9u,6v)} & z22r--z22l & cycle;
+penstroke z23e{(9u,5v)-(1.6u,0)}... z28e...z29e...z30e...z31e...
+z32e{(7.5u,9v)-(0,5v)}; filldraw z32r{(7.5u,9v)-(0,5v)}...
+(6.25u,7.1v)...z35r{z35-z34} & z35r--z35l & z35l---z34r...z36r{up} & z36r--z36l
+& z36l{down}...z34l{z35-z34} ...(6.6u,7.35v)...z33l{z33-z35} & z33l--z33r &
+z33r{z35-z33}... (6u,7.9v)...z32l{(0,5v)-(7.5u,9v)} & z32l--z32r & cycle;
+penstroke z36e{up}...z37e...z38e... z39e...z40e{up}; kouki(40,1,1.5);
+z41=(2.85u,4.15v); z42=(0.4u,2.5v); z43=(0.9u,0.8v); z44=(1.9u,0.5v);
+z45=(3.15u,1.7v); z46=(2u,2.9v); z47=(1.05u,2v); z48=(1.6u,1.2v);
+z49=(1.9u,1.1v); z50=(2.6u,1.8v); z51=(2u,2.4v); z41'=(1.3u,3.85v);
+z45'=(2.8u,2.6v);  z52=(3.4u,0.5v); z53=(2.9u,0.1v); z54=(4.45u,0.15v);
+z54'=(3.7u,1.45v); z55=(6.1u,0.3v); z56=(7.3u,0.6v); z57=(8.4u,2.5v);
+z56'=(8u,1.3v); z58=(8.2u,3.4v); z59=(6.7u,4.3v); z60=(5.2u,3v);
+z61=(6.45u,1.6v); z62=(7.4u,2.5v); z63=(6.8u,3v); z64=(8.6u,0.3v); z65=(8.3u,0);
+z66=(8u,0.25v); z67=(8.5u,4v); z68=(6.15u,3v); z69=(6.8u,4.3v); z70=(7.9u,5.45v);
+z71=(8.7u,5.8v); z72=(8.6u,4.7v); z73=(8u,4.15v); z74=(7.6u,4.5v);
+z75=(5.9u,3.1v); z75'=(6.4u,4.2v); z76=(5.55u,5.65v); z77=(4.8u,7.2v);
+z78=(6.5u,8.8v); z79=(8u,7.2v); z80=(6.8u,5.85v); z81=(5.6u,7v);
+z82=(6.5u,7.9v); z83=(6.9u,7.6v); z84=(8.35u,8v); z85=(8.9u,8.35v);
+z86=(6.7u,5.5v); z87=(5.15u,8.25v); z88=(3.5u,8.7v); z89=(2.35u,8.4v);
+z90=(0.9u,7.7v); z91=(0.35u,8.4v); z92=(0.8u,8.9v); z93=(1.25u,8.75v);
+z94=(1.7u,8.65v); z95=(1.3u,8.4v); z95'=(0.95u,8.15v); z96=(u,6.4v);
+z97=(1.85u,5v); z98=(u,5.85v); z99=(0.35u,6.15v); z100=(0.3u,5.15v);
+z101=(0.9u,4.55v); z102=(1.35u,5v); z103=(1.05u,5.35v); z104=(4.75u,6.25v);
+z105=(3.1u,7.7v); z106=(2.5u,7.5v); z107=(2.05u,6.6v);  z108=(2.25u,6v);
+z109=(3.2u,5.65v); z110=(0,0.65v); z111=(0.55u,0); z112=(u,0.3v);
+z113=(0.65u,0.8v); z114=(0.45u,0.7v); z115=(4.6u,2.9v); z120=(7.7u,1.9v);
+z121=(7.9u,2.5v); z122=(8.85u,1.4v);  z130=(-0.2u,3.4v); z131=(0.3u,4.3v);
+z132=(1.1u,2.7v);  z140=(3.5u,7v); z141=(2.9u,7.2v); z142=(4u,8.2v);
+z150=(3u,7v); z151=(3.7u,6.7v); z152=(1.9u,5v); z160=(2.1u,7.15v);
+z161=(1.8u,6.2v); z162=(0.25u,7.7v); ka(41,90); ka(41',123); ka(42,174);
+ka(43,-124); ka(44,-90); ka(45,0); ka(45',50); ka(46,90); ka(47,180);
+ka(48,-113); ka(49,-90); ka(50,0); ka(51,90); ka(52,180); ka(53,90); ka(54,-90);
+ka(55,-87);  ka(54',-139); ka(56,-62); ka(56',-28); ka(57,0); ka(58,23);
+ka(59,90); ka(60,180); ka(61,-90); ka(62,0); ka(63,90); ka(64,180); ka(65,90);
+ka(66,0); ka(67,-90); ka(68,-36); ka(69,-17); ka(70,-90); ka(71,0); ka(72,180);
+ka(73,90); ka(74,0); ka(75,-35); ka(75',0); ka(76,50); ka(77,0); ka(78,-90);
+ka(79,180); ka(80,90); ka(81,0); ka(82,-90); ka(83,-153);  ka(84,-90); ka(85,0);
+ka(86,0); ka(87,61); ka(88,90); ka(89,121); ka(90,90); ka(91,0); ka(92,-90);
+ka(93,-134); ka(94,-90); ka(95,180); ka(95',90); ka(96,180); ka(97,0); ka(98,90);
+ka(99,0); ka(100,180); ka(101,-90); ka(102,0); ka(103,90); ka(104,0);
+ka(105,90); ka(106,128); ka(107,180); ka(108,-129);  ka(109,-112); ka(110,180);
+ka(111,-90); ka(112,0); ka(113,90);  ka(114,180); ka(115,0); penstroke
+z21e{(8.3u,9v)-(2.7u,0)}... z41e{left}...z41'e...z42e...z43e... z44e...z45e...
+z45'e{(0,5.4v)-(5.4u,0)}...z46e... z47e...z48e...z49e...z50e...z51e;
+mpalla(42,1.8); z45''=z45'; ka(45'',-134); penstroke z45''e{(5.4u,0)-(0,5.4v)}...
+z52e...z53e{left}; kouki(53,5,1); penstroke z54'e{(5u,0)-(0,5.8v)}...
+z54e{right}; kouki(54,6,1); penstroke z45''e{(5.4u,0)-(0,5.4v)}...
+z54'e{(5u,0)-(0,5.8v)}... z55e...z56e{(9u,1.4v)-(6u,0)}...
+z56'...z57e...z58e...z59e...z60e... z61e...z62e...z63e; mpalla(56',1.5);
+mpalla(55,1.2); triaina(120,121,122,0.6); penstroke
+z56e{(9u,1.4v)-(6u,0)}...z64e...z65e... z66e{up}; kouki(66,2,1.2); penstroke
+z58e...z67e{right}; kouki(67,8,1.1); penstroke z26e{(9u,4.3v)-(2u,0)}...
+z68e...z69e...z70e{right}...z71e{up}; kouki(71,1,1.6); penstroke
+z70e{right}...z72e...z73e... z74e{up}; kouki(74,2,2); z77'=z87; ka(77',-39);
+z76'=(6.2u,5v); ka(76',30); penstroke z25e{(9u,4.3v)-(2u,0)}...
+z75e...z75'e...z76'e... z76e...z77e...z77'e...
+z78e...z79e...z80e...z81e...z82e... z83e{down}; kouki(83,3,1); z84'=(7.5u,8.4v);
+ka(84',-121); penstroke z84'e...z84e...z85e{up}; kouki(85,1,1.5); penstroke
+z75'e{(7.8u,9v)-(5.2u,0)}... z86e...z87e...z88e...
+z89e{(0,7v)-(3.4u,9v)}...z90e...z91e... z92e...z93e{(9u,2v)-(u,9v)}...
+z94e{right}; kouki(94,6,1.3); penstroke z93e{(9u,2v)-(u,9v)}...
+z95e...z95'e{left}; kouki(95',5,1.3); mpalla(89,1.6); z41''=z41; ka(41'',-90);
+penstroke z89e{(0,7v)-(3.4u,9v)}... z96e...z41''e{right}; mpalla(41',1.5);
+z41.2=z41'; ka(41.2,-55); penstroke z41.2... z97e...z98e{left}...z99e{up};
+kouki(99,2,1.2); penstroke z98e{left}...z100e...z101e... z102e...z103e{left};
+kouki(103,7,1.8); penstroke z41''e{right}...z104e...
+z105e...z106e...z107e...z108e--- z109e; z48'=z48; ka(48',66); penstroke
+z48'e{(0,2v)-(4u,0)}... z110e{down}...z111e...z112e...z113e ...z114e{down};
+kouki(114,4,1.3); penstroke z21e{(9u,6v)-(1.7u,0)}... z115e{up};
+kouki(115,1,1.1); triaina(130,131,132,0.4); triaina(140,141,142,0.5);
+triaina(150,151,152,0.39); triaina(160,161,162,0.5); z107.1=(3.2u,5.65v);
+z107.2=(3.6u,5.9v); z107.3=(3.95u,5.4v); z107.4=(3.4u,5.25v); filldraw
+z107.1{z107.3-z107.1}... z107.4{z107.4-z107.2} &  z107.4{z107.2-z107.4}...
+z107.3{z107.3-z107.1} & z107.3{z107.1-z107.3}... z107.2{z107.2-z107.4} &
+z107.2{z107.4-z107.2}... z107.1{z107.1-z107.3} & cycle; penlabels(range 1 thru
+170);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitM.mf b/fonts/gothic/yinit/yinitM.mf
new file mode 100644
index 0000000000..7fead3879f
--- /dev/null
+++ b/fonts/gothic/yinit/yinitM.mf
@@ -0,0 +1,123 @@
+.cmchar "The letter M";
+.beginchar("M",8.9u#+1mm#,8.7m*u#,0);
+.adjust_fit(0,0); 
+z1=(2u,0.6v); z2=(2.5u,1.5v); z3=(1.95u,1.65v); z4=(0.65u,2.35v);
+z5=(0.45u,3.05v); z6=(1.4u,4.1v); z7=(2.2u,3.4v); z8=(1.65u,2.8v);
+z9=(1.2u,3.15v); z10=(5.25u,0.7v); z19=(5.9u,1.45v); z11=(5.2u,1.7v);
+z12=(3.7u,2.4v); z13=(3.4u,3.1v); z14=(4.35u,4.3v); z15=(5.3u,3.5v);
+z16=(4.65u,2.8v); z17=(4.05u,3.3v); z18=(8.15u,0.55v); z29=(7.85u,1.45v);
+z20=(8.8u,1.5v); z21=(9.5u,2.3v); z22=(6.6u,2.2v); z23=(6.2u,2.65v);
+z24=(5.8u,2.35v); z25=(6u,2v); z26=(8.85u,3.05v); z27=(8.3u,2.5v);
+z28=(8.7u,2.1v); z29=(7.85u,1.45v); z30=(7.37u,2.3u); z31=(7.1u,4.8v);
+z32=(7.4u,5.75v); z33=(8.05u,6.45v); z12'=z12; z34=(5.1u,5.45v);
+z35=(4.05u,7.3v); z36=(1.95u,7.2v); z37=(0.9u,6.85v); z38=(0,7.7v);
+z39=(0.6u,8.2v); z40=(0.95u,8.1v); z41=(1.4u,7.85v); z42=(1.65u,8.3v);
+z43=(1.7u,1.8v); z44=(3.15u,4.45v); z45=(2.45u,5.6v); z46=(u,5.3v);
+z47=(2.55u,6.4v); z48=(5.8u,3.45v); z49=(5.65u,3.7v); z50=(6.05u,4.05v);
+z51=(6.5u,3.5v); z52=(5.65u,2.8v); z53=(4.1u,5v); z54=(5u,7.2v);
+z55=(6.3u,7.75v); z56=(7.15u,7.35v); z57=(8.1u,6.75v); z58=(9u,7.6v);
+z59=(8.5u,8.1v); z60=(8.2u,7.8v); ka(1,0); ka(2,-58); penpos3(0.85uv,46);
+penpos4(0.75uv,53.5); penpos5(0.35u,0); ka(6,-90); ka(7,180); ka(8,90); ka(9,0);
+ka(10,0); ka(19,-58); penpos11(uv,49); penpos12(0.65uv,42.5); penpos13(0.3u,0);
+ka(14,-90); ka(15,180); ka(16,90); ka(17,0); ka(12',-47); ka(18,0);
+penpos20(0.2uv,-57); ka(21,0); ka(26,90); ka(27,180); ka(28,-90); ka(22,0);
+ka(23,90); ka(24,180); ka(25,-90); penpos29(0.85uv,56.5); penpos30(0.75u,0);
+penpos31(0.65u,0); penpos32(0.3uv,-34); ka(33,-58);  penpos34(0.8u,0);
+penpos35(0.9uv,61); penpos36(0.8uv,121); penpos37(0.6v,90); ka(38,0);
+penpos39(0.3v,-90);  penpos40(0.47uv,-138); penpos41(0.15v,-90); ka(42,0);
+ka(43,-39); penpos44(0.55u,0); penpos45(0.8uv,35); ka(47,180); ka(46,-61); 
+ka(48,90); ka(49,0); ka(50,-90);  ka(51,180); ka(52,90); ka(53,0);
+penpos54(1.5hair,-40); penpos55(0.4v,-90); penpos56(0.9uv,-140);
+penpos57(0.3v,-90); ka(58,0); ka(59,90); ka(60,180); filldraw z1l{up}...
+z3l{(0,2.6v)-(3.5u,0)}... z4l{(0,2.5v)-(2.3u,0)}...
+z5l{(1.3u,9v)-(0,1.7v)}...z6l{right} & z6l--z6r & z6r{left}...
+z5r{(1.6u,0)-(0,5.1v)}...z4r... z3r{(4.8u,0)-(0,3.6v)}... z2l{(3.15u,0)-(0,7v)}
+&  z2l{(9u,5.6v)}...z12'l{(9u,7v)-(1.1u,0)} & z12'l--z12'r & 
+z12'r{(1.1u,0)-(9u,7v)}...z2r{(-9u,-5.6v)} ...z1r{down} & z1r--z1l & cycle;
+penstroke z6e{right}...z7e...z8e... z9e{up}; kouki(9,2,2); filldraw
+z43r{(8u,9v)-(0.2u,0)}... z44r...(3.2u,5.3v)...z45r...z47l{up} & z47l--z47r &
+z47r{(0,3.5v)-z47}... z46l{z46-(9u,9v)} & z46l--z46r &
+z46r{(9u,8v)-z46}...z45l...z44l... z43l{(0.2u,0)-(8u,9v)} & z43l--z43r & cycle;
+penstroke z12'e{(9u,7v)-(1.1u,0)}... z34e...z35e...z36e...z37e...z38e...
+z39e...z40e...z41e...z42e{up}; filldraw z10l{up}...z11l...z12l...
+z13l...z14l{right} & z14l--z14r  & z14r{left}...z13r...z12r...z11r
+...z19l{(6.4u,0)-(3u,9v)} &  z19l{(9u,3.3v)-(3.4u,0)}...z22l{up} & z22l--z22r &
+z22r{down}... z19r{(3.4u,0)-(9u,3.3v)}... z10r{down} & z10r--z10l & cycle;
+penstroke z14e{right}...z15e...z16e... z17e{up}; kouki(17,2,1.5); penstroke
+z22e{up}...z23e...z24e... z25e{right}; kouki(25,6,1.1); filldraw
+z18l{up}...z29l... (7.1u,1.8v)...z30l... z31l...z32l...z33l{(9u,6.8v)-z33} &
+z33l--z33r & z33r{z33-(9u,6.8v)}... z32r...z31r...z30r...z29r...z20l ...z21l{up}
+& z21l--z21r &  z21r{down}...z20r...z18r{down} & z18r--z18l & cycle; penstroke
+z21e{up}...z26e...z27e... z28e{right}; kouki(28,6,1.8); penstroke
+z48e{left}...z49e...z50e... z51e...z52e...z53e{up}...z54e...
+z55e...z56e{(9u,5.2v)-(5.7u,9v)} ...z57e...z58e...z59e... z60e{down};
+kouki(60,4,1.3);  mpalla(53,1.4); z48'=z48; ka(48',-90); kouki(48',6,1.2);
+z61=(1.75u,0.35v); z62=(1.1u,1.3v); z63=(0.6u,0.7v); z64=(1.1u,0.3v);
+z65=(1.5u,0.7v); z66=(1.1u,v); z67=(0.95u,0.85v); z68=(-0.2u,3v);
+z69=(-0.15u,3.5v); z70=(0.7u,4.5v); z71=(1.3u,4.6v); z72=(2.4u,3.6v);
+z73=(1.6u,2.5v); z74=(0.9u,3.3v); z75=(1.1u,3.7v); z76=(2.2u,0.4v);
+z77=(4u,2.15v); z78=(5.85u,5.5v); z79=(5.7u,6.5v); z80=(5u,7.75v);
+z81=(3.15u,8.55v); z82=(0.05u,6.1v); z83=(2.2u,3.85v); z84=(3.8u,5.5v);
+z85=(2.6u,6.75v); z86=(1.5u,6v); z87=(2.2u,4.9v); z88=(3u,5.7v);
+z89=(0.4u,4.5v); z90=(-0.1u,5.1v); z91=(0.1u,5.5v); z92=(0.5u,6.15v);
+z93=(0.1u,6.6v); z94=(-0.2u,6.3v); z95=(0.45u,5.6v); z96=(0.8u,5.2v);
+z97=(0.5u,4.75v); z98=(0.6u,5.8v); z99=(0,7.7v); z100=(-0.5u,8.25v);
+z101=(-0.2u,8.6v);  z102=(3.8u,1.3v); z103=(4.8u,0.45v); z104=(4.2u,-0.2v);
+z105=(3.65u,0.3v); z106=(4u,0.7v); z107=(4.2u,0.6v); z108=(4.1u,0.2v);
+z109=(4.4u,0.15v); z110=(4.7u,8.55v); z111=(4.3u,8.2v); z112=(4.5u,7.9v);
+z113=(6.6u,8.45v); z114=(7.6u,8v); z115=(8.8u,7v); z114'=(5.5u,8.5v);
+z116=(9.5u,7.9v); z117=(8.65u,8.6v); z118=(7.4u,7v); z119=(5.25u,0);
+z120=(7.4u,2.05v); z121=(8.4u,4.1v); z122=(7.6u,6.1v); z123=(6.6u,6.4v);
+z124=(5.45u,5.5v); z125=(6.4u,4.55v); z126=(7.15u,5.2v); z127=(6.5u,5.8v);
+z128=(6.15u,5.5v); z129=(6.5u,1.15v); z130=(7.25u,0.85v); z131=(6.8u,-0.15v);
+z132=(6.3u,0.3v); z133=(6.65u,0.65v); z134=(6.7u,0.35v); z135=(6.9u,0.2v);
+z136=(8.5u,-0.05v); z137=(9.15u,0.6v); z138=(8.85u,0.95v); z139=(8.7u,1.8v);
+z140=(7.9u,2.7v); z141=(7.7u,4.3v); z141'=(7.9u,5.8v); z142=(8.8u,6.2v);
+z143=(9.5u,5.6v); z144=(9.3u,5.15v); z145=(8.7u,5.4v); z146=(8.8u,4.5v);
+z147=(8.6u,4.95v); ka(61,0); ka(62,90); ka(63,180); ka(64,-90); ka(65,0);
+ka(66,90);  ka(67,180); ka(68,0); ka(69,-17.5);  ka(70,-65); ka(71,-90);
+ka(72,180);  ka(73,90); ka(74,0); ka(75,-50);  ka(76,-30); ka(77,-50); ka(78,0); 
+ka(79,15); ka(80,45); ka(81,90);  ka(82,180); ka(83,-90); ka(84,0);  ka(85,90);
+ka(86,180); ka(87,-90);  ka(88,0); ka(89,90); ka(90,0);  ka(91,-51); ka(92,0);
+ka(93,90);  ka(94,180); ka(95,-90); ka(96,180);  ka(97,90); ka(99,90);
+ka(100,0);  ka(101,-90); ka(102,-90); ka(103,180);  ka(104,90); ka(105,0);
+ka(106,-90);  penpos107(0.25uv,-160); penpos108(0.222uv,-157); ka(114,-146);
+ka(109,-90); ka(110,90); ka(111,180);  ka(112,-90); ka(113,-90); ka(115,-90); 
+ka(116,0); ka(117,90); ka(118,180);  ka(119,-23); ka(120,-42); ka(121,0); 
+ka(122,48); ka(123,90); ka(124,180);  ka(125,-90); ka(126,0); ka(127,90); 
+ka(128,180); ka(129,-90); ka(130,-139);  ka(131,90); ka(132,0); 
+penpos133(0.2uv,-134);  penpos134(0.2u,180);  ka(135,-90); ka(136,-90); 
+ka(137,0); ka(138,90); ka(139,90);  ka(140,0); ka(141,0); ka(141',-29); 
+ka(142,-90); ka(143,180); ka(144,131);  ka(145,0); ka(146,180);  penstroke
+z61e{up}...z62e{left}... z63e...z64e...z65e... z66e...z67e{down};
+kouki(67,4,1.1); penstroke z62e{left}...z68e...z69e...
+z70e...z71e...z72e...z73e...z74e... z75e{(7u,9v)-z75}; z88'=z47+(0,-0.1v);
+ka(88',90);  penstroke z76e{(7u,9v)-z76}... z77e...z78e...z79e...z80e...z81e...
+z82e...z83e...z84e...z85e...z86e{down}... z87e...z88e...z88'e; z70'=z70;
+ka(70',107); penstroke z86e{down}... z70'e...z89e...z90e... z91e...z95e...
+z96e...z97e{left}; kouki(97,5,1.2); mpalla(98,1.1); penstroke
+z91e{(4u,9v)-z91}...z92e... z93e...z94e{down}; kouki(94,4,1.1); z99'=(u,7.95v);
+ka(99',121); penstroke z99'e{(-u,-0.4v)}...z99e ...z100e...z101e{right}; 
+kouki(101,8,1); penstroke z76e{(7u,9v)-z76}... z102e{right}...z103e...z104e...
+z105e{up}...z106e{right}...z107e...z108e... z109e{right}; z84'=(4.3u,7.1v);
+z84''=z80; ka(84',-43); ka(84'',-54); penstroke z84e{up}...z84'e...
+z84''e{(6u,9v)-z84''} ...z110e...z111e...z112e{right}; kouki(112,6,1.1);
+penstroke z84''e{(6u,9v)-z84''}... z113e...z114e...z115e...z116e...
+z117e...z118e{down}; mpalla(114',1.5); mpalla(113,1.4); mpalla(116,1.3);
+penstroke z119e{(9u,9v)-z119}... z120e...z121e...z122e{(-3u,3v)}...
+z123e...z124e...z125e...z126e... z127e...z128e{down}; kouki(128,4,1.6);
+z118'=z118; ka(118',0); penstroke z122e{(-3u,3v)}...z118'e{up}; penstroke
+z119e{(9u,9v)-z119}... z129e...z130e{(8u,0)-z130}...
+z131e...z132e...z133e...z134e... z135e{right}; penstroke z130e{(8u,0)-z130}...
+z136e...z137e...z138e{left}; kouki(138,7,1.5); penstroke z139e{left}...z140e...
+z141e...z141'e...z142e...z143e... z144e{left}...z145e{up}; kouki(145,2,1.5);
+penstroke z144e{left}...z146e{down}; kouki(146,4,1.3); mpalla(147,1.2);
+z150=(2.7u,8.2v); z151=(1.9u,7.9v); z152=(2.4u,9v); z160=(5.2u,6.3v);
+z161=(4.9u,6.75v); z162=(6.2u,6.9v); triaina(150,151,152,0.8);
+triaina(160,161,162,0.45); mpalla(114,1.5); z148=(3.05u,0.65v); z149=(3.4u,0.6v);
+z149'=(3.7u,0.8v); z148'=(2.7u,0.85v); penpos148(0.4uv,-113); 
+penpos149(0.1v,-90); ka(149',0); penpos148'(0.1v,-90); penstroke
+z76e{(7u,9v)-z76}... z148'e...z148e...z149e...z149'e{up}; kouki(149',1,1.2);
+penlabels(range 1 thru 150);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitN.mf b/fonts/gothic/yinit/yinitN.mf
new file mode 100644
index 0000000000..218bc1349e
--- /dev/null
+++ b/fonts/gothic/yinit/yinitN.mf
@@ -0,0 +1,109 @@
+.cmchar "The letter N";
+.beginchar("N",8.9u#+0.3mm#,8.7m*u#,0);
+.adjust_fit(0,0); 
+z1=(3.9u,0.6v); z2=(4.45u,1.55v); z3=(3.6u,1.75v); z4=(1.75u,2.3v);
+z5=(1.4u,3.15v); z6=(2.3u,4.15v); z7=(2.9u,3.5v); z8=(2.45u,2.95v);
+z9=(2u,3.3v); z10=(2.2u,3.52v); z11=(2.5u,3.45v); z12=(2.7u,3.6v);
+z13=(5.1u,2.1v); z14=(6.1u,3.3v); z15=(5.5u,4.05v); z16=(5u,3.65v);
+z17=(5.2u,3.3v); z18=(5.4u,3.35v); z19=(5.6u,3.3v); z20=(5.6u,3v);
+z21=(7.75u,0.8v); z22=(8.6u,1.8v); z23=(7.5u,1.7v);  z24=(7u,2.6v);
+z25=(6.8u,4.95v);  z26=(7.45u,6.2v); z27=(2.5u,2v); z28=(3.75u,4.5v);
+z29=(3.05u,6.05v);  z30=(3u,6.6v); z31=(1.9u,5.65v);  z32=(2.8u,2v);
+z33=(4.5u,5.55v);  z35=(3u,7.45v); z34=(3.95u,6.9v); z36=(1.7u,7.15v);
+z37=(0.5u,7.65v); z38=(0.55u,8.05v);  z39=(1.3u,8.3v); z40=(1.55u,8.15v); 
+z41=(1.95u,8.25v); z42=(1.9u,8.5v);  z43=(5.65u,7.95v);z44=(6.65u,7.55v);
+z45=(7.3u,6.8v); z34'=z34; z46=(8.2u,6.65v); z47=(8.8u,7.4v);  z48=(8.3u,7.9v);
+z49=(7.9u,7.5v); z50=(9.05u,2.5v); z51=(8.5u,3.1v); z52=(8.05u,2.7v);
+z53=(8.25u,2.45v); ka(1,0); penpos2(1.5hair,-45);  penpos3(0.9uv,60);
+penpos4(0.65uv,41); penpos5(0.25u,0); ka(6,-90); ka(7,180);  ka(8,90); ka(9,0);
+penpos10(0.25v,-90); penpos11(0.2v,-111); ka(12,0);  ka(13,-51); ka(14,0);
+ka(15,90);  ka(16,180); penpos17(0.25uv,-108);  penpos18(0.3uv,-57);
+penpos19(0.2uv,-133);  ka(20,180); ka(21,0); penpos22(1.5hair,-54); 
+penpos23(0.8uv,48); penpos24(0.75uv,15); penpos25(0.6u,-18); ka(26,-40);
+ka(27,-46);  penpos28(0.35u,0); penpos29(0.8uv,40); ka(30,180); ka(31,-69);
+ka(32,-44);  penpos33(0.6u,0); penpos34(0.85uv,42); ka(34',-52);
+penpos35(0.9uv,78); penpos36(0.75uv,110);  penpos37(0.2u,18); ka(38,-35);
+penpos39(0.4uv,-129); penpos40(0.4uv,-106);  penpos41(0.1uv,-45); ka(42,0);
+penpos43(0.3uv,-83);  penpos44(0.8uv,-134); penpos45(0.6uv,-140);
+penpos46(0.1v,-90); ka(47,0);  ka(48,90); ka(49,180); ka(50,0); ka(51,90);
+ka(52,180); ka(53,-90); filldraw z1r{up}...z2r{z2-(3u,0)}... z13r{(9u,5v)-z13} &
+z13r--z13l & z13l{z13-(9u,5v)}...z2l{(3u,0)-z2} &
+z2l{(0,9v)-z2}...z3r...z4r...z5r... z6r{right} & z6r--z6l & z6l{left}...
+z5l...z4l...z3l...z1l{down} & z1l--z1r & cycle; penstroke
+z6e{right}...z7e...z8e{left}... z9e{up}...z10e...z11e...z12e{up}; penstroke
+z13e{(9u,5v)-z13}...z14e... z15e...z16e...z17e...z18e...z19e... z20e{down};
+filldraw z21r{up}...z22r...z50r{up} & z50r--z50l & z50l{down}...z22l...
+z23r...z24r...z25r...z26r{(9u,8.3v)-z26} & z26r--z26l & z26l{z26-(9u,7.2v)}...
+z25l...z24l...z23l...z21l{down} & z21l--z21r & cycle; penstroke
+z50e{up}...z51e... z52e{down}; kouki(52,4,2); penstroke
+z34'e{(6.5u,9v)-z34'}...z43e... z44e...z45e...z46e...z47e...z48e... z49e{down};
+kouki(49,4,2); penstroke z32e{(9u,8.4v)-z32}...z33e
+...z34e...z35e...z36e...z37e...z38e... z39e...z40e...z41e...z42e; filldraw
+z27r{(8.6u,9v)-z27}...z28r... z29r...z30l{up} & z30l--z30r &
+z30r{(0,0)-z30}...z31l{z31-(8u,9v)} & z31l--z31r & z31r{(9u,7.2v)-z31}...
+z29l...z28l...z27l{z27-(8.6u,9v)} & z27l--z27r & cycle; z50'=(3.7u,0.2v);
+z51'=(2.9u,1.1v); z52'=(2.35u,0.6v);  z53'=(2.8u,0.15v); z54=(3.15u,0.5v); 
+z55=(2.9u,0.85v); z56=(0.85u,1.85v);  z57=(0.25u,3.05v); z58=(3.75u,0.25v); 
+z58'=(0.7u,4.55v); z580=(0,4.3v); z59=(1.9u,5.1v); z60=(3.25u,3.9v); 
+z61=(1.8u,2.25v); z62=(0.3u,v);  z63=(1.2u,0); z64=(1.9u,0.7v); 
+z65=(1.3u,1.3v); z66=(0.85u,0.8v); z67=(0.3u,-0.05v); z68=(0.85u,3.3v); 
+z69=(2u,4.5v); z70=(3.1u,4.4v);  z71=(3.2u,2v); z72=(4.65u,3v); 
+z73=(5.05u,2.65v); z74=(4.7u,2.3v);  z75=(5.05u,4.7v); z76=(5.2u,6v);
+z77=(4.5u,8.3v); z78=(5.05u,8.9v);  z79=(5.5u,8.5v); z80=(5.15u,8.2v); 
+z81=(4.15u,8.75v); z82=(3.45u,8.25v);  z83=(0.7u,6.35v); z84=(0.5u,7.75v); 
+z85=(-0.05u,8.4v); z86=(0.25u,8.75v);  z87=(0.55u,8.5v); z88=(0.1u,4.8v); 
+z89=(1.3u,5.6v); z90=(2.3u,4.8v);  z91=(4u,6.5v); z92=(1.4u,6.5v); 
+z93=(2.2u,5.6v); z94=(2.9u,6.15v);  z95=(2.4u,6.6v); z96=(6.9u,9v); 
+z97=(8.3u,7.7v); z98=(7u,6.4v);  z99=(6.1u,7.3v); z100=(7u,8.35v);
+z101=(8.15u,8.2v); z102=(8.6u,8.6v);  z103=(3.95u,0.2v); z104=(4.4u,1.1v);
+z105=(5.95u,2.35v); z106=(8.3u,4.5v);  z107=(7u,6v); z108=(5.5u,4.5v);
+z109=(6.7u,3.3v); z110=(7.75u,4.35v);  z111=(6.8u,5.2v); z112=(6.05u,4.5v);
+z113=(6.8u,3.8v); z114=(5.5u,1.8v);  z115=(7u,v); z116=(6.2u,0);
+z117=(5.6u,0.35v); z118=(6u,1.2v); z119=(4.8u,0.95v);  z120=(4.35u,0.5v);
+z121=(6.45u,0.8v);  z122=(6.2u,0.5v); z123=(8.15u,0); z124=(8.8u,0.7v);
+z125=(8.4u,1.2v); z126=(8u,0.8v);  z127=(8.3u,0.45v); z128=(8.5u,2.9v);
+z129=(8.85u,2.5v); z130=(8.4u,2v);  z131=(7.45u,4v); z132=(7.6u,5.4v); 
+z133=(8.5u,6.3v);  ka(50',6); ka(51',84); ka(52',180);  ka(53',-90); ka(54,0);
+ka(55,90); ka(56,48);  ka(57,0); ka(58,0); ka(58',-44); ka(59,-90);  ka(60,180);
+ka(61,90); ka(62,180); ka(63,-90); ka(64,0); ka(65,90);  ka(66,163); ka(67,90);
+ka(68,0);  ka(69,-90); ka(70,-90); ka(580,0); ka(71,-45); ka(72,-90);
+ka(73,180);  ka(74,90); ka(75,-13); ka(76,0);  ka(77,0); ka(78,-90); ka(79,180);
+ka(80,90); ka(81,90);  ka(82,69); ka(83,180); ka(84,90);  ka(85,0); ka(86,-90);
+ka(87,180); ka(88,90); ka(89,-90);  ka(90,-90); ka(91,0); ka(92,180); 
+ka(93,-90); ka(94,0); ka(95,90); ka(96,-90); ka(97,180);  ka(98,90); ka(99,0);
+ka(100,-90);  ka(101,-105); ka(102,0); ka(103,-17); ka(104,-40);  ka(105,-65);
+ka(106,0); ka(107,90);  ka(108,180); ka(109,-90); ka(110,0); ka(111,90);
+ka(112,180); ka(113,-90);  ka(114,-90); ka(115,-153); ka(116,90);  ka(117,40);
+ka(118,-90); ka(119,90); ka(120,180);  ka(121,180); ka(122,90); ka(123,-90); 
+ka(124,0); ka(125,90); ka(126,180);  ka(127,-90); ka(128,-90); ka(129,180);
+ka(130,90); ka(131,0);  ka(132,-18); ka(133,-90); penstroke
+z50'e{(3u,9v)-z50'}... z51'e{left}...z52'e...z53'e...z54e... z55e{left};
+kouki(55,7,1.2); penstroke z51'e{left}...z56e...z57e{up}...
+z58'e...z59e...z60e...{left}z61e...z62e...
+z63e...z64e...z65e...z66e...z67e{left}; kouki(67,5,1.5); mpalla(57,1.3);
+mpalla(58',1.4); penstroke z57e{up}...z580e{up}; kouki(580,1,1); z61'=z61;
+ka(61',90); penstroke z61'e{left}...z68e...z69e... z70e{right}; kouki(70,6,1.2);
+penstroke z71e{(9u,7.5v)-z71}...z72e ...z73e...z74e{left}; kouki(74,5,1.3);
+penstroke z71e{(9u,7.5v)-z71}...z75e ...z76e{up}...z77e...z78e...z79e...z80e...
+z81e{left}; kouki(81,7,1); kouki(80,5,1.3); penstroke z76e{up}...z96e...z97e...
+z98e...z99e...z100e...z101e...z102e{up}; kouki(102,1,1.8); penstroke
+z103e{(7u,9v)-z103}... z104e{(9u,7v)-z104}...z105e...
+z106e...z107e...z108e...z109e...z110e... z111e...z112e...z113e; mpalla(105,1.5);
+mpalla(106,1.2); mpalla(107,1.4); z82'=z41; ka(82',75); penstroke
+z76e{up}...z82e... z82'e{(0,7.4v)-z82'}...z84e...z85e... z86e...z87e{down};
+kouki(87,3,1.1); penstroke z82'e{(0,7.4v)-z82'}... z83e{down}...z88e{left};
+kouki(88,5,1.2); penstroke z83e{down}...z90e...z91e...
+z92e...z93e...z94e...z95e{left}; kouki(95,7,1.4); z134=(5.8u,6.6v); ka(134,-90);
+penstroke z75e{(5.7u,9v)-z75}... z134e{right}; kouki(134,8,1); mpalla(75,1.5);
+z150=(3.05u,7.75v); z151=(2.35u,7.85v); z152=(3.15u,9v);
+triaina(150,151,152,0.5); penstroke z104e{(9u,7v)-z104}...
+z114e...z115e{z115-(4u,9v)}... z116e...z117e{(0.7u,9v)-z117}...
+z118e...z121e...z122e{left};  kouki(122,5,1.6); penstroke
+z117e{(0.7u,9v)-z117}... z119e...z120e{down}; kouki(120,4,1.6); penstroke
+z115e{z115-(4u,9v)}... z123e...z124e...z125e...z126e... z127e{right};
+kouki(127,6,1.6); mpalla(117,1.2); mpalla(83,1.7); z83'=(7.15u,0.3v);
+mpalla(83',1.3); penstroke z128e{right}...z129e...
+z130e...z131e...z132e...z133e{right}; kouki(133,8,1.1); penlabels(range 1 thru
+140);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitO.mf b/fonts/gothic/yinit/yinitO.mf
new file mode 100644
index 0000000000..6c24b75cd5
--- /dev/null
+++ b/fonts/gothic/yinit/yinitO.mf
@@ -0,0 +1,86 @@
+.cmchar "The letter O";
+.beginchar("O",8.9u#+0.1mm#,8.7m*u#,0);
+.adjust_fit(0,0); 
+z1=(4.9u,6.9v); z2=(3.1u,6.4v); z3=(1.65u,3.35v); z4=(2.35u,1.6v);
+z5=(4.4u,0.6v); z6=(7u,1.7v); z7=(7.9u,4.8v); z8=(5.65u,7.7v); z9=(3.35u,7.7v);
+z10=(1.85u,7.25v); z11=(0.75u,8.15v); z12=(1.4u,8.75v); z13=(1.9u,8.5v);
+z14=(2u,8.15v); z15=(2.5u,8.2v); z16=(3.7u,2.4v); z17=(4u,2.25v);
+z18=(4.7u,2.9v); z19=(4.35u,3.7v); z20=(3.4u,4.05v); z21=(3.4u,4.6v);
+z22=(2.3u,3.4v); z23=(3.85u,2.8v); z24=(3.5u,2.95v); z25=(3.35u,2.4v);
+z26=(4.4u,1.95v); z27=(5.7u,3.7v); z28=(5.4u,4.35v); z29=(3.9u,5.55v);
+z30=(4.9u,6.6v); z31=(5.8u,5.9v); z32=(5.6u,5.45v); z33=(4.85u,1.7v);
+z34=(5.6u,2.2v); z35=(6.6u,1.7v); z36=(7.15u,0.6v); z37=(8.15u,0.25v);
+z38=(8.85u,1.1v); z39=(8.4u,1.7v); ka(1,95); penpos2(1.5hair,119);
+penpos3(0.9u,183); penpos4(1.1uv,-135); penpos5(0.7v,-90); penpos6(0.15uv,-42);
+penpos7(0.65u,0); penpos8(1.05uv,65); penpos9(uv,106); penpos10(0.6v,90);
+penpos11(1.5hair,0); penpos12(0.2v,-90); penpos13(0.55v,-173);
+penpos14(0.4v,-156); ka(15,-27); penstroke z1e{(0,6.6v)-z1}...z2e...
+z3e...z4e...z5e...z6e...z7e...z8e... z9e...z10e...z11e...z12e...z13e...
+z14e...z15e; ka(16,180); penpos17(0.1v,-90);  penpos18(0.5u,0);
+penpos19(0.62uv,59); penpos20(0.8uv,60); ka(21,180); ka(22,-58); filldraw
+z16r{down}...z17r...z18r... z19r...z20r...z21l{up} & z21l--z21r &
+z21r{down}...{z22-(9u,8.5v)}z22l & z22l--z22r &
+z22r{(9u,6.5v)-z22}...z20l...z19l...z18l...z17l... z16l{up} & z16l--z16r & cycle;
+penpos23(0.5u,12); penpos24(0.4v,90); ka(25,180); penpos26(0.1v,-90); filldraw
+z16l{right}...z23r...z24r ...{z25-(0,9v)}z25r...z26r{right} & z26r--z26l &
+z26l{left}... z25l{(0,9v)-z25}...z24l...z16l{down} & cycle; penpos27(0.9u,0);
+penpos28(uv,47); penpos29(0.9uv,12); penpos30(0.15v,-90); penpos31(0.1u,180);
+ka(32,90); kouki(31,3,3); penstroke z26e{right}...z27e...z28e
+...z29e...z30e...z31e{down}; z40=(2.6u,0.3v); z41=(2.35u,0.4v);
+z42=(1.55u,0.1v); z43=(1.2u,-0.05v); z44=(0.15u,1.15v); z45=(2.5u,3.9v);
+z46=(3.4u,5.5v); z47=(2.4u,6.9v); z48=(1.6u,6.3v); z49=(1.85u,5.95v);
+z50=(1.9u,0.8v); z51=(1.3u,1.35v); z52=(0.9u,0.75v); z53=(1.2u,0.45v);
+z54=(0.55u,0.75v); z55=(0.05u,0); z56=(4u,0); z57=(8.6u,4.6v); z58=(4.2u,9v);
+z59=(0.5u,6.55v); z60=(0.9u,5.2v); z61=(1.9u,4.65v); z62=(2.8u,3v);
+z63=(2.3u,1.55v); z64=(0,2.7v); z65=(u,3.7v); z66=(u,2.3v); z67=(0.6u,2.8v);
+z68=(0.3u,5.25v); z69=(-0.15u,4.85v);  z70=(0.1u,4.5v); z71=(1.35u,8.2v);
+z72=(0.35u,7.6v); z73=(-0.1u,8.1v); z74=(0.3u,8.5v); z67'=(0.8u,4.75v); 
+z75=(0.65u,8.2v); z76=(0.5u,8.8v); z77=(3.8u,3.4v); z78=(2.95u,2.8v);
+z79=(3.7u,1.65v); z80=(4.45u,1.5v); z81=(6.45u,3.7v); z82=(5.8u,5.35v);
+z83=(4.9u,7v); z84=(6.7u,9v); z84'=(7.5u,8.8v); z85=(8.4u,7.4v); z86=(7u,5.95v);
+z87=(5.85u,7.1v); z88=(7u,8.35v); z89=(7.75u,7.6v); z90=(8.7u,8.4v);
+z91=(9u,8.8v); z92=(8.75u,9.05v); z93=(6.8u,3.6v); z94=(6.7u,5.4v);
+z95=(6.25u,5.55v); z96=(7.2u,3.5v); z97=(8.6u,5.15v); z98=(8.6u,4.55v);
+z99=(8.7u,6.6v); z100=(7.3u,2.65v); z101=(8.15u,2.55v); z102=(9u,2.9v);
+z103=(8.7u,3.2v); z104=(8.7u,1.5v); z105=(7.7u,0.5v); z106=(6.9u,1.2v);
+z107=(7.6u,1.9v); z108=(8.15u,1.5v); z109=(7.75u,v); z110=(1.25u,6.8v);
+z111=(1.25u,5.9v); z112=(-0.2u,6.85v); z113=(0.85u,4v); z114=(2.4u,4.35v);
+z115=(6.1u,0.35v); z116=(6.6u,0.2v); z117=(6.95u,0.15v); z118=(7u,0.4v);
+ka(115,-66); penpos116(0.25uv,-147); ka(44,180); ka(43,-90); ka(42,-60);
+ka(41,-90); ka(40,180); ka(50,0); ka(51,90); ka(52,180); ka(53,-90); ka(54,161);
+ka(55,90); z44'=z44; ka(44',0); ka(45,-49); ka(46,0); ka(47,90); ka(48,180);
+ka(49,-90); ka(56,-92); ka(57,0); ka(58,90); ka(59,180); ka(60,-139); ka(61,-90);
+ka(62,180); ka(63,90); ka(64,0); ka(65,-90); ka(66,90); ka(67,0); ka(67',0);
+ka(68,90); ka(69,180); ka(70,-90); ka(71,120); ka(72,90); ka(73,0); ka(74,-90);
+ka(75,180); ka(76,0); ka(77,90); ka(78,180); ka(79,-114); ka(80,-90); ka(81,0);
+ka(82,36); ka(83,0); ka(84,-90); ka(85,180); ka(86,90); ka(87,0); ka(88,-90);
+ka(89,180); ka(90,-90); ka(91,0); ka(92,90); ka(93,0); ka(94,35); ka(95,90);
+ka(96,-24); ka(97,0); penpos98(0.3v,90); ka(99,-90); ka(100,-90); ka(101,-115);
+ka(102,0); ka(103,90); ka(104,180); ka(105,90); ka(106,0); ka(107,-90); 
+ka(108,180); ka(109,90); ka(84',-74); penstroke z44e{down}...z43e...
+z42e{(9u,4.6v)-z42}...z41e... z40e{down}; kouki(40,3,1.2); penstroke
+z42e{(9u,4.6v)-z42}... z50e...z51e{left}...z54e...z55e{left}; kouki(55,5,1.5); 
+penstroke z51e{left}...z52e... z53e{right}; kouki(53,6,1.1); penstroke
+z44'e{up}...z45e...z46e... z47e...z48e...z49e{right};  kouki(49,6,1.2);
+penstroke z56e{(9u,-0.2v)-z56}...z115e{(9u,1.5v)-z115}...
+z57e...z58e...z71e{(0,7.3v)-z71}...z59e... z60e{(4.8u,0)-z60}...z61e...z46e{up};
+mpalla(58,1.1); mpalla(60,1.5); penstroke z60e{(4.8u,0)-z60}...
+z62e...z63e...z64e{up}...z65e... z66e...z67e{up}; kouki(67,2,1.2);
+mpalla(64,1.2); penstroke z64e{up}...z67'e...z68e... z69e...z70e{right};
+kouki(70,6,1.5); penstroke z71e{(0,7.3v)-z71}...z72e
+...z73e...z74e{right}...z75e{down}; penstroke z74e{right}...z76e{up};
+kouki(75,3,1.2); kouki(76,1,1.4); penstroke z77e{left}...z78e...z79e
+...z80e{right}...z81e...z82e...z83e ...z84e...z84'e{(9u,8v)-z84'}...
+z85e...z86e...z87e...z88e... z89e{down}; kouki(89,3,1.4); penstroke
+z84'e{(9u,8v)-z84'}... z90e...z91e...z92e{left}; kouki(92,7,1.2);
+mpalla(84',1.4); mpalla(79,1.4); mpalla(81,1.5); penstroke
+z80e{right}...z93e...z94e ...z95e; penstroke z80e{right}...z100e...
+z101e{(9u,2.2v)-z101}...z104e... z105e...z106e...z107e...z108e... z109e{left};
+kouki(109,5,1.4); penstroke z101e{(9u,2.2v)-z101}... z102e...z103e{left};
+kouki(103,7,1.3); z97'=z97; ka(97',-90); penstroke z93e...z97'e{right}...
+z98e{left}; penstroke z97e{up}...z99e{right}; kouki(95,7,1); kouki(99,8,1.3);
+penpos117(0.1uv,-51); ka(118,0); penstroke z115e{(9u,1.5v)-z115}...
+z116e...z117e...z118e{up}; mpalla(114,1.3); mpalla(113,1.5);
+triaina(110,111,112,0.65); penlabels(range 1 thru 120);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitP.mf b/fonts/gothic/yinit/yinitP.mf
new file mode 100644
index 0000000000..d86c000ca8
--- /dev/null
+++ b/fonts/gothic/yinit/yinitP.mf
@@ -0,0 +1,100 @@
+.cmchar "The letter P";
+.beginchar("P",8.9u#-0.4mm#,8.7m*u#,0);
+.adjust_fit(0,0); 
+z1=(4.7u,0); z2=(5.1u,1.27v);  z3=(4.65u,1.65v); z4=(2.35u,2.45v); 
+z5=(1.8u,3.4v); z6=(2.65u,4.35v);  z7=(3.35u,3.75v);  z8=(3u,3.3v);
+z9=(2.7u,2.3v);  z10=(3.1u,2.1v); z11=(4.1u,4.7v); z12=(3.45u,6v); 
+z13=(2.2u,5.6v); z14=(3.5u,6.7v);  z15=(5u,5.55v); z16=(3.9u,7.4v);
+z17=(3u,7.6v); z18=(1.6u,7.2v);  z19=(0.25u,8v); z20=(0.6u,8.55v); 
+z21=(u,8.4v); z22=(1.15u,8.15v);  z23=(1.6u,8.2v); z24=(4.65u,6.4v);
+z25=(5.9u,7.15v);  z26=(6.5u,7.45v); z27=(7.45u,8.2v);  z28=(7u,7.25v);
+z29=(8.15u,5.55v);  z30=(6.2u,3.5v); z31=(5.2u,4.5v); z32=(5.9u,5.3v); 
+z33=(6.5u,4.95v);  z34=(7.35u,5.35v); z35=(6.05u,3.95v);  z36=(5.6u,1.1v);
+z37=(6.8u,2.3v);  z38=(6.1u,3.1v); z39=(5.5u,2.6v); penpos1(0.1u,0);
+penpos3(uv,62);  penpos2(uv,28.5); penpos4(0.6uv,47); penpos5(0.3u,0);
+penpos6(1.5hair,-90); ka(7,180); ka(8,90); ka(9,-56);  ka(10,-56);
+penpos11(0.5u,0); penpos12(0.95uv,35); ka(13,-67); ka(14,180); penpos15(0.7u,0);
+penpos16(uv,58); penpos17(1.05v,90); penpos18(0.8uv,106); ka(19,0); 
+penpos20(0.15v,-90); penpos21(0.4uv,-137); penpos22(0.4uv,-137); ka(23,-50);
+penpos24(2hair,-56); penpos25(2hair,-63); penpos26(2hair,-63); ka(27,152); 
+penpos28(1.05uv,39); penpos29(0.8u,0); penpos30(0.1v,-90); ka(31,180); 
+penpos32(0.4v,90); penpos33(0.7uv,36); ka(35,180); ka(34,0);
+penpos36(1.5hair,-65); penpos37(1.2hair,0); ka(38,90); ka(39,180); filldraw
+z1r{(9u,9v)-z1}...z36r{z36-(2.5u,0)}... z37r...z38r{left} & z38r--z38l &
+z38l{right}...z37l... z36l{(2.5u,0)-z36} & z36l...z2r...z3r
+...z4r...z5r...z6r{right} &  z6r--z6l & z6l{left}...z5l...z4l...
+z3l...z2l...z1l{z1-(7u,9v)} & z1l--z1r & cycle; penstroke
+z38e{left}...z39e{down}; kouki(39,4,2.5); penstroke z6e{right}...z7e...z8e{left};
+kouki(8,5,2.5); filldraw z9r{(9u,7v)-z9}...z11r... z12r...z14l{up} & z14l--z14r
+&  z14r{(0,v)-z14}...z13l{z13-(9u,8v)} & z13l--z13r &
+z13r{(9u,7.6v)-z13}...z12l...z11l... z9l{z9-(9u,7v)} & z9l--z9r & cycle;
+penstroke z10e{(9u,7v)-z10}... z15e...z16e...z17e...z18e...z19e...
+z20e...z21e...z22e...z23e; filldraw z24r...z25r...z26r & z26r{down}
+...z28l...z29l...z30l...z31l{up}...z32l ...z33l...z35r{down} & z35r--z35l &
+z35l{up}...(6.4u,4.5v)---(7.2u,5v)... z34r{up} & z34r--z34l & z34l{down}...
+z33r...z32r{left}...z31r{down}...z30r...z29r... z28r...z27l{(8u,9v)-z27} &
+z27l--z27r & z27r{z27-(8u,9v)}...z26l...z25l... z24l & z24l--z24r & cycle;
+kouki(35,4,1.5); kouki(34,1,1.5); z40=(4.6u,0); z41=(3.4u,v); z42=(2.7u,0.3v);
+z43=(3.15u,-0.15v); z44=(3.45u,0.15v); z45=(3.4u,1.1v); z46=(2.45u,0.9v);
+z47=(0.9u,0); z48=(0,0.8v); z49=(0.4u,v); z50=(1.5u,0.7v); z51=(1.1u,1.05v);
+z52=(3.4u,1.2v); z53=(2.8u,1.3v); z54=(0.8u,3.3v); z55=(2.5u,5.2v);
+z56=(3.6u,4v); z57=(2.75u,2.9v); z60'=(1.5u,2.3v); z58=(2.15u,3.45v);
+z59=(2.5u,4v); z60=(1.4u,2.5v); z61=(2u,4.55v); z62=(2.3u,5.3v); z63=(1.4u,6.2v);
+z64=(0.6u,5.5v); z65=(0.7u,5.1v); z66=(0.55u,4.1v); z67=(1.3u,4.85v);
+z68=(1.6u,5.4v); z69=(1.05u,5.65v); z70=(0.8u,2.7v); z71=(0.25u,2.05v);
+z72=(0.8u,1.6v); z73=(1.2u,2v); z74=(3.6u,2v); z75=(5.6u,5.5v); z77=(3u,8.85v);
+z78=(0.5u,6.8v); z77.1=(u,8.95v); z77.2=(2.1u,8.5v); z77.3=(1.4u,8.75v);
+z79=(4u,5.9v); z80=(3.05u,6.85v); z81=(2u,6.1v); z82=(2.5u,5.2v);
+z83=(6.3u,7.35v); z84=(5.3u,8.9v); z85=(4.55u,8.5v); z86=(4u,8.2v);
+z87=(3.5u,8.55v); z88=(3.9u,9v); z89=(4.15u,8.75v); z76=(5.6u,5.8v);
+z90=(5.1u,7.5v); z91=(5.65u,8v); z92=(7.25u,8.75v); z93=(8.55u,7.4v);
+z94=(7.2u,6.15v); z95=(7.2u,8.2v); z96=(8.5u,7.9v); z97=(8.85u,8.3v);
+z98=(8.5u,8.65v); z99=(6.15u,6.45v); z100=(3.75u,1.9v); z100'=(5.6u,3.75v);
+z101=(6.75u,4.2v); z102=(8.45u,2.5v); z103=(8u,2.1v); z104=(7.1u,0.95v);
+z105=(5.85u,2v); z106=(6.8u,3.1v); z107=(7.55u,2.3v); z108=(7.5u,2v);
+z109=(7u,1.65v); z110=(6.45u,2.1v); z111=(5.6u,0.5v); z112=(7u,0.7v);
+z113=(7.6u,0); z114=(8u,0.6v); z115=(7.7u,0.9v); z116=(8.45u,0.35v);
+z117=(6.1u,-0.1v); z117'=(6.7u,v); z118=(4.8u,3.4v); z119=(5u,3.6v);
+z120=(5.4u,3.2v); z121=(5.2u,3v); ka(40,0); ka(41,90); ka(42,180); ka(43,-90);
+ka(44,0); ka(45,90); ka(46,125); ka(47,90); ka(48,0); ka(49,-90); ka(50,90);
+ka(51,0); ka(52,90); ka(53,76); ka(54,0); ka(55,-90); ka(56,180); ka(57,90);
+ka(58,0); ka(59,-71); ka(60,0); ka(61,-47); ka(62,0); ka(63,90); ka(64,180);
+ka(65,-146); ka(66,90); ka(60',23); ka(67,-90); ka(68,0); ka(69,140); ka(70,90);
+ka(71,180); ka(72,-90); ka(73,0); ka(74,-50); ka(75,-10); ka(76,0); ka(77,90);
+ka(78,180); ka(77.1,0); ka(77.2,180); ka(77.3,90); ka(79,0); ka(80,90);
+ka(81,180); ka(82,-90); ka(83,0); ka(84,90); ka(85,180); ka(86,90); ka(87,0);
+ka(88,-90); ka(89,180);ka(100',-48); ka(90,-90); ka(91,0); ka(92,-90);
+ka(93,180); ka(94,90); ka(95,-90); ka(96,-90); ka(97,0); ka(98,90); ka(100,-51);
+ka(101,-90); ka(102,180); ka(103,90); ka(104,90); ka(105,0); ka(106,-90);
+ka(107,180); ka(108,144); ka(109,90); ka(110,0); ka(111,180); ka(112,180);
+ka(113,-90); ka(114,0); ka(115,90); ka(116,-90); ka(117,90); ka(117',147);
+penstroke z40e{up}...z41e{left}... z42e...z43e...z44e{up}; kouki(44,1,1.6);
+penstroke z45e{left}...z46e...z47e... z48e...z49e{right}; kouki(49,8,1.7);
+penstroke z46e...z50e...z51e{up}; kouki(51,2,1.1); penstroke z40e{up}...z52e...
+z53e{(0,2v)-z53}... z60'e{(0,5v)-z60'}...z60e...z61e... z62e...z63e...z64e...
+z65e{(5u,0)-z65}...z66e{left}; kouki(66,5,1.3); penstroke
+z65e{(5u,0)-z65}...z67e... z68e...z69e{(0,4.5v)-z69}; ka(6',-90); z6l=z6'l;
+penstroke z60'e{(0,5v)-z60'}...z70e... z71e...z72e...z73e{up}; kouki(73,1,1.6);
+penstroke z74e{(9u,6.8v)-z74}...z75e ...z76e{up}...z77e...z78e...z6'e...
+z79e...z80e...z81e...z82e{right}; kouki(82,6,1); mpalla(76,1.3); mpalla(77,1.4);
+mpalla(53,1.2);  penstroke z53e{(0,2v)-z53}...z54e...
+z55e...z56e...z57e...z58e...z59e{right}; penstroke
+z77e{left}...z77.3e...z77.1e{up}; penstroke z77e{left}...z77.2e{down};
+kouki(77.1,2,1); kouki(77.2,4,1); penstroke z76e{up}...z83e...z84e...
+z85e{(0,3v)-z85}...z86e...z87e... z88e...z89e; kouki(89,3,1.5); penstroke
+z85e{(0,3v)-z85}...z90e... z91e{up}; kouki(91,1,1.8); penstroke
+z76e{up}...z92e...z93e... z94e...z83e...z95e...z96e...z97e... z98e{left};
+kouki(98,7,1.5); mpalla(92,1.4); mpalla(99,1.5); penstroke z100e{(9u,6v)-z100}...
+z100'e...{right}z101e ...z102e{down}...z103e{left}; kouki(103,5,1.1); penstroke
+z102e{down}...z104e... z105e...z106e...z107e...
+z108e{(6u,0)-z108}...z109e...z110e{up}; kouki(110,2,1.7); penstroke
+z108e{(6u,0)-z108}...z111e {down}; kouki(111,4,1); penstroke
+z108e{(6u,0)-z108}...z112e ...z113e{right}...z114e...z115e{left};
+kouki(115,7,1.3); penstroke z108e{(6u,0)-z108}... z117'e...z117e {left};
+kouki(117,5,1.1); penstroke z113e{right}...z116e{right}; kouki(116,8,1);
+filldraw z118--z119--z120--z121-- cycle; z122=(6.35u,6v); z123=(7.4u,4.5v);
+ka(122,180); ka(123,0); penstroke z94e{left}...z122e{down}; penstroke
+z101e{right}...z123e{up}; kouki(122,4,1.1); kouki(123,1,1); mpalla(78,1.3);
+penlabels(range 1 thru 130);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitQ.mf b/fonts/gothic/yinit/yinitQ.mf
new file mode 100644
index 0000000000..74cf5090ce
--- /dev/null
+++ b/fonts/gothic/yinit/yinitQ.mf
@@ -0,0 +1,106 @@
+.cmchar "The letter Q";
+.beginchar("Q",8.9u#+1mm#,8.7m*u#,0);
+.adjust_fit(0,0); 
+z1=(4.9u,6.9v); z2=(3.1u,6.4v); z3=(1.65u,3.35v); z4=(2.35u,1.6v);
+z5=(4.4u,0.6v); z6=(7u,1.7v); z7=(7.9u,4.8v); z8=(5.65u,7.7v); z9=(3.35u,7.7v);
+z10=(1.85u,7.25v); z11=(0.75u,8.15v); z12=(1.4u,8.75v); z13=(1.9u,8.5v);
+z14=(2u,8.15v); z15=(2.5u,8.2v); z16=(3.7u,2.4v); z17=(4u,2.25v);
+z18=(4.7u,2.9v); z19=(4.35u,3.7v); z20=(3.4u,4.05v); z21=(3.4u,4.6v);
+z22=(2.3u,3.4v); z23=(3.85u,2.8v); z24=(3.5u,2.95v); z25=(3.35u,2.4v);
+z26=(4.4u,1.95v); z27=(5.7u,3.7v); z28=(5.4u,4.35v); z29=(3.9u,5.55v);
+z30=(4.9u,6.6v); z31=(5.8u,5.9v); z32=(5.6u,5.45v); z33=(4.85u,1.7v);
+z34=(5.6u,2.2v); z35=(6.6u,1.7v); z36=(7.15u,0.6v); z37=(8.15u,0.25v);
+z38=(8.85u,1.1v); z39=(8.4u,1.7v); ka(1,95); penpos2(1.5hair,119);
+penpos3(0.9u,183); penpos4(1.1uv,-135); penpos5(0.7v,-90); penpos6(0.15uv,-42);
+penpos7(0.65u,0); penpos8(1.05uv,65); penpos9(uv,106); penpos10(0.6v,90);
+penpos11(1.5hair,0); penpos12(0.2v,-90); penpos13(0.55v,-173);
+penpos14(0.4v,-156); ka(15,-27); penstroke z1e{(0,6.6v)-z1}...z2e...
+z3e...z4e...z5e...z6e...z7e...z8e... z9e...z10e...z11e...z12e...z13e...
+z14e...z15e; ka(16,180); penpos17(0.1v,-90);  penpos18(0.5u,0);
+penpos19(0.62uv,59); penpos20(0.8uv,60); ka(21,180); ka(22,-58); filldraw
+z16r{down}...z17r...z18r... z19r...z20r...z21l{up} & z21l--z21r &
+z21r{down}...{z22-(9u,8.5v)}z22l & z22l--z22r &
+z22r{(9u,6.5v)-z22}...z20l...z19l...z18l...z17l... z16l{up} & z16l--z16r & cycle;
+penpos23(0.5u,12); penpos24(0.4v,90); ka(25,180); penpos26(0.1v,-90); filldraw
+z16l{right}...z23r...z24r ...{z25-(0,9v)}z25r...z26r{right} & z26r--z26l &
+z26l{left}... z25l{(0,9v)-z25}...z24l...z16l{down} & cycle; penpos27(0.9u,0);
+penpos28(uv,47); penpos29(0.9uv,12); penpos30(0.15v,-90); penpos31(0.1u,180);
+ka(32,90); kouki(31,3,3); penstroke z26e{right}...z27e...z28e
+...z29e...z30e...z31e{down}; ka(33,180); penpos34(0.25v,90);
+penpos35(0.75uv,30); penpos36(0.75uv,29); penpos37(0.4v,90); penpos38(0.1u,180);
+ka(39,-90); penstroke z39e{right}...z38e...z37e
+...z36e...z35e...z34e...z33e{down}; z39=z39'; ka(39',90);  kouki(39',7,2.5);
+kouki(33,4,2.5); z40=(2.6u,0.3v); z41=(2.35u,0.4v); z42=(1.55u,0.1v);
+z43=(1.2u,-0.05v); z44=(0.15u,1.15v); z45=(2.5u,3.9v); z46=(3.4u,5.5v);
+z47=(2.4u,6.9v); z48=(1.6u,6v); z49=(2.4u,5.3v);  z49.1=(2.9u,5.9v);
+z49.2=(2.45u,6.3v); z50=(1.9u,0.8v); z51=(1.3u,1.35v); z52=(0.9u,0.75v);
+z53=(1.2u,0.45v); z54=(0.55u,0.75v); z55=(0.05u,0); z56=(4u,0); z57=(8.6u,4.6v);
+z58=(4.2u,9v); z59=(0.5u,6.55v); z60=(0.9u,5.2v); z61=(1.9u,4.65v);
+z62=(2.8u,3v); z63=(2.3u,1.55v); z64=(0,2.7v); z65=(u,3.7v); z66=(u,2.3v);
+z67=(0.6u,2.8v); z68=(0.3u,5.25v); z69=(-0.15u,4.85v);  z70=(0.1u,4.5v);
+z71=(1.35u,8.2v); z72=(0.35u,7.6v); z73=(-0.1u,8.1v); z74=(0.3u,8.5v);
+z67'=(0.8u,4.75v);  z75=(0.65u,8.2v); z76=(0.5u,8.8v); z77=(3.8u,3.4v);
+z78=(2.95u,2.8v); z79=(3.7u,1.65v); z80=(4.45u,1.5v); z81=(6.45u,3.7v);
+z82=(5.8u,5.35v); z83=(4.9u,7v); z84=(6.7u,9v); z84'=(7.5u,8.8v);
+z85=(8.4u,7.4v); z86=(7u,5.95v); z87=(5.85u,7.1v); z88=(7u,8.35v);
+z89=(7.75u,7.6v); z90=(8.7u,8.4v); z91=(9u,8.8v); z92=(8.75u,9.05v);
+z93=(6.8u,3.6v); z94=(6.7u,5.4v); z95=(6.25u,5.55v); z96=(7.2u,3.5v);
+z97=(8.6u,5.15v); z98=(8.6u,4.55v); z99=(8.7u,6.6v); z100=(7.3u,2.65v);
+z101=(8.15u,2.55v); z102=(9u,2.9v); z103=(8.7u,3.2v); z104=(8.7u,1.5v);
+z105=(7.7u,0.5v); z106=(6.9u,1.2v); z107=(7.6u,1.9v); z108=(8.15u,1.5v);
+z109=(7.75u,v); z110=(1.25u,6.8v); z111=(1.25u,5.9v); z112=(-0.2u,6.85v);
+z113=(0.85u,4v); z114=(2.4u,4.35v); ka(44,180); ka(43,-90); ka(42,-60);
+ka(41,-90); ka(40,180); ka(50,0); ka(49.1,0); ka(49.2,90); ka(51,90);
+ka(52,180); ka(53,-90); ka(54,161); ka(55,90); z44'=z44; ka(44',0); ka(45,-49);
+ka(46,0); ka(47,90); ka(48,180); ka(49,-90); ka(56,-92); ka(57,0); ka(58,90);
+ka(59,180); ka(60,-139); ka(61,-90); ka(62,180); ka(63,90); ka(64,0);
+ka(65,-90); ka(66,90); ka(67,0); ka(67',0); ka(68,90); ka(69,180); ka(70,-90);
+ka(71,120); ka(72,90); ka(73,0); ka(74,-90); ka(75,180); ka(76,0); ka(77,90);
+ka(78,180); ka(79,-114); ka(80,-90); ka(81,0); ka(82,36); ka(83,0); ka(84,-90);
+ka(85,180); ka(86,90); ka(87,0); ka(88,-90); ka(89,180); ka(90,-90); ka(91,0);
+ka(92,90); ka(93,0); ka(94,35); ka(95,90); ka(96,-24); ka(97,-90);
+penpos98(0.3v,90); ka(99,-90); ka(100,-90); ka(101,-115); ka(102,0); ka(103,90);
+ka(104,180); ka(105,90); ka(106,0); ka(107,-90);  ka(108,180); ka(109,90);
+ka(84',-74); penstroke z44e{down}...z43e... z42e{(9u,4.6v)-z42}...z41e...
+z40e{down}; kouki(40,3,1.2); penstroke z42e{(9u,4.6v)-z42}...
+z50e...z51e{left}...z54e...z55e{left}; kouki(55,5,1.5);  penstroke
+z51e{left}...z52e... z53e{right}; kouki(53,6,1.1); penstroke
+z44'e{up}...z45e...z46e... z47e...z48e...z49e...z49.1e...z49.2e{left}; 
+kouki(49.2,7,1.3); penstroke z56e{(9u,-0.2v)-z56}...
+z57e...z58e...z71e{(0,7.3v)-z71}...z59e... z60e{(4.8u,0)-z60}...z61e...z46e{up};
+mpalla(58,1.1); mpalla(60,1.5); penstroke z60e{(4.8u,0)-z60}...
+z62e...z63e...z64e{up}...z65e... z66e...z67e{up}; kouki(67,2,1.2);
+mpalla(64,1.2); penstroke z64e{up}...z67'e...z68e... z69e...z70e{right};
+kouki(70,6,1.5); penstroke z71e{(0,7.3v)-z71}...z72e
+...z73e...z74e{right}...z75e{down}; penstroke z74e{right}...z76e{up};
+kouki(75,3,1.2); kouki(76,1,1.4); penstroke z77e{left}...z78e...z79e
+...z80e{right}...z81e...z82e...z83e ...z84e...z84'e{(9u,8v)-z84'}...
+z85e...z86e...z87e...z88e... z89e{down}; kouki(89,3,1.4); penstroke
+z84'e{(9u,8v)-z84'}... z90e...z91e...z92e{left}; kouki(92,7,1.2);
+mpalla(84',1.4); mpalla(79,1.4); z200=(6.2u,2.2v); z201=(7u,4.1v);
+z202=(6.85u,5.05v); z203=(6.5u,5.7v); z204=(6.25u,6.4v); z205=(6.3u,5.4v);
+z206=(5.75u,5v); z207=(6.1u,4.6v); z208=(6.4u,4.8v); z209=(6.4u,2.2v);
+z210=(7.2u,3.3v); z211=(7.7u,4.2v);  z212=(7.5u,4.7v);  z213=(8.4u,3.8v);
+z214=(9.35u,3v); z215=(8.6u,2.05v); z216=(7.7u,2.8v); z217=(8.4u,3.4v);
+z218=(8.75u,3.1v); z219=(5.3u,-0.1v); z220=(7.5u,1.25v); z221=(8.35u,2.3v);
+z222=(8.8u,2.5v); z223=(9.1u,2.7v); z224=(9u,2.9v); z225=(6.55u,0.1v);
+z226=(6.85u,-0.1v); z227=(8.4u,0.3v); z228=(9u,0.15v); z229=(9.2u,0.6v);
+ka(200,-36); ka(201,0); ka(202,19); ka(203,30); ka(204,0); ka(205,90);
+ka(206,180); ka(207,-90); ka(208,0); ka(209,-36); ka(210,-36); ka(211,0);
+ka(212,90);  ka(213,-90); ka(214,180); ka(215,90); ka(216,0);  ka(217,-90);
+ka(218,180); ka(219,-71); ka(220,-45); ka(221,-40); penpos222(0.2v,-90);
+ka(223,0); ka(224,20); penpos225(0.15uv,-142); ka(226,-90);  ka(227,-70);
+penpos228(0.2v,-90);  ka(229,0); z230=(6.45u,2.05v); z231=(7.2u,2.75v);
+ka(230,-46); ka(231,-90); penstroke z200e{(9u,6v)-z200}...z201e
+...z202e{(4.6u,9v)-z202}...z203e... z204e{up}; kouki(204,2,1.2); penstroke
+z202e{(4.6u,9v)-z202}... z205e...z206e...z207e...z208e{up}; kouki(208,1,1.6);
+mpalla(201,1.4); penstroke z209e{(9u,5.4v)-z209}... z210e{z210-z209}...z211e...
+z212e{left}; kouki(212,7,1.2); penstroke z210e{z210-z209}...z213e...
+z214e...z215e...z216e...z217e... z218e{down}; kouki(218,3,1.4); penstroke
+z219e{(9u,1.2v)-z219}... z220e...z221e...z222e...z223e... z224e; penstroke
+z219e{(9u,1.2v)-z219}... z225e...z226e{right}; kouki(226,6,1); penstroke
+z227e{(9u,0.5v)-z227}... z228e...z229e{up}; penstroke z230e{(9u,4.5v)-z230}...
+z231e{right}; kouki(231,8,1.1); mpalla(114,1.3); mpalla(113,1.5);
+triaina(110,111,112,0.65); penlabels(range 1 thru 231);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitR.mf b/fonts/gothic/yinit/yinitR.mf
new file mode 100644
index 0000000000..e83e87a99e
--- /dev/null
+++ b/fonts/gothic/yinit/yinitR.mf
@@ -0,0 +1,120 @@
+.cmchar "The letter R";
+.beginchar("R",8.9u#+0.3mm#,8.7m*u#,0);
+.adjust_fit(0,0); 
+z1=(3.8u,0.15v); z2=(4.6u,1.1v); z3=(5.05u,1.35v); z4=(4u,1.2v);
+z5=(2.65u,1.65v); z6=(1.5u,2.35v); z7=(1.32u,3v); z8=(2.3u,3.9v);
+z9=(2.9u,3.4v); z10=(2.6u,3v); z11=(2.3u,1.8v); z12=(2.5u,1.7v);
+z13=(2.75u,1.6v); z14=(3.6u,3.25v); z15=(3.95u,3.1v); z16=(3.85u,4.3v);
+z17=(4.6u,5.55v); z18=(3u,5.9v); z19=(3.1u,6.55v); z20=(1.8u,5.5v);
+z21=(3.8u,7.25v); z22=(2.8u,7.45v); z23=(1.6u,7.15v); z24=(0.5u,7.15v);
+z25=(0.1u,7.8v); z26=(0.6u,8.3v); z27=(0.95u,8.15v); z28=(1.3u,8.1v);
+z29=(1.55u,8.4v); z30=(4.35u,6.7v); z31=(6.15u,7.55v); z32=(6.85u,8.4v);
+z33=(6.7u,7.35v); z34=(7.35u,6.85v); z35=(7.7u,6.2v); z36=(6.35u,4.65v);
+z37=(5.5u,4v); z38=(5.05u,3.2v); z39=(5.45u,2.9v); z40=(5.75u,3.1v);
+z41=(6.35u,4.05v); z42=(6.75u,3.55v); z43=(7u,1.75v); z44=(7.6u,1.1v);
+z45=(7.5u,0.4v); z46=(8.4u,1.45v); z47=(8.75u,2v); z48=(8.3u,2.55v); ka(1,-16);
+penpos2(0.1uv,-57); penpos3(0.1uv,-62); penpos4(0.95uv,38); penpos5(0.8v,101);
+penpos6(0.45uv,35); penpos7(0.25u,0); penpos8(1.5hair,-90); 
+penpos9(1.5hair,180); ka(10,90); ka(11,-47); ka(12,-49); ka(13,-50);
+penpos14(0.12uv,-14); penpos15(0.1uv,-14); penpos16(0.45u,0); penpos17(0.65u,0);
+penpos18(0.9uv,49); ka(19,180); ka(20,-71); penpos21(0.9uv,55);
+penpos22(0.9v,90); penpos23(0.85uv,105); penpos24(0.41uv,59); ka(25,0);
+penpos26(0.35v,-90); penpos27(0.4uv,-134); penpos28(0.2v,-90); ka(29,0);
+penpos30(0.1uv,-63); penpos31(0.1uv,-63); ka(32,164); penpos33(0.9uv,36);
+penpos34(0.77uv,40); penpos35(0.67u,0); ka(36,-61); penpos37(0.3uv,121.5);
+penpos38(1.5hair,180); ka(39,-90); ka(40,0); penpos41(0.7uv,51);
+penpos42(0.8u,8); penpos43(0.85u,12); penpos44(uv,49); ka(45,0);
+penpos46(0.15uv,-60); penpos47(1.5hair,0); ka(48,90); filldraw
+z1l{up}...z4l...z5l... z6l...z7l...z8l{right} & z8l--z8r & z8r{left}...
+z7r...z6r...z5r... z4r...{z2l-(u,9v)}z2l &  {(9u,4v)-z2l}z2l...z3l & z3l--z3r &
+z3r...{z2r-(9u,4v)}z2r...z1r &  z1r--z1l & cycle; penstroke z8e{right}...z9e...
+z10e{left}; kouki(10,5,2.5); filldraw z11l{(9u,8v)-z11}...z14l...
+z16l...z18l...z20r{(0,5.3v)-z20} & z20r--z20l & z20l{z20-(0,5.3v)}...
+z19r{(4.7u,9v)-z19} & z19r--z19l & z19l{z19-(2.6u,9v)}...z18r...
+(3.7u,5.85v)...z16r ...z14r...z11r{z11-(9u,8v)} & z11r--z11l & cycle; penstroke
+z12e{(9u,7.5v)-z12}... z15e...z17e...z21e...z22e...z23e...
+z24e...z25e...z26e...z27e...z28e... z29e{up}; kouki(29,1,1.2); filldraw z30l---
+z31l...z32r{(7.1u,9v)-z32} &  z32r--z32l & z32l{down}...z33r...
+z34r...z35r{down}...z36r{z37r-z36r} & z36r--z36l & z36l{z36r-z37r}...
+z35l...z34l...z33l...z31r{up} & z31r--z30r--z30l & cycle; filldraw
+z39r{left}...z38r...z37r... z36l{z36r-z37r} & z36l--z36r &
+z36r{z37r-z36r}...z41r...z42r... z43r...z44r...z46l...z47l{up} & z47l--z47r &
+z47r{down}...z46r... z45r & z45r--z45l & z45l{up}...z44l
+...z43l...z42l...z41l...z37l... z38l...z39l{right} & z39l--z39r & cycle;
+penstroke z39e{right}...z40e{up}; penstroke z47e{up}...z48e{left};
+kouki(40,1,2); kouki(48,7,1.9); z50=(3.5u,-0.1v); z51=(2.75u,0.8v);
+z52=(2.15u,0.2v); z53=(2.5u,-0.1v); z54=(2.8u,0.2v); z55=(2.3u,0.9v);
+z56=(0.8u,0); z57=(0.25u,0.5v); z58=(0.35u,0.85v); z59=(0.7u,0.9v);
+z60=(0.9u,0.6v); z61=(0.55u,1.4v); z62=(0.95u,1.7v); z63=(0.75u,2.05v);
+z64=(0.55u,2.55v); z65=(u,3.4v); z66=(2.2u,5.3v); z67=(1.1u,6.4v);
+z68=(0.05u,5.3v); z69=(0.3u,4.7v); z70=(0.7u,4.1v); z71=(0.4u,3.8v);
+z72=(0.2u,4v); z73=(u,4.45v); z74=(1.7u,5.2v); z75=(1.2u,5.8v); z76=(0.8u,5.5v);
+z77=(0,6.3v); z78=(2.3u,4.55v); z79=(3.3u,3.5v); z80=(2.5u,2.55v);
+z81=(1.75u,3.2v); z82=(2.3u,3.7v); z83=(2.5u,3.2v); z84=(5.3u,5.3v);
+z85=(2.8u,8.7v); z86=(2.8u,8.2v); z87=(3.1u,9v); z88=(0.85u,7v);
+z89=(1.7u,5.85v); z90=(2.25u,6.15v); z91=(5.1u,8v); z92=(5u,8.4v);
+z93=(6.2u,8.9v); z94=(6.55u,8.6v); z95=(6u,6.45v); z96=(2.95u,3.8v);
+z97=(5.5u,1.6v); z98=(7.9u,3.3v); z99=(7.1u,4.55v); z100=(8.1u,5.2v);
+z101=(8.4u,5.75v); z102=(8.05u,4.1v); z103=(7.7u,5v); z104=(7.2u,5.55v);
+z105=(6.5u,7.1v); z106=(7.75u,8.6v); z107=(8.2u,8.5v); z108=(8.8u,8.7v);
+z109=(8.6u,7.8v); z110=(8.05u,7.2v); z111=(7.6u,7.6v); z112=(7.9u,8.05v);
+z113=(8.2u,7.8v); z114=(8.2u,6.8v); z115=(8.7u,6.6v); z116=(8.6u,6.3v);
+z117=(5.9u,5.85v); z118=(3.7u,4.3v); z119=(4u,3.25v); z120=(5.4u,2.5v);
+z121=(6.9u,4v); z122=(5.9u,5v); z123=(4.6u,3.9v); z124=(6.4u,0.6v);
+z125=(5.6u,-0.2v); z126=(5u,0.1v); z127=(4.35u,0.4v); z128=(4.9u,0.5v);
+z129=(5.45u,1.1v); z130=(5.9u,0.95v); z131=(5.7u,0.3v); z132=(6.7u,-0.1v);
+z133=(7.1u,0.2v); z134=(7.5u,0); z135=(8u,0.6v); z136=(9u,2v); z137=(8.8u,2.7v);
+z138=(8.4u,3.45v); z139=(8.65u,3.8v); z140=(9u,3.6v); z141=(8.3u,2.85v);
+z142=(7.7u,2.2v); z143=(8.1u,1.75v); z144=(8.5u,2.05v); z145=(8.75u,0.85v);
+z146=(8.75u,0.3v); ka(50,0); ka(51,90); ka(52,180); ka(53,-90); ka(54,0);
+ka(55,90); ka(56,90); ka(57,0); ka(58,-43); ka(59,-90); ka(60,180); ka(61,0);
+ka(62,32); ka(63,21); ka(64,0); ka(65,-40); ka(66,0); ka(67,90); ka(68,180);
+ka(69,-137); ka(70,180); ka(71,90); ka(72,0); ka(73,-90); ka(74,0); ka(75,90);
+ka(76,180); ka(77,0); ka(78,-90); ka(79,180); ka(80,90); ka(81,0); ka(82,-90);
+ka(83,90); ka(84,-3); ka(85,90); ka(88,180); ka(89,-90); ka(90,0); ka(91,16);
+ka(92,16); ka(93,-90); ka(94,180); ka(95,-90); ka(96,180); ka(97,-90);
+ka(98,-14); ka(99,90); ka(100,0); ka(101,-90); ka(102,0); ka(103,38); ka(104,54);
+ka(105,0); ka(106,-90); ka(107,-126); ka(108,0); ka(109,180); ka(110,90);
+ka(111,0); ka(112,-90); ka(113,180); ka(114,-137); ka(115,-139); ka(116,126);
+ka(117,90); ka(118,180); ka(119,-130); ka(120,-90); ka(121,0); ka(122,90);
+ka(123,180); ka(124,180); ka(125,90); ka(126,42); ka(127,90); ka(128,0);
+ka(129,-90); ka(130,-147); ka(131,90); ka(132,-90); ka(133,0); ka(134,-33);
+ka(135,-45); ka(136,0); ka(137,42); ka(138,0); ka(139,-90); ka(140,180);
+ka(141,90); ka(142,180); ka(143,-90); ka(144,0); ka(145,-78); ka(146,180);
+penstroke z50e{up}...z51e...z55e... z62e... z64e{up}...z78e...
+z79e...z80e...z81e... z82e...z83e{left}; penstroke z51e{left}...z52e...z53e...
+z54e{up}; kouki(54,1,1.5); penstroke z55e{left}...z56e...z57e...
+z58e{(8u,9v)-z58}...z61e{up}; kouki(61,1,1.5); penstroke
+z58e{(8u,9v)-z58}...z59e... z60e{down}; kouki(60,3,1.4); z200=(2u,0.2v);
+z201=(1.7u,-0.2v); z202=(1.5u,1.1v); triaina(200,201,202,0.7); penstroke
+z64e{up}...z65e...z66e... z67e...z68e... z69e{(5u,0)-z69}...z70e...z71e...
+z72e{up}; kouki(72,2,1.3); penstroke z69e{(5u,0)-z69}...z73e...
+z74e...z75e{left}...z76e{down}; kouki(76,4,2); penstroke z75e{left}...z77e{up};
+kouki(77,2,1.3); penstroke z13e{(9u,6v)-z13}...z84e
+{(5.6u,9v)-z84}...z85e...z88e... z89e...z90e{up}; kouki(90,1,1.6);
+mpalla(86,1.3); mpalla(87,1.3); mpalla(84,1.6); penstroke z84e{(5.6u,9v)-z84}...
+z91e...z92e;  z210=(4.6u,7.9v); z211=(4.5u,8.3v); z212=(5.5u,8.15v);
+triaina(210,211,212,0.5); penstroke z84e{(5.6u,9v)-z84}...
+z93e{right}...z94e{down}; kouki(94,3,1.5); penstroke z84e{(5.6u,9v)-z84}...
+z95e{right}; kouki(95,8,1.4); z30'=z30; ka(30',117); z38'=z38; ka(38',-90);
+mpalla(64,1.5); mpalla(62,1.2); penstroke z30'e{z30-z31}...z96e...
+z97e...z98e{(9u,7v)-z98}...z102e... z103e...z104e{z86-z104}...z117e...
+z118e...z119e{z133-z119}...z120e... z121e...z122e...z123e...z38'e{right};
+penstroke z98e{(9u,7v)-z98}... z99e{left}; kouki(99,7,1.2); penstroke
+z98e{(9u,7v)-z98}...z100e ...z101e{right}; kouki(101,8,1.2); mpalla(103,1.3);
+penstroke z104e{z86-z104}...z105e... z106e...z107e...z109e...z110e...z111e
+...z112e...z113e{down}; penstroke z109e{down}...z114e... z115e...z116e{left};
+kouki(116,5,1); penstroke z107e{right}...z108e{up}; kouki(108,1,1);
+z119'=(5.6u,1.9v); ka(119',-71); penstroke z119e{z133-z119}...
+z119'e...{down}z124e... z125e...z126e...z128e...z129e...z130e ...z131e{left};
+kouki(131,5,1.8); penstroke z126e...z127e{left}; z130'=(6.2u,0.3v);
+ka(130',-167); penstroke z130e{(6.5u,0)-z130} ...z130'e...z132e{right}...z133e
+{up}; kouki(133,1,1.5); z230=(5.1u,2.8v); z231=(6.3u,2.1v); z232=(4.5u,2v);
+triaina(230,231,232,0.5); penstroke z134e{z136-z134}...z135e
+{(9u,1.5v)-z135}...z136e... z137e{z86-z137}...z141e...z142e... z143e...z144e{up};
+penstroke z135e{(9u,1.5v)-z135}... z145e{right}; penstroke
+z135e{(9u,1.5v)-z135}... z146e{down}; kouki(146,3,1.7); mpalla(137,1.2);
+penstroke z137e{z86-z137}...z138e... z139e...z140e{down}; kouki(140,3,1.25);
+penlabels(range 1 thru 150);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitS.mf b/fonts/gothic/yinit/yinitS.mf
new file mode 100644
index 0000000000..e381e37275
--- /dev/null
+++ b/fonts/gothic/yinit/yinitS.mf
@@ -0,0 +1,117 @@
+.cmchar "The letter S";
+.beginchar("S",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0); 
+z1=(3.85u,0); z2=(4.7u,0.95v); z3=(4.05u,1.1v); z4=(3.2u,1.35v);
+z5=(1.85u,1.8v); z6=(1.55u,2.6v); z7=(2.4u,3.4v); z8=(3u,2.8v); z9=(2.6u,2.35v);
+z10=(2.25u,2.6v); z11=(6.2u,1.8v); z12=(7.35u,3.6v); z13=(7.05u,4.85v);
+z14=(5.55u,5.55v); z15=(4u,4.95v); z16=(3.25u,3.5v); z17=(4.4u,2.2v);
+z18=(6.2u,3.6v); z19=(5.3u,4.55v); z20=(4.4u,3.7v); z21=(4.9u,3.1v);
+z22=(5.6u,3.9v); z23=(6.1u,4.3v); z24=(6.4u,4.1v); z25=(6.2u,3.8v);
+z26=(6.05u,3.95v); z27=(5.4u,6.35v); z28=(7.1u,7.5v); z29=(7.6u,8.4v);
+z30=(7u,9.05v); z31=(6.5u,8.6v); z32=(6.85u,8.15v); z33=(7.05u,8.4v);
+z34=(5.5u,8.6v); z35=(3u,7.4v); z36=(2u,5.7v); z37=(2.4u,4.7v); z38=(3.4u,4.15v);
+z39=(5.3u,6v); z40=(4u,7.2v); z41=(3u,6.3v); z42=(3.2u,5.65v);
+z43=(3.75u,5.45v); z44=(4.4u,6v); z45=(4u,6.45v);  ka(1,-13); ka(2,-59);
+penpos3(uv,51); penpos4(0.9uv,77); penpos5(0.65uv,33); penpos6(0.35u,0);
+penpos7(0.15v,-90); penpos8(0.1u,180); ka(9,90); ka(10,0); kouki(10,2,2.2);
+penpos11(0.2uv,-61); penpos12(0.9u,0); penpos13(uv,39); penpos14(0.4v,90);
+penpos15(0.15uv,122); ka(16,180); ka(17,-90); ka(18,0); ka(19,90); ka(20,180);
+ka(21,-90); ka(22,-23); ka(23,-90); ka(24,180); ka(25,90); ka(26,0);
+penpos27(0.1uv,-55); penpos28(0.25uv,-55); ka(29,0); ka(30,90); ka(31,180);
+ka(32,-90); ka(33,0); kouki(33,1,1.7); ka(34,156); penpos35(1.5hair,-61);
+penpos36(0.7u,0); penpos37(0.85uv,47); penpos38(0.7v,90); penpos39(0.15u,180);
+ka(40,-90); ka(41,0); ka(42,42); ka(43,90); ka(44,180); ka(45,-90); z45'=z45;
+ka(45',90); kouki(45',7,2); filldraw z1r{z34-z1}...z2r...z11r
+...z12r...z13r{(4.4u,9v)-z13r} & z13r--z13l & z13l{z13r-(4.4u,9v)}...
+z12l...z11l...z2l{(3u,0)-z2l} & z2l{up}...z3r...z4r...z5r...z6r...
+z7r...z8r...z9r...z10r{up} &  z10r--z10l & z10l{down}...z9l...
+z8l...z7l...z6l...z5l...z4l...z3l... z1l{down} & z1l--z1r & cycle; penstroke
+z13e{(4.4u,9v)-z13r}... z14e...z15e...z16e...z17e{right}...
+z18e...z19e...z20e...z21e{right}... z22e...z23e...z24e...z25e... z26e{up};
+ka(15',-40); z15'l=z15r; filldraw z27l{z28-z27}... (5.4u,7.15v)...z35r{z35-z34} &
+z35r--z35l & z35l{z34-z35}... (4.95u,8.15v)...z34r{z34-z13} & z34r--z34l &
+z34l{z13-z34}... (5.7u,7.7v)...z28l{z28-z27}.. z29l{up} & z29l--z29r & 
+z29r{down}...z28r{z27-z28}---z27r & z27r--z27l & cycle; kouki(26,2,1); penstroke
+z15'e{z32-z15}... z27e{z28-z27}; penstroke z29e{up}...z30e...z31e...
+z32e...z33e{up}; penstroke z45e{right}...z44e...z43e...
+z42e...z41e...z40e...z39e...z38e... z37e...z36e...z35e{z34-z35};
+z50=(5.45u,5.55v);  z51=(4.8u,3.85v); z51'=(3.3u,2.2v); z52=(3.4u,2.8v);
+z53=(1.3u,1.8v); z54=(0.75u,v); z55=(1.5u,0.1v); z56=(2.6u,0.5v);
+z57=(3.2u,0.2v); z58=(2.05u,0.6v); z59=(1.7u,1.1v); z60=(0.5u,0);
+z60'=(0.15u,0.3v); z61=(1.9u,2.9v); z62=(0.25u,2.2v); z63=(0.65u,1.8v);
+z64=(0.9u,2v); z65=(0.5u,4v); z66=(0.7u,4.3v); z67=(0.5u,3v); z68=(0.05u,3.4v);
+z69=(3.2u,3.2v); z70=(1.4u,4.15v); z71=(0.8u,5.6v); z72=(1.05u,7v);
+z73=(1.4u,8.2v); z74=(0.7u,9v); z75=(0.1u,8.8v); z76=(-0.1u,9v); z77=(0,8.35v);
+z78=(0.5u,7.75v); z79=(u,8.1v); z80=(0.95u,8.3v); z81=(0.65u,8.4v);
+z82=(0.55u,8.15v); z83=(0.3u,8.3v); z84=(0.9u,7.4v); z85=(1.9u,7.95v);
+z86=(4.25u,8.9v); z87=(3.15u,8.5v); z88=(4.5u,8.4v); z89=(5.1u,8.9v);
+z90=(4.9u,9.2v); z91=(4.25u,7.5v); z92=(3.5u,6.7v); z93=(2.75u,7.4v);
+z94=(3.3u,7.95v); z95=(3.75u,7.5v); z96=(6.1u,8.3v); z97=(7.45u,7.15v);
+z98=(7.85u,6.45v); z98.1=(7.65u,6.7v); z98.2=(8.2u,6.2v); z99=(8.55u,6.1v);
+z100=(7.1u,6.85v); z101=(6.5u,6.1v); z102=(8u,7.4v); z103=(8.7u,8v);
+z104=(8.45u,8.25v); z105=(8.3u,8v); z106=(8u,7.9v); z107=(7.8u,8.9v);
+z108=(8.05u,8.75v); z109=(8.4u,8.85v); z110=(8.7u,8.7v); z111=(4.1u,0);
+z112=(5.75u,1.15v); z113=(8u,2.95v); z114=(7.85u,5.25v); z115=(8.8u,4.05v);
+z116=(6.5u,6.2v); z117=(4.4u,5.4v); z118=(4.3u,0); z119=(5.2u,0.3v);
+z120=(5.5u,0.6v); z121=(6.5u,0.3v); z122=(7.6u,0); z123=(8.25u,0.15v);
+z124=(8.25u,0.55v); z125=(8.7u,0.3v); z126=(8.65u,v); z127=(8.05u,1.6v);
+z128=(7.7u,1.3v); z129=(7.8u,1.05v); z130=(7.5u,0.65v); z131=(7.15u,0.9v);
+z132=(6.85u,0.85v); z133=(6.5u,v); z134=(6.5u,0.7v); z135=(5.5u,0.8v);
+z136=(6.25u,0.9v); z137=(4.9u,2.6v); z138=(4.65u,1.5v); z139=(5.5u,1.75v);
+z140=(5.1u,1.55v); ka(42.1,-138); z42.1=z42; ka(50,180); ka(51,136); ka(52,114);
+ka(51',180);  ka(53,127); ka(54,180); ka(55,-90);  penpos56(0.2v,-90);
+ka(57,-90); ka(58,0);  ka(59,90); ka(60,90); ka(60',0);  ka(61,90); ka(62,180);
+ka(63,-90);  ka(64,0); ka(65,0); ka(66,-90);  ka(67,90); ka(68,0); ka(69,90); 
+ka(70,39); ka(71,0); ka(72,-29);  ka(73,0); ka(74,90); ka(75,90);  ka(76,0);
+ka(77,180); ka(78,-90);  ka(79,0); penpos80(0.1uv,64);  penpos81(0.3v,90);
+penpos82(0.25uv,129); ka(83,36); ka(84,180); ka(85,-50);  ka(86,-90);
+ka(87,-90); ka(88,-90);  ka(89,0); ka(90,90); ka(91,180);  ka(92,90); ka(93,0);
+ka(94,-90);  ka(95,180); ka(96,-130); ka(97,-145);  ka(98.1,-130);
+penpos98(0.32uv,-130); ka(98.2,-130); ka(99,-90); ka(100,180);  ka(101,90);
+ka(102,-90); ka(103,0);  penpos104(0.25uv,113); penpos105(0.22v,180);
+ka(106,90); ka(107,-90); ka(108,-132);  ka(109,-90); ka(110,-90); ka(111,-21); 
+ka(112,-67); ka(113,-21); ka(114,36);  ka(115,-90); ka(116,90); ka(117,129); 
+ka(118,-44); ka(119,-90); ka(120,-90);  ka(121,-112); ka(122,-90); ka(123,-56); 
+ka(124,0); ka(125,-90); ka(126,0);  penpos127(1.3hair,90); penpos128(0.33u,180);
+penpos129(0.4uv,-148); penpos130(1.3hair,90); ka(131,0); ka(135,-81);
+penpos136(0.15v,-81);  ka(137,0); ka(138,90); ka(139,-90);  
+% z50l=z39l; 
+penstroke z50e{down}...z51e{z58-z51}...z52e...
+z53e...z54e...z55e...
+z58e...z59e{left}...z60e{left}...z60'e{up}; kouki(60',2,1.6); penstroke
+z55e{right}...z56e... {right}z57e; kouki(57,6,1.4); penstroke
+z51e{z58-z51}...z51'e{down}; kouki(51',4,1.2); penstroke
+z51e{z58-z51}...z61e{left} ...z62e{down}...z63e...z64e{up}; kouki(64,1,1.5);
+penstroke z61e{left}...z65e...z66e{right}; kouki(66,8,1.4); penstroke
+z61e{left}...z67e...z68e{up}; mpalla(67,1.3); kouki(68,2,1.3); penstroke
+z51e{z58-z51}...z69e...z70e ...z71e...z72e...z73e...z74e
+...z77e...z78e...z79e...z80e...z81e ...z82e...z83e{z83-z137}; penstroke
+z74e{left}...z75e... z76e{up}; kouki(76,2,1); penstroke z78e{right}...z84e{down};
+kouki(84,3,1); penstroke z72e{z73-z72}...z85e...z86e ...z96e{z99-z96}...z97e...
+z98.1e--z98e--z98.2e... z99e{right}; kouki(99,6,1.3); mpalla(70,1.3);
+mpalla(71,1.5); mpalla(85,1.4); penstroke z85e...z87e{right}...z88e
+...z89e...z90e{left}; kouki(90,7,1.4); penstroke z87e{right}...z91e...z92e...
+z93e...z94e...z95e{down}; kouki(95,3,1.5); penstroke z96e{z99-z96}...z102e...
+z103e...z104e...z105e...z106e{left}; penstroke z96e{z99-z96}...z100e...
+z101e{left}; kouki(101,5,1.75); penstroke z32e{right}...z107e{right}
+...z108e...z109e...z110e{right}; kouki(110,6,1.1); z42'=(3.15u,4.85v);
+ka(42',90); penstroke z42.1e{z51-z42}...z42'e{left}; kouki(42',5,1.2); penstroke
+z111e{z29-z111}...z112e... z113e...z114e...z116e...z117e; mpalla(113,1.7);
+mpalla(114,1.3); penstroke z113e{z98-z112}...z115e{right}; kouki(115,8,1);
+penstroke z118e{z115-z118}...z119e {right}; kouki(119,8,1.2); penstroke
+z118e{z115-z118}...z120e... z121e...z122e...z123e...z126e...
+z127e...z128e...z129e...z130e... z131e{up}; kouki(131,2,1.2); mpalla(132,1.2);
+mpalla(133,1.2);  mpalla(134,1.2);  filldraw z135r--z136r & z136r..z136l &
+z136l--z135l & z135l--z135r & cycle; penstroke z123e...z125e{right};
+kouki(125,8,1.2); penstroke z122e{right}...z124e{up}; kouki(124,1,1.15);
+penstroke z17e{right}...z137e{up}; kouki(137,1,1.2); penstroke
+z17e{right}...z138e{left}; kouki(138,5,1.25); penstroke
+z17e{right}...z139e{right}; kouki(139,6,1.3); mpalla(140,1.2);
+z200=(0.05u,6.1v); z201=(0.2u,7.15v); z202=(1.5u,5.9v); z210=(1.7u,8.65v);
+z211=(2.4u,9.1v); z212=(2.4u,7.5v); z220=(4.85u,3.7v); z221=(5.15u,4.15v);
+z222=(5.8u,3v); z230=(6.75u,2.4v); z231=(7.3u,3.05v); z232=(8.1u,1.6v);
+z240=(8.2u,7.6v); z241=(8.7u,7v); z242=(6.6u,6.4v); triaina(200,201,202,0.4);
+triaina(210,211,212,0.6); triaina(220,221,222,0.5); triaina(230,231,232,0.5);
+triaina(240,241,242,0.6); penlabels(range 1 thru 250);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitT.mf b/fonts/gothic/yinit/yinitT.mf
new file mode 100644
index 0000000000..8ca2c14e16
--- /dev/null
+++ b/fonts/gothic/yinit/yinitT.mf
@@ -0,0 +1,113 @@
+.cmchar "The letter T";
+.beginchar("T",8.9u#+0.2mm#,8.7m*u#,0);
+.adjust_fit(0,0); 
+z1=(1.5u,1.3v); z2=(1.8u,1.1v); z3=(2.15u,1.4v); z4=(2.1u,1.7v); z5=(2.3u,2.1v);
+z6=(2.9u,1.8v); z7=(3u,1.3v); z8=(1.9u,0.4v); z9=(0.65u,1.7v);
+z10=(2.35u,3.15v); z11=(3.25u,3v); z12=(4.15u,2.15v); z13=(4.8u,1.25v);
+z14=(6.3u,0.7v); z15=(7.7u,1.3v); z16=(8.2u,2.6v); z17=(7.1u,3.7v);
+z18=(6.45u,3.25v); z19=(6.7u,2.75v); z20=(7u,2.75v); z21=(7.25u,2.4v);
+z22=(7u,2.25v); z23=(4.4u,1.85v); z24=(5.3u,3v); z25=(4.9u,3.8v);
+z26=(4.3u,4.1v); z27=(4.2u,4.65v); z28=(3.25u,3.7v); z29=(4.6u,1.6v);
+z30=(6u,3.3v); z31=(5.7u,4.4v);  z32=(4.57u,5.25v); z33=(4.3u,6v);
+z34=(4.8u,6.55v); z35=(5.6u,6.1v); z36=(1.9u,6.2v); z37=(2.2u,6.1v);
+z38=(2.6u,6.55v); z39=(2.35u,6.85v); z40=(2.4u,7.4v); z41=(3.35u,7.35v);
+z42=(3.6u,6.5v); z43=(2.4u,5.4v); z44=(1.15u,6.8v); z45=(3.05u,8.6v);
+z46=(4.45u,8.1v); z47=(5.45u,7.35v); z48=(6.8u,6.75v); z49=(8.05u,7.95v);
+z50=(7.25u,8.65v); z51=(6.55u,8.1v); z52=(6.8u,7.7v); ka(1,-136);
+penpos2(0.08v,-90); penpos3(0.5u,0); penpos4(0.55uv,22); penpos5(0.3uv,-55);
+penpos6(1.5hair,-155); ka(7,180); ka(8,90); ka(9,0); penpos10(0.6v,-90);
+penpos11(0.92uv,-123); penpos12(1.05uv,-143);  penpos13(uv,-143);
+penpos14(0.65v,-90); penpos15(0.2uv,-23); ka(16,0); penpos17(1.5hair,90);
+penpos18(0.25u,180); penpos19(0.6uv,-117); penpos20(0.55v,-90);
+penpos21(0.2uv,-163); ka(22,105); ka(23,-53);  penpos24(0.25u,0);
+penpos25(0.55uv,48); penpos26(0.8uv,45); ka(27,180); ka(28,-65); ka(29,-57); 
+penpos30(0.37u,0); penpos31(0.8uv,37); penpos32(0.9uv,44);penpos33(0.5u,0);
+penpos34(0.2uv,-67); ka(35,180); ka(36,-132); penpos37(0.1v,-90);
+penpos38(0.5u,6); penpos39(0.55uv,42); penpos40(0.3uv,-60);
+penpos41(1.5hair,-138); ka(42,180); ka(43,90); penpos44(1.5hair,0);
+penpos45(0.65v,-90); penpos46(1.1uv,-130); penpos47(1.03uv,-130);
+penpos48(0.6v,-90); penpos49(1.5hair,0); ka(50,90);  ka(51,180); ka(52,-90);
+penstroke z1e{(1.6u,0)-z1}...z2e... z3e...z4e...z5e...z6e...z7e...z8e{left}...
+z9e{up}...z10e...z11e...z12e...z13e... z14e...z15e...z16e...z17e...z18e...
+z19e...z20e...z21e...z22e{left}; penstroke z29e{(9u,4.6v)-z29}...z30e
+...z31e...z32e...z33e...z34e... z35e{down}; kouki(35,3,2.1); filldraw
+z23r{(9u,4.6v)-z29}...z24r ...z25r...z26r...z27l{up} & z27l--z27r &
+z27r{z11r-z27}...z28l & z28l--z28r & z28r{z26r-z28}...z26l ...z25l...z24l...
+z23l{z29-(9u,4.6v)} & z23l--z23r & cycle; penstroke z36e{z30r-z36}...z37e...
+z38e...z39e{z39-z16}...z40e...z41e...z42e... z43e...z44e...z45e...z46e...z47e...
+z48e...z49e...z50e...z51e... z52e{right}; kouki(52,6,2.1); z60=(2.3u,1.7v);
+z61=(2.7u,1.4v); z62=(1.9u,0.7v); z63=(1.1u,1.5v); z64=(2.2u,2.55v);
+z65=(3.25u,1.9v); z66=(2u,0); z67=(0.1u,1.8v); z68=(1.1u,3.55v);
+z69=(2.5u,4.05v); z70=(4.3u,3.3v); z71=(4.65u,2.75v); z72=(4.8u,3.1v);
+z73=(5.15u,0.1v); z74=(6u,-0.05v); z75=(7.1u,0.2v); z76=(8.5u,0.8v);
+z77=(9u,0.4v); z78=(8.65u,0); z79=(8.4u,0.2v); z80=(8.87u,1.15v);
+z81=(8.75u,2.6v); z82=(8.6u,3.5v); z82'=(8.45u,3.7v); z82.1=z82;
+z83=(7.15u,4.45v); z84=(5.5u,3v); z85=(5.95u,1.75v); z86=(6.7u,2v);
+z87=(6.8u,1.4v); z88=(7.9u,2.6v); z89=(7.1u,3.4v); z90=(3.1u,0); z91=(4.3u,0);
+z92=(4.8u,1.4v); z93=(6.5u,3.7v); z94=(6u,5.2v); z95=(3.8u,6.25v);
+z96=(1.85u,5.2v); z97=(0.65u,3.9v); z98=(0.05u,4.4v); z99=(0.3u,4.8v);
+z100=(0.65u,4.75v); z101=(0.7u,4.5v); z102=(0.9u,4.3v); z103=(1.1u,4.5v);
+z104=(2.8u,3.5v); z105=(3.9u,4.5v); z106=(3u,5.3v); z107=(2.35u,4.8v);
+z108=(2.8u,4.25v); z109=(3.2u,4.6v); z110=(1.65u,6.5v); z111=(2.65u,7.9v);
+z112=(3.9u,6.6v); z113=(2.3u,4.8v); z114=(0.5u,7v); z115=(0.4u,8.05v);
+z116=(1.9u,8.9v); z117=(4.6u,8.9v); z118=(7u,7.3v); z119=(7.7u,7.9v);
+z120=(7.3u,8.3v); z121=(7.05u,8v); z122=(3u,6.1v); z123=(4.9u,8.85v);
+z124=(6.3u,9.2v); z125=(7.65u,9.05v); z126=(9u,6.4v); z127=(7.5u,4.8v);
+z128=(6.8u,5.25v); z129=(6.4u,6.2v); z130=(5.7u,6.4v); z131=(7u,7.75v);
+z131.1=(8.3u,7.5v); z131.2=(9u,8.1v); z131.3=(8.6u,8.5v); z131.4=(8.2u,8.2v);
+z131.5=(8.5u,7.95v); z132=(8.2u,6.5v); z133=(7.5u,5.65v); z134=(6.95u,6.15v);
+z135=(6.3u,8.4v); z136=(0.6u,8.45v); z137=(0.05u,8.9v); z138=(0.55u,9.15v);
+z139=(0.65u,8.95v); z140=(0.9u,8.85v); z141=(u,9v); z117'=(5.85u,8v);
+ka(60,-90); ka(61,180); ka(62,90); ka(63,0); ka(64,-90); ka(65,-145); ka(66,90);
+ka(67,0); ka(68,-51); ka(69,-90); ka(70,-133); ka(71,-180); ka(72,-90);
+ka(73,-106); ka(74,-90); ka(75,-68); ka(76,-90); ka(77,180); ka(78,90);
+ka(79,0); ka(81,0); ka(82,26); ka(82',32); penpos82.1(0.5uv,26); ka(83,90);
+ka(84,180); ka(85,-127); ka(86,0); ka(87,-90); ka(88,0); ka(89,90); ka(90,90);
+ka(91,-90); ka(92,-55); ka(93,0); ka(94,39); ka(95,90); ka(96,159); ka(97,90);
+ka(98,0); ka(99,-67.5);  penpos100(0.3uv,-148); penpos101(0.25u,180);
+penpos102(1.5hair,-90); ka(103,0); ka(104,-90); ka(105,0); ka(106,90);
+ka(107,180); ka(108,-90); ka(109,0); ka(110,39); ka(111,-90); ka(112,180);
+ka(113,90); ka(114,0); ka(116,-61); ka(117,-115); ka(118,-90); ka(119,0);
+ka(120,90); ka(121,180); z70'=z70; ka(70',47); ka(122,0); ka(123,-59);
+ka(124,-90); ka(125,-120); ka(126,180); ka(127,90); ka(128,30); ka(129,90);
+ka(130,0); ka(131,-90); ka(131.1,-90); ka(131.2,0); ka(131.3,90); ka(131.4,180);
+ka(131.5,-90); ka(132,180); ka(133,90); ka(134,0); ka(135,180); z116'=z116;
+ka(116',119); ka(136,90); ka(137,0); penpos138(0.25uv,-139); 
+penpos139(0.2uv,-145); ka(117',-133); penpos140(1.5hair,-90); ka(141,0);
+ka(142,0); z142=(8.9u,9.2v); penstroke z60e{right}...z61e...z62e
+...z63e...z64e...z65e{z91-z65}...z66e...z67e ...z68e...z69e...z70e{z85-z70}
+...z71e{down}; penstroke z70e{z85-z70}...z72e{right}; kouki(63,2,1.5);
+mpalla(68,1.4); mpalla(70,1.4); kouki(71,3,1.15); kouki(72,6,1.1); penstroke
+z65e{z91-z65}...z73e... z74e...z75e...z81e...z82e...z82'e...
+z83e...z84e...z85e...z87e...z88e... z89e{left}; mpalla(73,1.3); mpalla(75,1.3);
+penstroke z75e...z76e{right}...z77e ...z78e...z79e{up}; kouki(79,2,1.3);
+mpalla(80,1.4); z200=(8.6u,2.45v); kouti(81,200); penstroke z85e...z86e{up};
+kouki(86,1,1.3); penstroke z65e{z91-z65}...z90e{left}; z91'=(3.75u,0.5v);
+ka(91',-158); penstroke z65e{z91-z65}... z91'e...z91e{right}; kouki(90,5,0.8);
+kouki(91,6,0.8); penstroke z92e{z19-z92}...z93e...z94e
+...z95e...z96e{z9-z96}...z97e...z98e ...z99e...z100e{dir-45}...z101e...z102e...
+z103e{up}; penstroke z96e{z9-z96}...z104e... z105e...z106e...z107e...z108e...
+z109e{up}; z201=(5.95u,4.9v); kouti(94,201); kouki(109,1,1); z202=(3.7u,4.9v);
+z203=(3.6u,4.7v); ka(202,22); kouti(202,203); filldraw
+z81r{up}...z82.1r{z82r-z82l} & z82.1r{z82l-z82r}...z82'r & z82'r--z82'l &
+z82'l...z82.1l{z82l-z82r} & z82.1l{z82r-z82l}...z81l{down} & z81l--z81r & cycle;
+penstroke z110e{z138-z110}...z111e... z112e...z113e...z114e...z116e...z117e
+...z117'e ...z118e...z119e...z120e...z121e{down}; z205=(0.35u,6.9v);
+kouti(114,205); penstroke z70'e{z70-z85}...z122e...
+z123e...z124e...z125e{(9u,8.5v)-z125}...z126e...
+z127e{left}...z128e...z129e{left}; penstroke z127e{left}...z130e...
+z131e{right}...z131.1e...z131.2e... z131.3e...z131.4e...z131.5e{right};
+penstroke z131e{right}...z132e... z133e...z134e{up}; penstroke
+z123e{z124-z123}...z135e{down}; kouki(135,3,1.2); penstroke
+z125e{(9u,8.5v)-z125}...z142e{up}; kouki(142,1,1.1); mpalla(126,1.2);
+mpalla(115,1.5); kouki(128,2,1.4); kouki(131.5,6,1.1); kouki(133,5,1.9);
+penstroke z116'e{z115-z116}...z136e... z137e...z138e...z139e...z140e...
+z141e{up}; kouki(129,7,1.2); z143=(4.1u,7.15v); z144=(4.4u,6.9v); ka(143,-90);
+ka(144,180); penstroke z122e{up}...z143e...z144e {down}; kouki(144,3,1.2);
+z250=(7.5u,3.2v); z251=(6.9u,4.15v); z252=(9.3u,4.3v); z260=(-0.15u,3.3v);
+z261=(0.2u,3.9v); z262=(1.05u,2.6v); z270=(1.4u,6.5v); z271=(1.7u,5.55v);
+z272=(-0.2u,6v); z280=(0.4u,-0.2v); z281=(0,0.3v); z282=(1.4u,0.6v);
+triaina(250,251,252,0.5); triaina(260,261,262,0.45); triaina(270,271,272,0.6);
+triaina(280,281,282,0.4); penlabels(range 1 thru 282);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitU.mf b/fonts/gothic/yinit/yinitU.mf
new file mode 100644
index 0000000000..17be2c1630
--- /dev/null
+++ b/fonts/gothic/yinit/yinitU.mf
@@ -0,0 +1,120 @@
+.cmchar "The letter U";
+.beginchar("U",8.9u#+0.2mm#,8.7m*u#,0);
+.adjust_fit(0,0); 
+z1=(4.3u,0.45v); z2=(5.15u,1.4v); z3=(4.45u,1.55v); z4=(3.25u,2v);
+z5=(2u,3.35v); z6=(2.8u,4v); z7=(3.4u,3.5v); z8=(3.2u,3.2v); z9=(7u,3.1v);
+z10=(7.85u,0.75v); z11=(8.5u,1.65v); z12=(9u,2.4v); z13=(8.5u,2.9v);
+z14=(8.1u,2.5v); z15=(7.7u,1.5v); z16=(7u,3.05v); z17=(7.05u,6v);
+z18=(7.4u,7.35v); z19=(7.8u,7.85v); z20=(8.65u,8.3v); z21=(8.8u,8.65v);
+z22=(3.6u,2v); z23=(5u,5.7v); z24=(4.25u,7.4v); z25=(3.1u,7.4v); z26=(1.4u,7.3v);
+z27=(1.1u,8v); z28=(1.8u,8.35v); z29=(2.4u,8.15v); z30=(2.9u,8.5v);
+z31=(3.4u,2v); z32=(4.15u,4.3v); z33=(4u,5.45v); z34=(3.4u,6v);
+z35=(3.65u,6.6v); z36=(2.6u,5.7v); ka(1,0); penpos2(0.18uv,-61); penpos3(uv,49);
+penpos4(0.85uv,112); penpos5(0.2u,0); penpos6(1.5hair,-90); ka(7,180); ka(8,90);
+penpos9(2hair,-48); penpos2'(2hair,-48); x2'=5.3u; z2'r=whatever[z2r,z9r];
+ka(10,0); penpos11(0.2uv,-58); penpos12(1.5hair,0); ka(13,90);  ka(14,180);
+penpos15(0.95uv,54); penpos16(0.8u,0); penpos17(0.7u,0); penpos18(0.3uv,-34);
+penpos19(1.5hair,-58); ka(20,-61); ka(21,0); ka(22,-33); penpos23(0.7u,5);
+penpos24(1.1uv,59); penpos25(0.95uv,117); penpos26(0.35uv,61); ka(27,0);
+penpos28(0.55uv,-130); penpos29(0.2v,-90); ka(30,-77); ka(31,-27);
+penpos32(0.3u,0); penpos33(0.67uv,36); penpos34(uv,37); ka(35,160); ka(36,-74);
+filldraw z1r---z2r---z2'r---z9r & z9r--z9l & z9l---z2'l...z2l...z3r...
+z4r...z5r...z6r{right} & z6r--z6l & z6l{left}...z5l...z4l...z3l... z1l{down} &
+z1l--z1r & cycle;  penstroke z6e{right}...z7e...z8e{left}; kouki(8,5,2.3);
+filldraw z10r{z13-z10}...z11r... z12r{up} & z12r--z12l & z12l{down}...
+z11l...z15r...z16r...z17r...z18r... z19r...z20r...z21r{up} & z21r--z21l &
+z21l{down}...z20l...z19l...z18l... z17l...z16l...z15l...z10l{z10-z25r} &
+z10l--z10r & cycle; kouki(21,1,1.8); penstroke z12e{up}...z13e...z14e{down};
+kouki(14,4,1.8); penstroke z22e{(8.1u,9v)-z22}...z23e
+...z24e...z25e...z26e...z27e... z28e...z29e...z30e{(5.5u,9v)-z30}; filldraw
+z31r{(7.3u,9v)-z31}...z32r ...z33r...z34r...z35l{up} & z35l--z35r &
+z35r{z34l-z35}...z36l{z36-z34r} & z36l--z36r & z36r...z34l...z33l...
+z32l...z31l{z31-(7.3u,9v)} & z31l--z31r & cycle; z40=(4.1u,0); z41=(3.55u,v);
+z42=(3.05u,0.4v); z43=(3.5u,-0.05v); z44=(3.85u,0.4v); z45=(3.65u,0.65v);
+z46=(2.8u,0.6v); z47=(2.75u,0.2v); z48=(2.65u,-0.1v); z49=(1.5u,0.1v);
+z50=(u,0.25v); z51=(0.6u,0.3v); z52=(0.65u,v); z53=(0.75u,1.6v);
+z54=(1.25u,1.5v); z55=(1.75u,v); z56=(1.4u,0.55v); z57=(1.1u,0.8v);
+z58=(1.2u,v); z59=(1.45u,0.97v); z60=(1.6u,1.1v); z61=(1.1u,2.4v);
+z62=(0.95u,3v); z63=(2.5u,4.75v); z64=(3.75u,3.7v); z65=(3u,2.8v);
+z66=(2.4u,3.3v); z67=(2.8u,3.75v); z68=(3u,3.45v); z69=(1.9u,5v);
+z70=(1.6u,5.4v); z71=(1.1u,6v); z72=(0.55u,5.25v); z73=(0.6u,4.55v);
+z74=(0.9u,5.05v); z75=(1.2u,5.4v); z76=(4u,5.6v); z77=(3u,6.6v);
+z78=(2.05u,5.9v); z79=(2.7u,5.15v); z80=(3.2u,5.7v); z81=(2.8u,6.15v);
+z81'=(4.05u,1.85v); z82=(3.2u,1.35v); z83=(1.5u,3v); z84=(2.8u,4.2v);
+z85=(4.8u,2.6v); z86=(5u,3.3v); z87=(5.85u,4.5v); z88=(5.6u,5.1v);
+z89=(5.95u,5.6v); z90=(3.8u,8.5v); z91=(1.65u,8v); z92=(u,7.75v);
+z93=(0.3u,8.4v); z94=(0.5u,8.7v); z94'=(0.3u,9v); z95=(0.85u,8.85v);
+z96=(1.15u,8.5v); z97=(0.9u,8.2v); z97'=(u,7v); z98=(0.85u,6v); z99=(4.3u,1.7v);
+z100=(5.6u,3.05v); z101=(5.5u,4.35v); z102=(5.25u,4.1v); z103=(6.1u,3.35v);
+z104=(7.7u,4.85v); z105=(8.8u,3.8v); z106=(8u,3v); z107=(7.4u,3.6v);
+z108=(7.95u,4.25v); z109=(8.4u,3.8v); z110=(8.1u,3.45v); z111=(4.4u,1.5v);
+z112=(6u,2.8v); z113=z111; z114=(5.8u,2v); z115=(6.3u,1.6v); z116=(6.9u,1.05v);
+z117=(6.2u,0.1v); z118=(4.85u,0.6v); z119=(5.65u,0.65v); z120=(6.1u,1.1v);
+z121=(6.45u,0.8v); z122=(6.3u,0.55v); z123=(7.35u,0); z124=(7.85u,0.3v);
+z125=(8.6u,0.4v); z126=(8.6u,1.1v); z127=(8.4u,1.6v); z128=(8.4u,2.7v);
+z129=(8.75u,2.4v); z130=(8.3u,1.95v); z131=(7.65u,3.2v); z132=(7.65u,6.65v);
+z133=(8.5u,7.8v); z134=(8.6u,7.6v); z135=(7.8u,8.7v); z136=(8.9u,7.4v);
+z137=(7.85u,6.25v); z138=(6.9u,7.15v); z139=(7.65u,8.05v); z140=(8.35u,7.4v);
+z141=(8u,7v); z142=(7u,8.1v); z143=(5.9u,8.8v); z144=(5.3u,8.2v);
+z145=(5.7u,7.8v); z146=(6.1u,8.2v); z147=(5.1u,8.6v); z148=(7.8u,3.8v);
+z149=(8.8u,4.95v); z150=(8.85u,6v); z151=(8.7u,6.3v); z152=(8.2u,5.8v);
+z152'=(8.5u,5.5v); z153=(8.5u,5.6v); z154=(8.45u,5.25v); ka(40,0); ka(41,90);
+ka(42,180); ka(43,-90); ka(44,0); ka(45,90); ka(46,166); ka(48,166); 
+penpos47(0.3uv,166); ka(49,90); ka(50,62); ka(51,90); ka(52,0); ka(53,0);
+ka(54,-90); ka(55,180); ka(56,90); ka(57,0); penpos58(0.3uv,-69);
+penpos59(0.15v,-90); ka(60,0); ka(61,16); ka(62,0); ka(63,-90); ka(64,180);
+ka(65,90); ka(66,0); ka(67,-90); ka(68,180); ka(70,0); ka(71,90); ka(72,-140);
+ka(73,90); ka(74,-90); ka(75,0); ka(76,0); ka(77,90); ka(78,180); ka(79,-90);
+ka(80,0); ka(81,90); ka(81',-45); z82'=z81'; ka(82',135); ka(82,90); ka(83,0);
+ka(84,-90); ka(85,-41); ka(86,0); ka(87,-15); ka(88,90); ka(89,0); ka(90,90);
+ka(91,79); ka(92,90); ka(93,0); ka(94,-49); ka(94',131); ka(95,-90); ka(96,180);
+ka(97,90); ka(97',164); ka(98,180); ka(99,-50); ka(100,-36); ka(101,90);
+ka(102,180); ka(103,-90); ka(104,-90); ka(105,180); ka(106,90); ka(107,0);
+ka(108,-90); ka(109,180); ka(110,90); ka(111,-45); ka(112,-90); ka(113,-66);
+ka(114,-90); ka(115,180); ka(116,-165); ka(117,90); ka(118,90); ka(119,0);
+ka(120,-90); ka(121,180); ka(122,90); ka(123,-90); ka(124,-90); ka(125,-90);
+ka(126,0); ka(127,15); ka(128,-90); ka(129,180); ka(130,90); ka(131,0);
+ka(132,-6); ka(133,-90); ka(134,180); ka(135,-90); ka(136,180); ka(137,90);
+ka(138,0); ka(139,-90); ka(140,180); ka(141,90); ka(143,90); ka(144,180);
+ka(145,-90); ka(146,0); ka(147,90); ka(148,0); ka(149,-28); ka(150,0);
+ka(151,0); ka(152,180); ka(153,-90); ka(154,180);  penstroke
+z40e{up}...z41e{left}... z42e...z43e...z44e...z45e{left}; kouki(45,7,1.4);
+penstroke z46e--z47e--z48e; penstroke z41e{left}...z49e{left}...
+z50e...z52e...z54e...z55e... z56e{left}...z57e{up}...z58e...z59e... z60e{up};
+penstroke z50e{(0,0.8v)-z50}...z51e{left}; kouki(51,7,1.25); penstroke
+z52e{up}...z53e{up}; kouki(53,1,1.2); penstroke z41e{left}...z61e...z62e...
+z63e...z64e...z65e...z66e...z67e... z68e{down}; penstroke
+z82'e{z81'-z153}...z83e... z84e...z7e{down}; mpalla(61,1.5); mpalla(69,1.5);
+penstroke z62e{up}...z70e...z71e... z72e{z65-z72}...z74e...z75e{up};
+kouki(75,1,1.5); penstroke z72e{z65-z72}...z73e{left}; kouki(73,5,1.6);
+penstroke z81'e{z153-z81'}...z85e... z87e...z89e...z90e...z91e{(0,6.85v)-z91}
+...z97'e...z98e...z84e{right}... z76e...z77e...z78e...z79e...z80e... z81e{left};
+kouki(81,7,1.1); penstroke z85e...z86e{up}; kouki(86,1,1); penstroke
+z87e...z88e{left}; kouki(88,7,1); mpalla(90,1.8); mpalla(89,2); mpalla(97',1.3);
+penstroke z91e{(0,6.85v)-z91}...z92e ...z93e...z94e...z95e...z96e... z97e{left};
+kouki(97,5,1.4); penstroke z99e{z153-z99}... z100e{z136-z100}...z104e...z105e...
+z106e...z107e...z108e...z109e... z110e{left}...z148e...z149e...z150e
+...z152e...z153e{right}; kouki(110,5,1.65); kouki(153,6,1); penstroke
+z100e{z136-z100}...z101e... z102e{down}; kouki(102,4,1.5); penstroke
+z100e{z136-z100}...z103e {right}; kouki(103,8,1.1); penstroke
+z152e{down}...z154e{down}; kouki(154,3,1.2); penstroke z150e{up}...z151e{up};
+kouki(151,2,1.5); penstroke z89e{up}...z135e...z136e...
+z137e...z138e{up}...z139e...z140e... z141e{left}; kouki(141,5,2.1); penstroke
+z138e{up}...z143e...z144e ...z145e...z146e{up}...z147e{left}; kouki(146,1,1.4);
+kouki(147,5,1.25); mpalla(142,1.5); z145'=z145; ka(145',3); penstroke
+z89e{up}...z145'e; penstroke z111e{z154-z111}...z112e {right}; kouki(112,8,1.2);
+penstroke z113e{z9r-z113}...z114e... z116e{z116-z103}...z117e...z118e {left};
+kouki(118,7,1.4); penstroke z117e{left}...z119e{up}...
+z120e...z121e...z122e{left}; kouki(122,5,1.5); mpalla(116,1.35); penstroke
+z114e{right}...z115e{down}; kouki(115,3,1.1); penstroke z116e{z116-z103}...z123e
+{right}; kouki(123,6,1); penstroke z116e{z116-z103}...z124e
+{right}...z125e{right}; kouki(125,8,1.5); penstroke z124e{right}...z126e...
+z127e; z131'=(7.6u,5v); ka(131',0); penstroke z128e{right}...z129e...z130e
+...z131e...z131'e...z132e...z133e...z134e {down}; kouki(134,3,1.1);
+z200=(0.35u,3.05v); z201=(0.35u,4.25v); z202=(1.6u,3.05v); z210=(5u,6v);
+z211=(6.9u,6v); z212=(5u,7.15v); z220=(1.35u,6.55v); z221=(1.35u,6.15v);
+z222=(0.35u,6.6v); triaina(200,201,202,0.5); triaina(210,212,211,0.4);
+triaina(220,221,222,0.6); z240=0.5[z112,z116]; mpalla(240,1.3); penlabels(range
+1 thru 240);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitV.mf b/fonts/gothic/yinit/yinitV.mf
new file mode 100644
index 0000000000..029fcc4dcc
--- /dev/null
+++ b/fonts/gothic/yinit/yinitV.mf
@@ -0,0 +1,96 @@
+.cmchar "The letter V";
+.beginchar("V",8.9u#+0.3mm#,8.7m*u#,0);
+.adjust_fit(0,0); 
+z1=(3.1u,1.05v); z2=(2.65u,1.35v); z3=(2.3u,1.1v); z4=(1.8u,0.8v);
+z5=(1.05u,1.6v); z6=(2.5u,2.7v); z7=(3.7u,2.1v); z8=(4.3u,1.4v); z9=(7u,1.1v);
+z10=(8u,3.7v); z11=(7.3u,5.05v); z12=(7.9u,6.47v); z13=(8.7u,6v);
+z14=(8.35u,5.65v); z15=(3.6u,2.2v); z16=(5.2u,5.4v); z17=(4.3u,7.3v);
+z18=(3.1u,7.6v); z19=(1.7u,6.8v); z20=(0.3u,7.6v); z21=(1.2u,8.15v);
+z22=(1.6u,8.05v); z23=(1.6u,8.6v); z24=z7; z25=(4.45u,4.6v); z26=(3.7u,6v);
+z27=(3.85u,6.55v); z28=(2.8u,5.8v); z29=(4.7u,7v); z30=(6.7u,7.75v);
+z31=(7.5u,6.95v); z32=(8.1u,6.8v); z33=(8.85u,7.6v); z34=(8.2u,8.3v);
+z35=(7.75u,7.9v); z36=(8.05u,7.55v); z36.1=(2.7u,1.9v); z36.2=(1.35u,3.2v);
+z36.3=(2.35u,4.15v); z36.4=(3.35u,3.5v); z1'=z1; ka(1,0); ka(1',180);
+penpos2(0.4v,90); penpos3(0.5uv,136); penpos4(0.4v,90); ka(5,0);
+penpos6(0.5v,-90); penpos7(0.95uv,-141); penpos8(0.9uv,-140);
+penpos9(1.5hair,-55); penpos10(0.9uv,17); penpos11(0.8uv,32.5);
+penpos12(1.5hair,-73); ka(13,180); ka(14,90); ka(15,-53); penpos16(0.63u,5);
+penpos17(1.1uv,56); penpos18(1.1uv,98); penpos19(0.85uv,121.5);
+penpos20(1.5hair,-14); penpos21(0.55uv,-130); penpos22(0.35v,-90); ka(23,38);
+ka(24,-29); penpos25(0.47u,0); penpos26(0.93uv,42); ka(27,171); ka(28,-78);
+ka(29,-50); penpos30(0.75uv,-137); penpos31(0.7uv,-142); penpos32(0.3v,-90);
+penpos33(1.5hair,0); ka(34,90); ka(35,180); ka(36,-90); ka(36.1,90); ka(36.2,0);
+penpos36.3(0.3v,-90); ka(36.4,180); kouki(1',3,1.4); penstroke
+z1e{up}...z2e...z3e...z4e... z5e...z6e...z7e...z8e...z9e...z10e...
+z11e...z12e...z13e...z14e{left}; kouki(14,5,1.6); penstroke
+z15e{z13-z15}...z16e...z17e... z18e...z19e...z20e...z21e...z22e... {z23-z9}z23e;
+penstroke z29e{z29-(0,3v)}...z30e... z31e...z32e...z33e...z34e...z35e...
+z36e{right}; kouki(36,6,1.85); filldraw z24r{(7.65u,9v)-z24}...z25r
+...z26r...z27l{up} & z27l--z27r & z27r{z5-z27}...{z28-z34}z28l & z28l--z28r &
+z28r...z26l...z25l... z24l{z24-(7.65u,9v)} & z24l--z24r & cycle; z15'=z15;
+ka(15',127); penstroke z15'e{z15-z13}...z36.1e{left}...
+z36.2e{up}...z36.3e...z36.4e{down}; kouki(36.4,3,1.3); z40=(2.3u,0.8v);
+z41=(1.85u,0.15v); z42=(0.6u,1.5v); z43=(2.5u,3.3v); z44=(3.7u,2.95v);
+z45=(0.7u,0); z46=(1.3u,0.9v); z47=(1.7u,1.8v); z48=(1.7u,1.3v); z49=(1.3u,1.7v);
+z50=(2u,2.3v); z51=(3.3u,1.55v); z52=(2.75u,0.25v); z53=(5.4u,0.2v);
+z54=(3.75u,0.45v); z55=(6.8u,0.5v); z56=(8.8u,0.5v); z57=(8.3u,0);
+z58=(7.9u,0.2v); z59=(7.35u,0.4v); z60=(8.15u,0.7v); z61=(8.9u,1.2v);
+z62=(8.1u,1.4v); z63=(8.5u,1.9v); z64=(8.85u,2.6v); z65=(9u,3.5v);
+z66=(6.2u,5.85v); z67=(5.8u,4.6v); z68=(6.85u,3.5v); z69=(6.85u,5.2v);
+z70=(6.6u,4.4v); z71=(4u,1.8v); z72=(5.2u,2.15v); z73=(5.2u,2.9v);
+z74=(6.1u,3.3v); z75=(7.05u,2.3v); z76=(6.3u,1.4v); z77=(5.85u,1.15v);
+z78=(5.45u,2.1v); z79=(5.9u,2.8v); z80=(6.45u,2.5v); z81=(6.3u,2.15v);
+z82=(6u,2.25v); z83=(5.8u,2v); z84=(5.9u,1.8v); z85=(6.9u,3.7v);
+z86=(6.5u,4.2v); z87=(6.25u,4.1v); z88=(6.45u,6.1v); z89=(8.1u,8.7v);
+z90=(8.8u,8.65v); z91=(3.8u,2v); z92=(5.87u,5.8v); z93=(5.4u,8.3v); z94=(6u,9v);
+z95=(6.35u,8.65v); z96=(6.15u,8.3v); z97=(5.9u,8.4v); z98=(6.8u,8.6v);
+z99=(4.7u,8.95v); z99'=(5.25u,8.05v); z100=(3u,8.6v); z101=(0.95u,6.5v);
+z102=(1.5u,5.6v); z103=(2.6u,4.5v); z104=(3.9u,5.7v); z105=(3u,6.6v);
+z106=(2.15u,5.7v); z107=(2.7u,5.3v); z108=(3.35u,2.4v); z109=(3.95u,3.8v);
+z109'=(1.55u,5.15v); z110=(0.45u,4.2v); z111=(u,4v); z112=(1.65u,3.4v);
+z113=(2.2u,4v); z114=(1.7u,4.5v); z115=(0.4u,5v); z116=(0.7u,7.7v);
+z117=(0.15u,8.2v); z118=(0.75u,8.65v); ka(40,-131); ka(41,90); ka(42,0);
+ka(43,-90); ka(44,-121.5); ka(45,-90); ka(46,0); ka(47,-90); ka(48,90); ka(49,0);
+ka(50,-90); ka(51,-147); ka(52,90); ka(53,-90); ka(55,-67); ka(56,180);
+ka(57,90); ka(58,31.5); ka(59,90); ka(60,-90); ka(61,0); ka(62,-42); ka(63,-90);
+ka(64,-18); ka(65,0); ka(66,90); ka(67,180); ka(68,-90); ka(69,90); ka(70,-90);
+ka(71,-51); ka(72,180); ka(73,-44); ka(74,-90); ka(75,180); ka(76,90);
+ka(77,180); ka(78,0); ka(79,-90); penpos80(1.5hair,180); penpos81(0.35v,99);
+penpos82(0.32uv,74); penpos83(0.1uv,155); ka(84,-137); ka(85,0); ka(86,90);
+ka(87,180); ka(88,-11); ka(89,-90); ka(90,-90); ka(91,-51); ka(92,0); ka(93,11);
+ka(94,-90); ka(95,180); ka(96,90); ka(97,0); ka(98,0); ka(99,24); ka(99',22);
+ka(100,90); ka(101,180); ka(102,-90); ka(103,-90); ka(104,0); ka(105,90);
+ka(106,180); ka(107,77); ka(108,-35); ka(109,0); ka(110,132); ka(109',118);
+ka(111,180); ka(112,-90); ka(113,0); ka(114,90); ka(115,0); ka(116,90);
+ka(117,0); penpos118(0.1uv,-131); penstroke z40e{z40-z47}...z41e...
+z42e...z43e...z44e{z72-z44}; z45'=z45; ka(45',90); kouki(45',5,1.4); penstroke
+z45e{right}...z46e...z47e ...z48e...z49e...z50e...z51e{z51-z114}...
+z53e...z55e... z62e...z64e...z65e...z66e... z67e...z68e...z69e...z70e{right};
+kouki(70,6,1.1); mpalla(54,1.4); mpalla(55,1.3); mpalla(64,1.5); penstroke
+z51e{z51-z114}...z52e{left}; kouki(52,5,1.2); kouki(47,7,1.1); penstroke
+z55e{(9u,1.5v)-z55}... z56e...z57e...z58e...z59e{left}; penstroke
+z58e...z60e{right}...z61e {up}; kouki(59,7,1.3); kouki(60,8,1.5);
+kouki(61,1,1.2); z200=(4.85u,2.75v); z201=(4.55u,2.85v); penpos200(0.1uv,-47);
+penstroke z71e{z71-z41}...z73e... z88e...z89e...z90e{right}; kouki(90,6,1.6);
+kouti(200,201); z202=(6.25u,6v); kouti(88,202); penstroke
+z73e...z74e...z75e...z76e ...z78e...z79e{right}...z80e...
+z81e...z82e...z83e...z84e{z84-z19}; penstroke z76e...z77e{down}; kouki(77,4,1);
+penstroke z79e{right}...z85e...z86e ...z87e{down}; kouki(87,4,1.3); penstroke
+z71e{z71-z41}...z72e{down}; kouki(72,3,1); z91.1=z2r; ka(91.1,-90); penstroke
+z91.1e{right}...z91e... z92e{up}...z93e...z94e...z95e{z11r-z95} ...z98e{up};
+penstroke z95e{z11r-z95}...z96e... z97e{up}; kouki(98,1,1.3); kouki(97,2,1.3);
+z203=(5.7u,5.65v); kouti(92,203); penstroke z92e{up}...z99'e...z99e; penstroke
+z92e{up}...z100e...z101e {down}...z103e...z104e... z105e...z106e{down};
+kouki(106,4,1.65); penstroke z101e{down}...z102e{right}; kouki(102,6,1.2);
+kouki(103,6,1.3); kouki(105,7,1.5); penstroke z108e{z89-z108}...z109e...
+z107e...z109'e{z109'-z98}...z115e{up}; penstroke z109'e{z109'-z98}...
+z110e{left}; kouki(110,5,0.8); penstroke z109'e{z109'-z98}...z111e
+...z112e...z113e...z114e{left}; kouki(114,7,1.4); kouki(115,2,1.5); z204=z22;
+ka(204,130); penstroke z204e{z102-z97}...z116e... z117e{up}; filldraw
+z117l{up}... {z85-z118}z118l & z118l..z118r  & z118r{z118-z85}...z117r{down} &
+z117r--z117l & cycle; z210=(4.55u,8.1v); z211=(4.35u,8.65v); z212=(5.6u,8.55v);
+z220=(5.95u,6.55v); z221=(6.05u,7.1v); z222=(7.1u,6.3v); z230=(8.25u,4.6v);
+z231=(8u,5.05v); z232=(9.15u,5v); triaina(210,211,212,0.4);
+triaina(220,221,222,0.5); triaina(230,231,232,0.6); penlabels(range 1 thru 240);
+.endchar;
+ 
diff --git a/fonts/gothic/yinit/yinitW.mf b/fonts/gothic/yinit/yinitW.mf
new file mode 100644
index 0000000000..4006e0450a
--- /dev/null
+++ b/fonts/gothic/yinit/yinitW.mf
@@ -0,0 +1,138 @@
+.cmchar "The letter W";
+.beginchar("W",8.9u#+2mm#,8.7m*u#,0);
+.adjust_fit(0,0); 
+z1=(2.5u,0.5v); z2=(3.4u,1.3v); z3=(3u,1.55v); z4=(2.55u,2v); z5=(1.2u,3.4v);
+z6=(2.2u,4.45v); z7=(2.85u,3.75v); z8=(2.35u,3.2v); z9=(2u,3.55v);
+z10=(2.2u,3.8v); z11=(2.35u,3.7v); z12=(2.6u,3.8v); z13=(5.9u,5.7v);
+z14=(4.65u,7.8v); z15=(3.45u,7.95v); z16=(2.05u,7.3v); z17=(0.1u,7.9v);
+z18=(0.9u,8.45v); z19=(1.3u,8.2v); z20=(1.5u,8.3v); z21=(1.55u,8.6v);
+z22=(6.5u,0.5v); z23=(7.2u,1.5v); z24=(6.7u,1.65v); z25=(6.25u,2v);
+z26=(5.2u,2.25v); z27=(4.5u,3.5v); z28=(5.4u,4.4v); z29=(6.25u,3.7v);
+z30=(5.65u,3.05v); z31=(5u,3.5v); z32=(8.45u,2.4v); z33=(8.85u,3.5v);
+z34=(8.45u,4.45v); z35=(7.95u,5.75v); z36=(8.7u,6.5v); z37=(9.3u,6v);
+z38=(9u,5.7v); z39=(5.35u,7.25v); z40=(7.2u,8.05v); z41=(7.82u,7.72v);
+z42=(8.2u,7.1v); z43=(9.25u,7.05v); z44=(9.5u,7.5v); z45=(9u,8.1v);
+z46=(2.9u,2.55v); z47=(3.85u,4.3v); z48=(3.4u,5.5v); z49=(2.8u,6v);
+z50=(3.1u,6.7v); z51=(1.6u,5.6v); ka(1,-29); ka(2,-69); penpos3(0.8uv,36);
+penpos4(0.9uv,64); penpos5(0.25u,0); penpos6(1.5hair,-90); ka(7,180); ka(8,90);
+ka(9,0); penpos10(0.3v,-90); penpos11(0.2uv,-118); ka(12,-31); penpos13(0.7u,0);
+penpos14(0.93uv,61); penpos15(0.85v,90); penpos16(0.75uv,119); ka(17,0);
+penpos18(0.4uv,-138); penpos19(0.35uv,-141); ka(20,-42); ka(21,0); ka(22,-17);
+ka(23,-54); penpos24(0.8uv,38); penpos25(0.9uv,77); penpos26(0.72uv,74);
+penpos27(0.22u,0); penpos28(1.5hair,-90); ka(29,180); ka(30,90); ka(31,0);
+penpos32(0.12uv,-40); penpos33(0.7u,2); penpos34(0.9uv,43); penpos35(0.37u,0);
+penpos36(1.5hair,-90); ka(37,180); ka(38,90); ka(39,-55); penpos40(0.5v,-90);
+penpos41(0.85uv,-151); penpos42(0.9uv,-152); penpos43(0.15uv,-61); ka(44,0);
+ka(45,90); ka(46,-46); penpos47(0.5u,0); penpos48(0.75uv,42);
+penpos49(0.85uv,43); ka(50,148); ka(51,-74); filldraw
+z1r{z40l-z1}...z2r{z33l-z2r} & z2r--z2l & z2l{up}...z3r...z4r...
+z5r...z6r{right} & z6r--z6l & z6l{left}...z5l...z4l...z3l... z1l{z1-z40l} &
+z1l--z1r & cycle; penstroke z6e{right}...z7e...z8e{left}...
+z9e{up}...z10e...z11e...z12e{z49r-z12}; penstroke z2e{z33l-z2r}...z13e...z14e
+...z15e...z16e...z17e{up}; filldraw z17r{up}...z18r...
+(1.05u,8v){right}...z20r... z21r{up} & z21r--z21l & z21l{down}...z20l...z19l...
+z18l...z17l{down} & z17l--z17r & cycle; filldraw z22r{z45-z22}...z23r{z36-z27l} &
+z23r--z23l & z23l{z14-z23}...z24r ...z25r...z26r...z27r...z28r{right} &
+z28r--z28l & z28l{left}...z27l... z26l...z25l...z24l...z22l{z22-z45} &
+z22l--z22r & cycle; penstroke z23e{z36-z27l}...z32e...
+z33e...z34e...z35e...z36e...z37e... z38e{left}; kouki(38,5,1.5);
+z31'=(5.15u,3.85v); penpos31'(0.2uv,-38); penstroke z28e{right}...z29e...z30e
+...z31e...z31'e; penstroke z39e{z40l-z6}...z40e...
+z41e...z42e...z43e...z44e...z45e{left}; kouki(45,7,1.4); filldraw
+z46r{z42r-z46}...z47r{up} ...z48r...z50l{z15-z50} & z50l--z50r & z50r{z50-z15}...
+z51l{z51-z49} & z51l--z51r & z51r{z49-z51}...z49l...z48l...
+z47l...z46l{z46-z42r} & z46l--z46r & cycle; z60=(2.3u,0.4v); z61=(2.4u,1.2v);
+z62=(0.5u,3.5v); z63=(1.9u,5.1v); z64=(3.3u,3.85v); z65=(3u,3v); z66=(2.5u,2.8v);
+z67=(1.6u,3.6v); z68=(2.2u,4.2v); z69=(0.5u,0.7v); z70=(1.35u,0); z71=(2u,0.7v);
+z72=(1.5u,1.25v); z73=(u,0.8v); z74=(1.35u,0.45v); z75=(0.2u,0); z76=(0.2u,2.1v);
+z77=(0.75u,2.6v); z78=(1.1u,2.25v); z79=(0.8u,1.9v); z80=(2.75u,0.5v);
+z81=(3.3u,v); z82=(6u,3.7v); z83=(6.45u,6v); z84=(4.55u,8.7v); z85=(2.2u,8.5v);
+z86=(0.95u,6.3v); z87=(2.6u,4.5v); z88=(4.15u,6v); z89=(3.1u,7.15v);
+z90=(u,5.4v); z91=(0.2u,5.1v); z92=(0.35u,6v); z93=(0.85u,6.55v);
+z94=(1.3u,6.2v); z95=(u,5.9v); z96=(2.2u,6.4v); z98=(3.6u,6.2v);
+z100=(2.5u,5.2v); z101=z3; z102=(4.1u,2.4v); z103=(4u,2.75v); z104=(3.9u,3.2v);
+z105=(3.35u,2.45v); z106=(3.6u,2.2v); z107=(6.45u,5.45v); z108=(6.8u,5v);
+z109=(6.15u,4.35v); z110=(5.25u,5.2v); z111=(6.3u,6.3v); z112=(7.5u,5v);
+z113=(6.1u,3.5v); z114=(4.65u,4.85v); z115=(6.5u,7.05v); z116=(7.2u,6.7v);
+z117=(6.5u,7.6v); z118=(5.6u,8.1v); z119=(5.85u,8.7v); z120=(5.55u,9v);
+z121=(5.3u,8.75v); z122=(7.8u,8.9v); z123=(9.35u,8.35v); z124=(10u,6.8v);
+z125=(8.7u,5.35v); z126=(7.5u,6.4v); z127=(8.5u,7.55v); z128=(9.4u,6.8v);
+z129=(2.95u,0.55v); z130=(3.9u,0.9v); z131=(5u,1.45v); z132=(4.8u,1.7v);
+z133=(4.85u,0.65v); z134=(5.7u,0.3v); z135=(6.15u,0.85v); z136=(5.65u,1.35v);
+z137=(5.25u,v); z138=(5.45u,0.75v); z139=(5.65u,0.9v); z141=(5.9u,0.8v);
+z142=(4.55u,0.45v); z143=(4.2u,0); z144=(3.2u,0.45v); z145=(3.05u,0.3v);
+z146=(3.75u,0.4v); z147=(4u,0.6v); z148=(6.6u,0.4v); z149=(8.1u,1.7v);
+z150=(9.5u,3.8v); z151=(8.65u,5.3v); z152=(8.35u,5.8v); z153=(8.75u,6.3v);
+z154=(6.75u,0.1v); z155=(8.45u,1.4v); z156=(9.5u,2.2v); z157=(9.1u,2.55v);
+z158=(9.2u,1.4v); z159=(9.75u,1.2v); z160=(9.15u,0.8v); z161=(9.5u,0.1v);
+z162=(8.6u,0.05v); z163=(8.15u,0.25v); z164=(8.7u,0.4v); z163'=(8.55u,0.65v);
+z165=(8.9u,0.6v); z166=(7.5u,0.65v); z167=(7.25u,0.4v); z168=(6.8u,1.4v);
+z169=(8.1u,2.9v); z170=(7.6u,4v); z171=(7.45u,3.55v); z172=(6.9u,3v);
+z173=(6.3u,3v); z174=(7.35u,2.45v); z175=(7.7u,2.7v); z176=(0.85u,7.75v);
+z177=(0,8.5v); z178=(0.4u,9v); z179=z123; z180=(9.65u,8.5v); z181=(9.5u,8.7v);
+z182=(9.7u,8.9v); ka(60,-18); ka(61,24); ka(62,0); ka(63,-90); ka(64,180);
+ka(65,134); ka(66,90); ka(67,0); ka(68,-90); ka(69,180); ka(70,-90); ka(71,0);
+ka(72,90); ka(73,180); ka(74,-90); ka(75,90); ka(76,0); ka(77,-90); ka(78,180);
+ka(79,90); ka(80,-8.5); ka(81,-55); ka(82,-27); ka(83,0); ka(84,76); ka(85,121);
+ka(86,180); ka(87,-90); ka(88,0); ka(89,90); ka(90,90); ka(91,180); ka(92,0);
+ka(93,-90); ka(94,180); ka(95,90); ka(96,180); ka(98,0); ka(100,0); ka(101,-90);
+ka(102,0); ka(103,33); ka(104,0); ka(105,180); ka(106,-90); ka(107,-126);
+ka(108,180); ka(109,90); ka(110,0); ka(111,-90); ka(112,180); ka(113,90);
+ka(114,0); ka(115,-90); ka(116,180); ka(118,-40); ka(119,0); ka(120,90);
+ka(121,180); ka(122,-90); ka(123,-130); ka(124,180); ka(125,90); ka(126,0);
+ka(127,-90); ka(128,180); ka(129,-57.5); ka(130,-90); ka(131,0); ka(132,90);
+ka(133,-127); ka(134,-90); ka(135,0); ka(136,90); ka(137,180);
+penpos138(0.2v,-90); penpos139(0.2uv,-34); ka(140,-129); ka(141,-129);
+ka(142,180); ka(143,90); ka(144,90); ka(145,180); ka(146,0); ka(147,-90);
+ka(148,-13); ka(149,-57); ka(150,0); ka(151,48); ka(152,0); ka(153,-90);
+ka(154,-13); ka(155,-90); ka(156,0); ka(157,90); ka(158,-90); ka(159,180);
+ka(160,180); ka(161,-90); ka(162,90); ka(163,47); penpos163'(0.25uv,-119);
+penpos164(0.15v,-90); ka(165,-41); ka(166,90); ka(167,180); ka(168,-53.5);
+ka(169,0); ka(170,0); ka(171,90); ka(172,180); ka(173,0); ka(174,-90);
+ka(175,0); ka(176,90); ka(177,0); ka(178,-90); ka(179,-45); penpos180(0.4u,0);
+penpos181(0.2uv,34); ka(182,-90); z12'=z12; ka(12',180); z61'=(1.65u,1.65v);
+ka(61',66); z65'=(1.9u,2.35v); ka(65',120); z81'=(5.25u,2.3v); ka(81',-41);
+z85'=(1.55u,8v); ka(85',140); penstroke z85'e{z63-z119}...z176e{left}
+...z177e...z178e{right}; penstroke z60e{z64-z60}...z61e... z61'e...
+z62e...z63e...z64e...z65e{z65-z83} ...z66e...z67e...z68e...z12'e{down};
+penstroke z65e{z65-z83}... z65'e...{down}z69e ...z70e...z71e...z72e{left}...
+z73e...z74e{right}; penstroke z69e{down}...z75e{left}; penstroke
+z72e{left}...z76e... z77e...z78e...z79e{left}; kouki(74,6,1.5); kouki(75,5,1.2);
+kouki(79,5,1.4); penstroke z80e{z121-z80}...z81e... z81'e...
+z83e...z84e...z85e{z176-z85} ...z86e...z87e...z88e...z89e{left}
+...z90e{left}...z92e...z93e... z94e...z95e{left}; z200=(4.65u,8.5v);
+kouti(84,200); mpalla(85,1.5); penstroke z85e{z176-z85}...z176e
+...z177e...z178e{right}; z99=(1.4u,5.1v); ka(99,-137.5); penstroke
+z99e{z103-z99}...z100e{up}; penstroke z89e{left}...z96e{down} ...z98e{up};
+penstroke z90e{left}...z91e{down}; kouki(178,8,1.1); kouki(100,1,1.3);
+kouki(98,1,1.3); kouki(91,4,1.15); kouki(95,5,1.4); penstroke
+z101e{right}...z102e{up} ...z105e{down}...z106e{right}; penstroke
+z102e...z104e{up}; kouki(106,6,1.3); kouki(104,2,1.1); penstroke
+z107e{z33r-z107}... z108e...z109e...z110e...z111e... z112e...z113e...z114e{up}...
+z115e...z116e{down}; z201=(4.4u,4.6v); kouti(114,201); kouki(116,3,1.4);
+mpalla(112,1.4); kouki(108,3,1.2); penstroke z114e{up}...z39e{z40l-z6};
+penstroke z114e{up}...z118e{z118-z77}... z122e...z123e...z124e...z125e...
+z126e...z127e...z128e{down}; penstroke z118e{z118-z77}...z119e
+...z120e...z121e{down}; kouki(121,4,1.2); kouki(126,2,1.2); kouki(128,3,1.3);
+mpalla(122,1.4); mpalla(117,1.4); penstroke z179e...z180e...z181e
+...z182e{z37-z115}; z202=(4.4u,6.9v); mpalla(202,1.4); penstroke
+z129e{z132-z129}... z130e{right}...z131e...z132e{left}; penstroke
+z130e{right}...z133e... z134e...z135e...z136e...z137e... z138e...z139e...
+z141e{z141-z96}; penstroke z130e{right}...z142e... z143e...z144e...z145e{down};
+penstroke z143e...z146e...z147e {right}; kouki(132,7,1.3); kouki(147,8,1.1);
+kouki(145,4,1.3); mpalla(130,1.3); z206=(7.9u,3.4v); ka(206,54); penstroke
+z168e{z168-z135}... z169e...z206e...z171e...z172e...z174e... z175e{up};
+kouki(175,1,1.7); z204=(9u,6v); ka(204,180); penstroke z206e{z15r-z206}...
+z170e{up}; kouki(170,2,1.3); penstroke z148e{z175-z148}...
+z149e...z150e...z151e...z152e... z153e...z204e{down}; penstroke
+z154e{z34r-z154}... z155e{right}...z156e...z157e {left}; penstroke
+z155e{right}...z158e... z159e{down}; penstroke z155e{right}...z160e
+{down}...z162e...z163e{z173-z163}...z163'e... z164e...z165e{up}; penstroke
+z160e{down}...z161e {right}; penstroke z163e{z173-z163}...z166e{left}...
+z167e{down}; z205=(8.3u,1.6v); kouti(155,205); kouki(157,7,1.3);
+kouki(159,3,0.8); kouki(161,6,1.3); kouki(167,4,1.4); penstroke
+z172e{down}...z173e{up}; kouki(173,2,1.25); z210=(0,4v); z211=(0.25u,4.85v);
+z212=(u,3.6v); triaina(210,211,212,0.75); mpalla(62,1.25); penlabels(range 1
+thru 220);
+.endchar;
+ 
\ No newline at end of file
diff --git a/fonts/gothic/yinit/yinitX.mf b/fonts/gothic/yinit/yinitX.mf
new file mode 100644
index 0000000000..38f319dc40
--- /dev/null
+++ b/fonts/gothic/yinit/yinitX.mf
@@ -0,0 +1,126 @@
+.cmchar "The letter X";
+.beginchar("X",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0); 
+z1=(1.7u,0.5v);  z2=(2.65u,1.65v); z3=(2u,1.8v); z12=(3.9u,5v);
+z13=(3.75u,4.55v); z14=(2.6u,3.6v);z15=(3.2u,3.05v); z16=(3.6u,3.4v);
+z17=(5.05u,4v); z18=(5.05u,4.9v); z19=(5.25u,4.4v); z20=(6.75u,5.4v);
+z21=(6.1u,6.2v); z22=(5.55u,5.75v); z23=(5.75u,5.45v); z24=(5.25u,6.75v);
+z25=(6.4u,7.85v); z26=(6.8u,7.6v); z27=(7.8u,7.15v); z28=(8.4u,7.8v);
+z29=(7.95u,8.35v); z30=(7.7u,8.2v);z31=(6.1u,0.55v); z32=(6.85u,1.55v);
+z33=(8u,2.8v); z34=(7.35u,3.7v); z35=(6.75u,3.15v); z36=(7u,2.75v);
+z37=(6u,1.35v); z38=(4.8u,2.05v);z39=(4.5u,3.35v); z40=(4.4u,6.3v);
+z41=(3.65u,7.65v); z42=(2.85u,7.85v); z43=(1.6u,7.35v); z44=(0.4u,8v);
+z45=(1.15u,8.65v); z46=(1.35u,8.4v); z47=(1.8u,8.45v); z48'=z48;
+z48=(1.75u,8.85v); z4=(1.05u,2.35v); z5=(0.65u,3.15v); z6=(1.5u,3.95v);
+z7=(2.05u,3.35v); z8=(1.7u,2.95v); z9=(1.35u,3.2v);z10=(2.95u,1.8v);
+z11=(3.9u,4.1v); ka(1,-30); penpos2(0.2u,-64); penpos3(0.9uv,51);
+penpos4(0.7uv,67); penpos5(0.235u,0); penpos6(1.5hair,-90); ka(7,180); ka(8,90);
+ka(9,0); ka(10,-53); ka(11,0); ka(12,0); penpos13(0.67v,90);
+penpos14(0.12u,180); ka(15,-90); ka(16,0); ka(17,0); ka(18,0);
+penpos19(0.65u,-90); penpos20(1.5hair,0); ka(21,90); ka(22,180); ka(23,-90);
+penpos24(1.5hair,-14); penpos25(0.6v,-90); penpos26(0.7uv,-136);
+penpos27(0.45v,-90); ka(28,0); ka(29,90); ka(30,180); ka(31,-9);
+penpos32(0.35uv,-32); penpos33(1.5hair,0); ka(34,90); ka(35,180); ka(36,-90);
+penpos37(0.88uv,69); penpos38(0.92uv,42); penpos39(0.72u,5); penpos40(0.8u,0);
+penpos41(0.9uv,56); penpos42(0.95v,90); penpos43(0.75uv,113.5);
+penpos44(1.5hair,0); penpos45(0.5uv,-120); penpos46(0.45u,-149);
+penpos47(0.1uv,-56); ka(48,34); filldraw z1l{z13l-z1}...z3l...z4l...
+z5l...z6l{right} & z6l--z6r & z6r{left}...z5r...z4r...(2.1u,2.4v) ...z3r...
+z2l...z10l{z39r-z10}...z11l{up}... z13l{left}...z14l{down}...z15l {right} &
+z15l--z15r & z15r{left}...z14r{up}...z13r{right} ...z12l{up} & z12l--z12r &
+z12r---z11r{down}...z10r{z10-z39r}... z2r...z1r{z1-z13l} & z1r--z1l & cycle;
+penstroke z6e{right}...z7e...z8e... z9e{up}; kouki(9,2,1.7); penstroke
+z15e{right}...z16e{up}; kouki(16,1,1.7); filldraw
+z21r{right}...z20r{down}...z19r {left}...z17r{down} & z17r--z17l &
+z17l---z18l{up}...z24l...z25l... z26l...z27l...z28l{up} & z28l--z28r &
+z28r{down}...z27r...z26r...(6.1u,7.65v)... z24r...z18r{down}...z19l{right}...
+z20l{up}...z21l{left} & z21l--z21r & cycle; penstroke
+z21e{left}...z22e...z23e{right}; kouki(23,6,1.7); penstroke
+z28e{up}...z29e...z30e{down}; kouki(30,4,1.7); filldraw
+z31l{z26-z31}...z37l...z38l ...z39l...z40l...z41l...z42l...z43l ...z44l{up} &
+z44l--z44r & z44r{down} ...z43r...(2u,8.05v)...z42r...z41r...z40r...z39r
+...z38r...z37r...z32l...z33l{up} & z33l--z33r & z33r{down}...z32r...
+z31r{z31-z26} & z31r--z31l & cycle; penstroke z33e{up}...z34e...z35e...
+z36e{right}; kouki(36,6,1.7); penstroke z44e{up}...z45e...z46e...
+z47e...z48e{z48-z17};  z50=(2.15u,1.65v); z51=(2.9u,2.6v); z52=(2.5u,3.05v);
+z53=(2.3u,2.8v); z53'=(2.3u,1.55v); z54=(3.6u,4.3v); z55=(3.35u,5.45v);
+z56=(3.1u,7v); z57=(5.1u,9.05v); z58=(6.55u,7.7v); z59=(5.45u,6.4v);
+z60=(4.6u,7.75v); z61=(5.1u,8.05v); z62=(5.8u,7.4v); z63=(5.4u,7v);
+z64=(5.05u,7.3v); z65=(5.35u,8.4v); z66=(6.5u,8.55v); z67=(6.85u,8.8v);
+z68=(4.8u,8.5v); z69=(4.15u,9.2v); z70=(2.6u,8.5v); z71=(2.25u,8.8v);
+z72=(3.6u,8.6v); z73=(4u,8.2v); z74=(4.3u,8.4v); z78=(1.7u,6.7v);
+z79=(0.67u,6.3v); z80=(0.4u,6.05v); z81=(0.2u,5.7v); z82=(0.1u,5.15v);
+z83=(0.7u,4.5v); z84=(1.15u,3.5v); z85=(1.9u,2.15v); z86=(1.5u,2v);
+z87=(0.75u,0.95v); z88=(0,0.3v); z89=(0.9u,2.4v); z90=(0.15u,1.7v);
+z91=(1.05u,0.5v); z92=(3.2u,1.5v); z93=(4.25u,0.68v); z94=(3.65u,0);
+z95=(3.1u,0.55v); z96=(3.5u,1.05v); z97=(4.1u,1.7v); z98=(3.75u,2.05v);
+z99=(2.1u,0.5v); z100=(2.7u,v); z101=(4.8u,0.1v); z102=(5.3u,0.5v);
+z103=(5u,0.95v); z104=(5.8u,0.5v); z105=(6.55u,0.3v); z106=(1.5u,3.6v);
+z107=(2.65u,4.8v); z108=(2.35u,5.55v); z109=(1.7u,5.85v); z110=(0.95u,5.2v);
+z111=(1.4u,4.8v); z112=(1.85u,4.9v); z113=(2.15u,4.5v); z114=(0,8v);
+z115=(u,9.15v); z116=(7.2u,3v); z117=(7u,3.25v); z118=(7.3u,3.45v);
+z119=(7.75u,2.85v); z120=(6.7u,2v); z121=(5.9u,2.75v); z122=(6.1u,3.15v);
+z123=(6.35u,3.75v); z124=(6.05u,4.05v); z125=(5.85u,3.95v); z126=(6.6u,3v);
+z127=(5.3u,3.8v); z128=(7.45u,6.7v); z129=(8.53u,6.13v); z130=(8.8u,5.3v);
+z131=(8.3u,4.7v); z132=(7.5u,3.9v); z133=(6.4u,5v); z134=(7.25u,6.1v);
+z135=(7.95u,5.45v); z141=(6.85u,1.55v); z142=(8u,0.25v); z143=(8.85u,1.15v);
+z144=(8.5u,1.8v); z145=(8.2u,2.45v); z146=(8.4u,2.7v); z147=(7.55u,1.3v);
+z148=(7.9u,0.8v); z150=(8.4u,1.05v); z149=(8.8u,0.3v); y136=y135;
+x136=x135-0.5u; z137=z136+(0,-0.5v); z138=(7.3u,4.6v); z137.5=(7.7u,4.85v);
+z139=(7.5u,4.3v); ka(50,-45); ka(51,0); ka(52,90); ka(53,180); ka(53',-47);
+ka(54,0); ka(55,20); ka(56,0); ka(57,-90); ka(58,180); ka(59,90); ka(60,-35);
+ka(61,-90); ka(62,180); ka(63,90); ka(64,0); ka(65,-70); ka(66,-90); ka(67,0);
+ka(68,0); ka(69,90); ka(70,90); ka(71,0); ka(72,180); ka(73,-90); ka(74,0);
+ka(78,90); ka(79,128); ka(80,143); ka(81,157); ka(82,180); ka(83,-90);
+ka(84,-125); ka(85,141); ka(86,180); ka(87,77); ka(88,180); ka(89,122);
+ka(90,158); ka(91,-90); ka(92,-90); ka(93,180); ka(94,90); ka(95,0); ka(96,-59);
+ka(97,0); ka(98,90); ka(99,0); ka(100,-90); ka(101,-90); ka(102,0); ka(103,90);
+ka(104,-90); ka(105,-90); ka(106,-90); ka(107,0); ka(108,41); ka(109,90);
+ka(110,180); penpos111(0.4uv,-67.5); penpos112(0.3v,-90); ka(113,180);
+ka(114,0); ka(115,-90); ka(48',-146); ka(116,90); ka(117,0); ka(118,-90);
+ka(119,180); ka(120,90); ka(121,0); ka(122,-53); ka(123,0); ka(124,90);
+ka(125,180); ka(126,180); ka(127,0); ka(128,-90); ka(129,-146); ka(130,180);
+ka(131,90); ka(132,90); ka(133,0); ka(134,-90); ka(135,180);
+penpos138(1.5hair,180);  ka(139,-90); ka(141,-171); ka(142,-90); ka(143,0);
+ka(144,54); ka(145,0); ka(146,-90); ka(147,180); ka(148,-90); ka(149,180);
+ka(150,0); penstroke z50e{z128-z50}...z51e... z52e...z53e{down};
+kouki(53,4,1.3); penstroke z53'e{z20-z53'}...z54e...
+z55e{z55-z103}...z56e...z57e...z58e ...z59e...z60e{z60-z8}...z61e...
+z62e...z63e...z64e{up}; kouki(64,2,1.2); mpalla(55,1.45);  penstroke
+z55e{z55-z103}...z78e... z79e...z80e...z81e...z82e{down}...z83e{right}; penstroke
+z60e{z60-z8}...z65e...z66e ...z67e{up}; kouki(67,1,1.3); penstroke
+z60e{z60-z8}...z68e...z69e {left}...z72e...z73e...z74e{up}; kouki(74,1,1.25);
+penstroke z69e{left}...z70e...z71e{up}; kouki(71,2,1.5); penstroke
+z82e{down}...z106e...z107e...
+z108e{z108-z37}...z109e{left}...{down}z110e...z111e... z112e...z113e{down};
+kouki(113,3,1.6); penstroke z108e{z108-z37}...z114e...z115e... z48'e;
+kouki(83,6,1.2); penstroke z106e{right}...z85e{z85-z59}; penstroke
+z89e{z89-z18}...z90e...z91e ...z92e...z93e...z94e...z95e...z96e
+{right}...z97e...z98e{left}; kouki(98,7,1.4); kouki(96,8,1.4); penstroke
+z99e{up}...z100e...z101e... z102e...z103e{left}; z99'=z99; ka(99',180);
+kouki(99',4,1.3);  penstroke z101e{right}...z104e...z105e{right};
+kouki(105,6,1.4); penstroke z86e{down}...z87e...z88e{down}; kouki(88,4,1.5);
+kouki(103,7,1.75); penstroke z141e{down}...z142e...z143e
+...z144e{z12-z144}...z147e...z148e {right}...z150e{up}; kouki(150,1,1.75);
+penstroke z144e{z12-z144}...z145e... z146e{right}; kouki(146,8,1.6); penstroke
+z148e{right}...z149e{down}; kouki(149,3,1.3); z151=(3.3u,6.85v);
+z152=(2.7u,7.125v); z153=(1.9u,6.4v); z154=(2.4u,5.9v); z155=(2.8u,6.25v);
+ka(151,44); ka(152,90); ka(153,180);  ka(154,-90); ka(155,0); penstroke
+z12e{up}...z151e...z152e... z153e...z154e...z155e{up}; kouki(155,1,1.6);
+mpalla(108,1.4); mpalla(79,1.25); mpalla(81,1.25); mpalla(80,1.45);
+mpalla(57,1.4); penstroke z116e{left}... z118e...z119e...z120e{left}...z17e{up};
+penstroke z120e{left}...z127e... z128e...z129e...z130e...z132e...
+z133e...z134e{right}...z135e{down}; filldraw z135r{down}...z136{up} &
+z136{left}...z137{right} & z137{left} ...z138r{down} & z138r--z138l &
+z138l{up}...z137.5...z135l{up} & z135l--z135r & cycle; penstroke
+z138e{down}...z139e{right}; kouki(139,6,1.25); mpalla(134,1.35);
+z156=(8.8u,7.8v); z157=(7.9u,8.9v); z158=(7.25u,8.2v); z159=(7.7u,7.7v);
+z160=(7.85u,7.95v); ka(156,0); ka(157,90); ka(158,180); ka(159,-90); ka(160,0);
+penstroke z134e{right}...z156e...z157e ...z158e...z159e...z160e{up}; penstroke
+z120e{left}...z121e... z122e{z131-z122}...z126e{down}; penstroke
+z122e{z131-z122}...z123e... z124e...z125e{down}; kouki(126,3,1.3);
+kouki(125,4,1.25); penstroke z130e{down}...z131e{left}; kouki(131,5,1.3);
+z200=(1.7u,0.9v); z201=(1.25u,0.55v); z202=(0.85u,1.85v);
+triaina(200,201,202,0.5); penlabels(range 1 thru 210);
+.endchar;
+ 
\ No newline at end of file
diff --git a/fonts/gothic/yinit/yinitY.mf b/fonts/gothic/yinit/yinitY.mf
new file mode 100644
index 0000000000..d4ad77f0f0
--- /dev/null
+++ b/fonts/gothic/yinit/yinitY.mf
@@ -0,0 +1,110 @@
+.cmchar "The letter Y";
+.beginchar("Y",8.9u#+0.3mm#,8.7m*u#,0);
+.adjust_fit(0,0); 
+z1=(1.5u,1.7v); z2=(1.75u,1.9v); z3=(2.25u,1.4v); z4=(1.6u,0.8v);
+z5=(0.95u,1.6v); z6=(2.3u,2.65v); z7=(3.3u,2.05v); z8=(4.15u,1.05v);
+z9=(7u,1.15v); z10=(7.9u,3.2v); z11=(7.05u,5.25v); z12=(7.75u,7.1v);
+z13=(8.65u,7v); z14=(8.25u,8.55v); z15=(8.6u,8v); z16=(8.1u,7.5v);
+z17=(7u,7.95v); z18=(5.35u,8v); z19=(4.65u,7.5v); z20=(3.55u,1.9v);
+z21=(5.2u,3.35v); z22=(6.1u,4.5v); z23=(5.5u,5.2v); z24=(4.65u,3.6v);
+z25=(3.8u,4.05v); z26=(2.95u,5.15v); z27=(3.55u,5.7v); z28=(3.8u,5.5v); z29=z25;
+z30=(4.35u,5.5v); z31=(3.8u,6.75v); z32=(3.7u,7.4v); z33=(2.6u,6.5v);
+z34=(4.1u,4.05v); z35=(5.05u,6.5v); z36=(4.05u,8.1v); z37=(3.3u,8.25v);
+z38=(2.5u,7.95v); z39=(0.6u,8.1v); z40=(1.15u,8.75v); z41=(1.5u,8.6v);
+z42=(2u,8.65v); z43=(2u,9.1v);  ka(1,0); ka(2,-90); ka(3,180); ka(4,90);
+penpos5(1.5hair,0); penpos6(0.6v,-90); penpos7(0.9uv,-149); penpos8(0.9uv,-136);
+penpos9(1.5hair,-54); penpos10(0.75uv,22); penpos11(0.875uv,28);
+penpos12(1.5hair,-59); ka(13,180); ka(14,-90); ka(15,180); penpos16(0.25v,90);
+penpos17(0.8uv,44); penpos18(1.5hair,129); ka(19,129); ka(20,-46);
+penpos21(2hair,-53); penpos22(1.5hair,0); ka(23,90); penpos24(uv,45);
+penpos25(0.9v,90); penpos26(0.22u,0); penpos27(1.5hair,-90); ka(28,180);
+ka(29,-26); penpos30(0.3u,0); penpos31(0.7uv,53); ka(32,180); ka(33,-73);
+ka(34,-35); penpos35(0.62u,5); penpos36(0.9uv,62); penpos37(0.95v,90);
+penpos38(0.83v,110); penpos39(1.5hair,16); penpos40(0.3v,-90);
+penpos41(0.5uv,-127); penpos42(1.5hair,-44); ka(43,21); penstroke
+z1e{up}...z2e...z3e...z4e ...z5e...z6e...z7e...z8e...z9e...z10e
+...z11e...z12e...z13e{down}; z1'=z1; ka(1',180); kouki(1',4,2.25);
+kouki(13,3,1.7); z23'=(5.2u,4.9v); ka(23',180); filldraw
+z20r{z11-z20}...z21r{z21-z4} & z21r--z21l & z21l{z37-z21}...z24r...z25r...z26r
+...z27r{right} & z27r--z27l &  z27l{left}...z26l...z25l...z24l... z20l{z20-z11}
+& z20l--z20r & cycle; penstroke z21e{z21-z4}...z22e... z23e...z23'e{down};
+kouki(23',4,2.2); penstroke z27e{right}...z28e{down}; kouki(28,3,2); filldraw
+z29r{z29-z4}...z30r...z31r ...z32l{up} & z32l--z32r & z32r{z4-z32}
+...z33l{z33-z16} & z33l--z33r & z33r{z16-z33}...z31l...z30l... z29l{z4-z29} &
+z29l--z29r & cycle; penstroke z34e{z34-z4}...z35e...z36e
+...z37e...z38e...z39e...z40e...z41e ...z42e...z43e{z43-z28}; penstroke
+z19e{z19-z31}...z18e... z17e...z16e...z15e...z14e{left}; kouki(14,7,2);
+z50=(2.1u,2.05v); z51=(2.7u,1.3v); z52=(2.2u,0.35v); z53=(1.6u,0.15v);
+z54=(0.05u,1.65v); z55=(2.15u,3.4v); z56=(4u,2.3v); z57=(5.5u,1.2v);
+z58=(7.05u,2.6v); z59=(4.8u,4.9v); z60=(2.3u,2.4v); z61=(5.3u,0);
+z62=(5.8u,0.05v); z63=(6.3u,0.15v); z65=(8.6u,3.2v); z66=(8u,5v);
+z67=(7.55u,6.2v); z68=(4.4u,1.75v); z69=(4.5u,2.45v); z70=(5.2u,4v);
+z71=(6.15u,3.2v); z72=(5u,1.75v); z73=(5u,4.35v); z74=(6.45u,6.55v);
+z75=(8.4u,9.15v); z76=(8.9u,8.8v); z77=(6.25u,7.4v); z78=(6.2u,8.9v);
+z79=(6.55u,9.02v); z80=(6.85u,9v); z81=(7.25u,9.2v); z82=(5.8u,6.8v);
+z83=(5.55u,8.15v); z84=(4.9u,8.7v); z85=(5.4u,9.2v); z86=(3.05u,9.25v);
+z87=(0.5u,8.15v); z88=(0.1u,8.4v); z89=(0.3u,8.7v); z90=(0.25u,9.1v);
+z91=(1.8u,7.6v); z92=(3.3u,6v); z93=(3.75u,8.85v); z94=(3.2u,7.3v);
+z95=(3.7u,7.8v); z96=(3.6u,5.7v); z97=(2.1u,6.7v); z98=(0.45u,5v);
+z99=(1.55u,3.9v); z100=(2.5u,4.7v); z101=(1.8u,5.55v); z102=(1.25u,5.15v);
+z103=(u,5.95v); z104=(0.45u,6.55v); z105=(0.8u,7.1v); z106=(1.05u,6.9v);
+z108=(8.5u,2.5v); z109=(9u,3.35v); z110=(8.5u,4.8v); z111=(7.9u,5.9v);
+z112=(8.4u,7.1v); z113=(8.6u,5.5v); z114=(9u,6v); z115=(8.55u,6.3v);
+z116=(8.4u,6.1v); z117=(8u,0.1v); z118=(8.9u,v); z119=(8.2u,1.7v);
+z120=(7.7u,1.3v); z121=(8.1u,0.8v); z122=(8.3u,1.05v); z56.1=(4.3u,3.9v);
+z56.2=(4.4u,3.75v); ka(56.1,-32); ka(56.2,-41); ka(50,-90); ka(51,180);
+ka(52,124); ka(53,90); ka(54,0); ka(55,-90); ka(56,-144); ka(57,-90); ka(58,0);
+ka(59,90); ka(60,180); ka(61,-79); ka(63,-72); ka(65,0); ka(66,27); ka(67,0);
+ka(68,-145); ka(69,-90); ka(70,-90); ka(71,180); ka(72,180); ka(73,-48);
+ka(74,-22); ka(75,-90); ka(76,180); ka(77,-6); ka(78,0); penpos79(0.25v,-108);
+penpos80(0.15uv,-59); ka(81,-90); ka(82,0); ka(83,27); ka(84,90); ka(85,0);
+ka(86,106); ka(87,90); ka(88,0); ka(90,90); penpos89(0.15uv,-42); ka(91,180);
+ka(92,-90); ka(93,90); ka(94,-90); ka(95,0); ka(96,0); ka(97,90); ka(98,180);
+ka(99,-90); ka(100,0); ka(101,90); ka(102,160); ka(103,90); ka(104,0);
+ka(105,-90); ka(106,180); ka(108,-90); ka(109,0); ka(110,31); ka(111,26.5);
+ka(112,-90); ka(113,-90); ka(114,0); ka(115,90); ka(116,180); ka(117,-90);
+ka(118,0); ka(119,90); ka(120,180);  penpos121(0.3v,-90); penpos122(0.25u,0);
+penstroke z1e{up}...z50e...z51e... z52e...z53e...z54e...z55e...z56e...
+z57e...z58e...z59e...z60e... z61e{z63-z61}; z112'=z112+(0.15u,-0.15v);
+ka(112',180); penstroke z63e{z63-z61}...z65e...z66e
+...z67e...z112e{right}...z112'e{down}; mpalla(61,1.3); mpalla(62,1.6);
+mpalla(63,1.3); z58'=z58; ka(58',180); penstroke z58'e{down}...
+z117e...z118e...z119e...z120e... z121e...z122e{up}; filldraw z122l--z122r &
+z122r{up}..z122l & cycle; z56'=z56; ka(56',36); penstroke
+z56'e{z97-z56}...z96e{up}...z97e...z98e ...z99e...z100e...z101e...z102e{down};
+mpalla(99,1.4); penstroke z56'e{z97-z56}...z56.2e...z70e... z71e{down};
+kouki(72,4,1.4); mpalla(101,1.3); penstroke z56.2e{z75-z56.2}...z73e...
+z74e...z75e...z76e{down}; kouki(76,3,1.2); z56.4=(5.15u,4.9v); ka(56.4,-40);
+penstroke z56'e{z97-z56}...z56.1e ...z56.4e...z82e...
+z83e{z83-z10}...z86e{z87-z86}... z91e{down}...z92e{right}...z93e{left}
+...z94e{right}...z95e{up}; penstroke z83e{z83-z10}...z85e{up}; kouki(85,2,1.3);
+penstroke z83e{z83-z10}...z84e{left}; kouki(84,7,1.2); mpalla(86,1.2); penstroke
+z86e...z87e{left} ...z88e...z89e...z90e{left}; kouki(90,7,1.1); penstroke
+z91e{down}...z103e...z104e ...z105e...z106e{down}; kouki(106,3,1.6);
+z200=(6.15u,2.9v); z201=(5.8u,2.45v); z203=(5.3u,2.9v); z204=(6.15u,1.7v);
+z205=(5.35u,2.15v); ka(200,180); penpos201(2hair,131); ka(203,0); ka(204,-90);
+ka(205,76); penpos206(0.4uv,131); z206=z201; z207=z206l; z208=z206r; penstroke
+z71e{down}...z200e...z201e {z201-z110}...z205e...z72e{down}; penstroke
+z201e{z201-z110}... z203e{up}; penstroke z201e{z201-z110}... z204e{right};
+mpalla(200,1.5); mpalla(207,1.7); mpalla(208,1.7); mpalla(205,1.5);
+kouki(203,2,1); kouki(204,6,1); z123=(2.6u,6.5v); z124=(2.05u,6v);
+z125=(2.3u,5.75v); ka(123,90); ka(124,180); ka(125,-90); penstroke
+z96e{up}...z123e...z124e ...z125e{right}; kouki(125,6,1.3); z56.3=z23+(0.05u,0);
+ka(56.3,-20); penstroke z56.3e{z17-z56.3}...z77e...
+z78e{up}...z79e{z15-z79}...z80e...z81e{right}; mpalla(77,1.5); mpalla(54,1.35);
+z68'=z68; ka(68',38); penstroke z68'e{z105-z68}...z69e{right}; kouki(69,8,1.5);
+penstroke z108e{right}...z109e... z110e...z111e...z112e{right}; z108'=z108;
+ka(108',90); kouki(108',5,1.3); z111'=z111; ka(111',-151); penstroke
+z111'e{z111-z78}...z113e... z114e...z115e...z116e{down}; kouki(116,4,1);
+z52'=z52; ka(52',-55);  z126=(3.2u,0.8v); z127=(3.65u,0.45v); z128=(3.4u,0);
+ka(126,-90); ka(127,180); ka(128,90); penstroke z52'e{z110-z52}...z126e...
+z127e...z128e{left}; kouki(128,5,1.3); z210=(1.9u,5.05v); z211=(1.9u,4.5v);
+z212=(0.65u,5.05v); z220=(1.6u,2.55v); z221=(0.8u,2.2v); z222=(u,4v);
+z230=(1.05u,1.15v); z231=(1.35u,0.6v); z232=(-0.3u,0.4v);
+triaina(210,211,212,0.45); triaina(220,221,222,0.3); triaina(230,231,232,0.5);
+z131=z6l; z129=(2.8u,3.6v); z130=(2u,3.8v); ka(131,0); ka(130,90); ka(129,-90);
+kouki(130,7,1.1); kouki(129,8,1.2); penstroke z131e{up}...z129e{right};
+penstroke z131e{up}...z130e{left}; z240=(6.3u,5.3v); mpalla(240,1.4);
+penlabels(range 1 thru 240);
+.endchar;
+ 
\ No newline at end of file
diff --git a/fonts/gothic/yinit/yinitZ.mf b/fonts/gothic/yinit/yinitZ.mf
new file mode 100644
index 0000000000..7ab4aa07ab
--- /dev/null
+++ b/fonts/gothic/yinit/yinitZ.mf
@@ -0,0 +1,114 @@
+.cmchar "The letter Z";
+.beginchar("Z",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0); 
+z1=(4.05u,-0.1v); z2=(4.9u,1.1v); z3=(4.2u,1.3v); z4=(3.25u,1.55v); 
+z5=(1.75u,3.15v); z6=(3u,4.2v);  z7=(3.85u,3.4v); z8=(3.2u,2.65v);
+z9=(2.65u,3.2v); z10=(2.85u,3.45v); z11=(7.15u,4.15v); z12=(4.5u,5v);
+z13=(4.27u,4.32v); z21=(5.5u,5.55v); z20=(4.85u,4.45v); z22=(7.35u,8.25v);
+z23=(7.7u,8v); z24=(6.25u,6.95v); z25=(4.85u,7.6v); z26=(3.3u,8.3v);
+z27=(1.5u,6.6v); z28=(2.55u,5.45v); z29=(3.4u,6.2v); z30=(3u,6.95v);
+z31=(2.5u,6.75v); z32=(2.7u,6.35v); z33=(2.5u,5.95v); z34=(2.2u,6v);
+z14=(4.6u,5.7v); z15=(5u,6.2v); z16=(5.35u,6.02v); z17=(6u,5.75v);
+z18=(6.4u,6.1v); z19=(6.2u,6.4v); ka(1,-15); penpos2(1.5hair,-55);
+penpos3(1.2uv,42); penpos4(0.9uv,81); penpos5(0.45u,-11); penpos6(1.5hair,-90);
+ka(7,180); ka(8,90); ka(9,0); ka(10,-90); penpos11(uv,7); penpos12(2hair,73);
+penpos13(0.3uv,-155); ka(20,-50); ka(21,-17); ka(22,-90); ka(23,180);
+penpos24(0.4v,90); penpos25(1.15uv,39); penpos26(0.65v,90);
+penpos27(1.5hair,180); ka(28,-90); ka(29,0); penpos30(2hair,90);
+penpos31(0.6u,170); penpos32(0.5u,-150); penpos33(0.2uv,111); ka(34,90);
+ka(14,90); penpos15(0.35v,-90); penpos16(0.4uv,-134); penpos17(0.27v,-90);
+penpos18(1.5hair,0); ka(19,90); filldraw z1r{z22-z1}...z2r{(9u,4v)-z2} &
+z2r--z2l & z2l{up}...z3r...z4r... z5r...z6r...z7r...z8r...z9r...z10r{right} &
+z10r--z10l & z10l{left}...z9l... z8l...z7l...z6l...z5l...z4l...z3l... z1l{down}
+& z1l--z1r & cycle; penstroke z2e{(9u,4v)-z2}...z11e...
+z12e...z13e...z20e...z21e...z22e... z23e...z24e...z25e...z26e...z27e...
+z28e...z29e{up}...z30e...z31e...z32e... z33e...z34e{left}; penstroke
+z14e{left}...z15e...z16e... z17e...z18e...z19e{left}; kouki(10,8,2.2);
+kouki(14,6,1.3); kouki(19,7,1.3); z50=(3.7u,1.45v); z51=(1.6u,0);
+z52=(0.9u,0.25v); z53=(0.4u,v);  z54=(1.1u,1.65v); z55=(1.6u,1.15v);
+z56=(1.25u,0.75v); z57=(0.85u,1.1v); z58=(0.3u,2v); z59=(0,1.7v);
+z60=(7.15u,4.85v); z61=(8.7u,3.4v); z62=(7.4u,2.05v); z63=(6.3u,3v);
+z64=(7.15u,4.1v); z65=(8.1u,3.5v); z66=(6.5u,1.55v); z67=(4.45u,0); z67'=z67;
+z68=(5.6u,0.35v); z69=(6.1u,0.3v); z70=(6.8u,0.15v); z71=(7.7u,0.4v);
+z72=(8u,1.2v); z73=(7.4u,1.75v); z74=(6.85u,1.2v); z75=(7.25u,0.85v);
+z76=(7.6u,1.1v); z77=(8.4u,0.6v); z78=(8.5u,2.65v); z79=(8.15u,1.8v);
+z80=(7.7u,2.6v); z81=(8.15u,4v); z82=(5.6u,6.2v); z83=(2.9u,3.8v);
+z84=(4.6u,2.05v); z85=(5.9u,3.3v); z86=(5.5u,4.1v); z87=(4.1u,3.4v);
+z88=(4.8u,2.75v); z89=(5.4u,3.35v); z90=(4.9u,3.8v); z91=(4.6u,3.55v);
+z92=(4.45u,6.5v); z93=(5.15u,8.15v); z94=(5.9u,8.3v); z95=(6.35u,8.2v);
+z96=(6.6u,8.4v); z97=(6.05u,7.95v); z98=(5.8u,7.7v); z99=(6.8u,8.9v);
+z100=(8u,8.5v); z101=(8.6u,8.65v); z102=(8.45u,7.65v); z103=(8.15u,6.6v);
+z104=(7.4u,6.25v); z105=(6.5u,7v); z106=(7.35u,7.9v); z107=(7.9u,7.3v);
+z108=(7.5u,6.8v); z109=(8.1u,5.15v); z110=(8.3u,5v); z111=(7.65u,5.9v);
+z112=(4.4u,3.9v); z113=(4u,6.25v); z114=(3u,8.3v); z115=(3.6u,9.05v);
+z116=(4.15u,8.8v); z117=(4.5u,9v); z118=(3.85u,7.1v); z119=(1.3u,8.4v);
+z120=(2.05u,8.95v); z121=(2.25u,8.6v); z122=(2.55u,8.85v); z123=(2.1u,6.45v);
+z124=(0.5u,5v); z125=(1.5u,4v); z126=(2.4u,4.8v); z127=(1.8u,5.4v);
+z128=(1.25u,5v); z129=(1.8u,4.5v); z130=(3.3u,5.25v); z131=(3.8u,4.8v);
+z132=(3.55u,4.5v); z133=(3.3u,4.7v); z134=(0.4u,7.6v); z135=(0.55u,8.15v);
+z136=(0.75u,8.8v); z137=(1.35u,8.55v); z138=(2.1u,7.75v); z139=(1.5u,7v);
+z140=(0.85u,7.6v); z141=(1.25u,7.95v); z142=(1.45u,7.75v); z143=(0.2u,5.8v);
+z144=(0.2u,6.8v); z145=(1.05u,3.3v); z146=(0.8u,2.6v); z147=(0.7u,2v);
+z148=(0,3v); z149=(0.15u,3.3v); z150=(0.45u,3.9v); z151=(0.6u,3.3v);
+z152=(0.55u,2.95v); z153=(0.2u,4.25v); z154=(1.3u,3.65v); ka(50,147); ka(51,90);
+ka(52,59); ka(53,0); ka(54,-90); ka(55,180); ka(56,90); ka(57,0);
+penpos58(0.4v,90); ka(59,180); z50'=z50; ka(50',-33); ka(60,-90); ka(61,180);
+ka(62,90); ka(63,0); ka(65',0); ka(64,-90); ka(65,180); ka(66,117); ka(67,152);
+ka(67',-28); ka(68,-90); ka(69,-109); ka(70,-90); ka(71,-58); ka(72,0);
+ka(73,90); ka(74,180); ka(75,-90); ka(76,0); ka(77,-90); ka(78,147); ka(79,180);
+ka(80,146); z65'=z65; ka(82,90); ka(83,180); ka(84,-90); ka(85,0); ka(86,57);
+ka(87,180); ka(88,-90); ka(89,0); ka(90,90); ka(91,180); ka(92,0); ka(93,-46);
+ka(94,-128); ka(95,-90); ka(96,0); ka(97,180); ka(98,90); ka(99,-90);
+ka(100,-126); ka(101,0); ka(102,180); ka(103,141); ka(104,90); ka(105,0);
+ka(106,-90); ka(107,180); ka(108,90); ka(109,180); ka(110,-90); ka(112,0);
+ka(113,26); ka(114,0); ka(115,-90); ka(116,-90); ka(117,-90); ka(118,0);
+ka(119,0); penpos120(0.3uv,-135); penpos121(0.3uv,-111); ka(122,-8); ka(123,90);
+ka(124,180); ka(125,-90); ka(126,0); ka(127,90); ka(128,180); ka(129,-90);
+ka(130,-90); ka(131,180); ka(132,90); ka(133,0); ka(134,0); ka(135,-32);
+ka(136,0); ka(137,-90); ka(138,180); ka(139,90); ka(140,0); ka(141,-90);
+ka(142,180); ka(143,180); ka(144,0); ka(145,180); ka(146,135); ka(147,-90);
+ka(148,0); ka(149,-49); ka(150,0); ka(151,-146); ka(152,90); ka(153,90); 
+penstroke z50e{z50-z104}...z51e... z52e...z53e{up}...z54e...z55e...
+z56e...z57e{up}; kouki(57,2,1.5); penstroke z53e{up}...z58e{left}... z59e{down};
+z52'=(0.35u,0.5v); ka(52',90); penstroke z52e{z150-z5r}...z52'e{left};
+kouki(52',7,1.6); z155=(3.7u,-0.05v); z156=(3.15u,0.35v); z157=(2.7u,0.15v);
+z158=(2.6u,0.95v); z159=(2.3u,0.6v); z160=(1.6u,0.5v); ka(155,0); ka(156,90);
+ka(157,180); ka(158,90); ka(159,180); ka(160,180); penstroke
+z155e{z123-z155}...z156e... z157e{down}; kouki(157,4,1); penstroke
+z155e{z123-z155}...z158e{left} ...z159e{down}; kouki(159,4,1.1); penstroke
+z158e{left}...z160e{down}; kouki(160,4,1.2); penstroke z50'e{z104-z50}...z60e...
+z61e...z78e{z79-z78}...z62e...z63e...z64e...
+z65e{down}...z80e...z66e...z67e{z67-z103}; penstroke z78e{z79-z78}..z79e{down};
+kouki(79,4,1.6); kouki(65,3,1.5); z200=z65; ka(200,180); kouki(200,4,1.5);
+mpalla(80,1.75); penstroke z67'e{z79-z67}..z68e...
+z69e...z70e...z71e...z72e...z73e... z74e...z75e...z76e{up}; kouki(76,1,1.6);
+penstroke z65'e{up}...z82e...z83e... z84e...z85e...z86e...z87e...z88e...
+z89e...z90e...z91e{down}; kouki(91,4,1.8); penstroke z50'e{z104-z50}...
+z92e...z93e{z93-z150}...z99e...z100e {z85-z28}...z102e...z103e{z51-z103}
+...z104e...z105e...z106e...z107e... z108e{left}; kouki(108,5,1.4);
+mpalla(99,1.5);  penstroke z100e{z85-z28}...z101e{up}; kouki(101,1,1.5);
+mpalla(102,1.4);  penstroke z103e{z51-z103}...z109e{down} ...z110e{right};
+kouki(110,6,1.3); mpalla(111,1.3); penstroke z93e{z93-z150}...
+z94e{z103-z94}...z95e...z96e{up}; kouki(96,1,1.3); penstroke
+z94e{z103-z94}...z97e.. z98e{left}; kouki(98,5,1.2); penstroke
+z112e{up}...z113e{z113-z66} ...z118e{up}; kouki(118,2,1.2); penstroke
+z113e{z113-z66}...z114e... z115e...z116e...z117e{right}; kouki(117,8,1.25);
+penstroke z113e{z113-z66}...z119e{up} ...z120e...z121e...z122e{z122-z54};
+penstroke z112e{up}...z123e{z123-z111}... z134e...z135e{z26-z124}...z137e...z138e
+...z139e...z140e...z141e...z142e{down}; kouki(142,3,1.5); penstroke
+z135e{z26-z124}...z136e{up}; kouki(136,1,1.55); penstroke
+z123e{z123-z111}...z144e{up}; kouki(144,2,1.4); penstroke
+z123e{z123-z111}...z143e{down}; kouki(143,4,1.4); penstroke
+z123e{z123-z111}...z124e... z125e...z126e...z127e...z128e...z129e
+...z130e...z131e...z132e...z133e{up}; kouki(133,2,1.3); penstroke
+z124e{down}..z145e{down} ...z146e{z146-z18}...z148e...z149e
+{z94-z149}...z150e...z153e{left}; kouki(153,7,1.3); penstroke
+z146e{z146-z18}...z147e{right}; kouki(147,6,1.3); penstroke
+z149e{z94-z149}...z151e... z152e{left}; kouki(152,5,1.2); mpalla(154,1.3);
+z250=(1.7u,5v); ka(250,-90); penstroke z123e{left}...z250e{right};
+kouki(250,6,1.2); x251=0.5[x69,x70]; y251=y75+0.1v; ka(251,0); penstroke
+z68e{right}...z251e{up}; kouki(251,1,1.1); penstroke z71e...z77e{right};
+kouki(77,8,1.55); z252=(5.5u,4.61v); mpalla(252,1.6); penlabels(range 1 thru
+252);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yintbase.mf b/fonts/gothic/yinit/yintbase.mf
new file mode 100644
index 0000000000..05b45f1178
--- /dev/null
+++ b/fonts/gothic/yinit/yintbase.mf
@@ -0,0 +1,229 @@
+def kouki(suffix $)(expr arij, meg)=
+if arij=1: penpos$.1(hair,0); penpos$.2(hair,90); 
+z$.1=z$; z$.2=z$.1+(-.1meg*u-.5hair,.2meg*v-.5hair); 
+z$.3=z$.2r-(.1meg*u,.1meg*v); z$.4=z$.2r-(0,.2meg*v);
+z$.5=z$.2r+(.1meg*u,-.1meg*v); penstroke z$.1e{up}...{left}z$.2e;
+filldraw z$.2r...z$.3...z$.4...z$.5...cycle; 
+fi 
+if arij=2: penpos$.1(hair,0); penpos$.2(hair,-90); 
+z$.1=z$; z$.2=z$.1+(.1meg*u+.5hair,.2meg*v-.5hair); 
+z$.3=z$.2l+(.1meg*u,-.1meg*v); z$.4=z$.2l-(0,.2meg*v);
+z$.5=z$.2l-(.1meg*u,.1meg*v); penstroke z$.1e{up}...{right}z$.2e;
+filldraw z$.2l...z$.3...z$.4...z$.5...cycle; 
+fi 
+if arij=3: penpos$.1(hair,-180); penpos$.2(hair,90); 
+z$.1=z$; z$.2=z$.1+(-.1meg*u-.5hair,-.2meg*v+.5hair); 
+z$.3=z$.2l-(.1meg*u,-.1meg*v); z$.4=z$.2l+(0,.2meg*v);
+z$.5=z$.2l+(.1meg*u,+.1meg*v); penstroke z$.1e{down}...{left}z$.2e;
+filldraw z$.2l...z$.3...z$.4...z$.5...cycle; 
+fi 
+if arij=4: penpos$.1(hair,-180); penpos$.2(hair,-90); 
+z$.1=z$; z$.2=z$.1+(.1meg*u+.5hair,-.2meg*v+.5hair); 
+z$.3=z$.2r-(-.1meg*u,-.1meg*v); z$.4=z$.2r+(0,.2meg*v);
+z$.5=z$.2r+(-.1meg*u,+.1meg*v); penstroke z$.1e{down}...{right}z$.2e;
+filldraw z$.2r...z$.3...z$.4...z$.5...cycle; 
+fi 
+if arij=5: penpos$.1(hair,90); penpos$.2(hair,0); 
+z$.1=z$; z$.2=z$.1-(.2meg*u-.5hair,-.1meg*v-.5hair); 
+z$.3=z$.2l+(.1meg*u,.1meg*v); z$.4=z$.2l+(.2meg*u,0);
+z$.5=z$.2l+(.1meg*u,-.1meg*v); penstroke z$.1e{left}...{up}z$.2e;
+filldraw z$.2l...z$.3...z$.4...z$.5...cycle; 
+fi 
+if arij=6: penpos$.1(hair,-90); penpos$.2(hair,0); 
+z$.1=z$; z$.2=z$.1-(-.2meg*u+.5hair,-.1meg*v-.5hair); 
+z$.3=z$.2r+(-.1meg*u,.1meg*v); z$.4=z$.2r+(-.2meg*u,0);
+z$.5=z$.2r+(-.1meg*u,-.1meg*v); penstroke z$.1e{right}...{up}z$.2e;
+filldraw z$.2r...z$.3...z$.4...z$.5...cycle; 
+fi 
+if arij=7: penpos$.1(hair,90); penpos$.2(hair,-180); 
+z$.1=z$; z$.2=z$.1-(.2meg*u-.5hair,.1meg*v+.5hair); 
+z$.3=z$.2r+(.1meg*u,-.1meg*v); z$.4=z$.2r+(.2meg*u,0);
+z$.5=z$.2r+(.1meg*u,.1meg*v); penstroke z$.1e{left}...{down}z$.2e;
+filldraw z$.2r...z$.3...z$.4...z$.5...cycle; 
+fi 
+if arij=8: penpos$.1(hair,-90); penpos$.2(hair,-180); 
+z$.1=z$; z$.2=z$.1+(.2meg*u-.5hair,-.1meg*v-.5hair); 
+z$.3=z$.2l-(.1meg*u,.1meg*v); z$.4=z$.2l-(.2meg*u,0);
+z$.5=z$.2l-(.1meg*u,-.1meg*v); penstroke z$.1e{right}...{down}z$.2e;
+filldraw z$.2l...z$.3...z$.4...z$.5...cycle; 
+fi 
+enddef;
+def mpalla(suffix $)(expr meg)= z$.1=z$; z$.2=z$.1+(0,.1meg*v);
+z$.3=z$.1+(-.1meg*u,0); z$.4=z$.1+(0,-.1meg*v); z$.5=z$.1+(.1meg*u,0);
+filldraw z$.2...z$.3...z$.4...z$.5...cycle
+enddef;
+def kordella(suffix $,$$)= 
+(z$.1-z$$)=whatever * (z$$l-z$$r); z$.1-z$=whatever * dir(angle(z$r-z$l)+90);
+(z$.2-z$)=whatever * (z$l-z$r); z$.2-z$$=whatever * dir(angle(z$$r-z$$l)+90);  
+z$.3=.5[z$,z$.2]; z$.4=.25[z$,z$$];
+z$.5-z$$=z$-z$.4; z$.6-z$.2=z$-z$.4;
+z$.7=0.25[z$.1,z$$];
+filldraw z$r{z$.1-z$}...{z$.2-z$}z$.4...{z$-z$.1}z$.3...
+{z$.2-z$}z$.6...{z$.1-z$}z$$r 
+& z$$r--z$$l & z$$l{z$-z$.1}...{z$-z$.2}z$.5...{z$-z$.2}z$.7...
+{z$-z$.1}z$l & z$l--z$r & cycle
+enddef;
+def ka(suffix $)(expr angle)= penpos$(hair,angle) enddef;
+
+def triaina(suffix $,$$,$$$)(expr alpha)=
+numeric theta; 
+theta:= angle(z$$$-z$);
+z$.1=(0.5-0.5alpha)[z$,z$$$];
+z$.1'=(0.5-0.5alpha)[z$$$,z$];
+z$.2=.5[z$.1,z$.1']+1/8(z$$-z$);
+z$.3=.5[z$.1,z$.1']+5/8(z$$-z$);
+z$.4=.25[z$.1,z$.1']+5/8(z$$-z$);
+z$.4'=.75[z$.1,z$.1']+5/8(z$$-z$);
+z$.5=z$.1+1/6(z$$-z$); 
+z$.5'=z$.1'+1/6(z$$-z$); 
+z$.7=z$$+.25(z$$$-z$);
+z$.7'=z$$+.75(z$$$-z$);
+z$.8=2/3[z$,z$$]; z$.8'=z$.8+(z$$$-z$);
+penpos$.8(hair,theta);
+penpos$.7(hair,theta-90);
+penpos$.4(hair,theta+180);
+penpos$.5(hair,theta+180);
+penpos$.1(hair,theta-135);
+penpos$.2(3hair,theta-90);
+penpos$.1'(hair,theta-45);
+penpos$.5'(hair,theta);
+penpos$.4'(hair,theta);
+penpos$.7'(hair,theta-90);
+penpos$.8'(hair,theta+180);
+%filldraw z$.1--z$.3 & z$.3--z$.1' &
+%z$.1' -- z$.1 & cycle;
+penstroke z$.8e{z$$-z$}...z$.7e{z$$$-z$}
+...z$.4e{z$-z$$}...z$.5e...z$.1e...
+{z$$$-z$}z$.2e...z$.1'e...z$.5'e...
+z$.4'e{z$$-z$}...z$.7'e{z$$$-z$}...
+z$.8'e{z$-z$$};
+z$.11=z$.8l; z$.13=z$.11+(alpha/3)*(z$$$-z$);
+z$.11'=z$.8'l; z$.13'=z$.11'-(alpha/3)*(z$$$-z$);
+filldraw z$.11...z$.13...cycle;
+filldraw z$.11'...z$.13'...cycle
+enddef;
+
+def kouti(suffix $,$$)=
+z$$.2=z$r+(z$l-z$$); z$'=z$;
+z$$.1-z$$=whatever*dir(angle(z$r-z$l)+90);
+z$$.1-z$$.2=whatever*(z$l-z$r);
+z$$.3=z$$+(z$$.2-z$$.1);
+filldraw z$$--z$$.1--z$$.2--z$$.3--z$$ & cycle
+enddef;
+
+def louloudi(suffix $) (expr alpha) =
+x$.2=x$.6=x$-0.5alpha*u; x$.8=x$.4=x$+0.5alpha*u;
+x$.1=x$.5=x$-0.05alpha*u; x$.3=x$.7=x$+0.05alpha*u;
+z$.3-z$=whatever*dir45; z$.4=whatever[z$,z$.3];
+z$.5=whatever[z$,z$.3]; z$.6=whatever[z$,z$.3];
+z$.1-z$=whatever*dir135; z$.2=whatever[z$,z$.1];
+z$.7=whatever[z$,z$.1]; z$.8=whatever[z$,z$.1];
+filldraw z$.3{right}..z$.4{up} & z$.4{left}..z$.3{down} & cycle;
+filldraw z$.1{up}..z$.2{left} & z$.2{down}..z$.1{right} & cycle;
+filldraw z$.6{right}..z$.5{up} & z$.5{left}..z$.6{down} & cycle;
+filldraw z$.8{up}..z$.7{left} & z$.7{down}..z$.8{right} & cycle;
+enddef;
+
+def laimoc_swab =
+penpos1.1(stem,0); penpos1.3(stem,0);
+penpos1.4(hair,90); penpos1.5(hair,-90);
+y1.1=y1.1'=foot; x1.1l=x1.2=0.413stem;
+x1.1'=x1.4=0; x1.3=x1.1; x1.5=x1.1r+0.761stem;
+y1.5l=cap_height+apex_o; 
+z1.5l-z1.4r=whatever*dir17;
+y1.3=0.828cap_height; y1.2=0.273cap_height;
+filldraw z1.1'...z1.2---z1.3l...
+z1.4l & z1.4l--z1.4r--z1.5l--z1.5r
+& z1.5r{left}...z1.3r---z1.1r &
+z1.1r--z1.1' & cycle  enddef;
+
+def podi_swab (expr theta) =
+penpos2.1(1.304stem,theta);
+penpos2.2(1.304stem,theta);
+z2.1l=(0,foot); 
+z2.1l-z2.2l=whatever*dir151;
+y2.2l=-apex_o; penpos2.3(hair,theta-90);
+z2.3r=z2.2;
+z2.05=(2/3apex_o,2/3apex_o);
+penpos2.1'(1.304stem,theta);
+z2.1'=0.5[z2.1,z2.2]+z2.05;
+penstroke z2.2e..z2.1'e..z2.1e
+enddef;
+
+def long_s  = numeric w',h',d';
+w':=6.038u; h':=1.414x_height;
+d':=3.208u;
+penpos1.1(2/3hair,0);
+z1.1=(0.313w',-d');
+penpos1.2(1.283stem,0);
+z1.2=(0.344w',0.589h');
+penpos1.4(hair,90); 
+z1.4l=(0,y1.2-1/3stem);
+z1.3=(z1.1l..{dir92.5}z1.2l)
+intersectionpoint 
+((0,y1.4l)--(w',y1.4l));
+z1.5=(0.35w',0.761h');
+penpos1.6(0.957stem,-118); 
+z1.6l=(0.669w',h'); 
+penpos1.7(1.174stem,-125);
+z1.7l=(w',0.962h'); penpos1.8(hair,-35);
+z1.8r=z1.7l; z1.9-z1.8l=whatever*(z1.7l-z1.7r);
+x1.9=0.9w';
+penpos1.11(2/3stem,-90); y1.11=y1.2;
+x1.11=0.763w';
+penpos1.12(2/3stem,-90); z1.12=z1.2;
+filldraw z1.1r..z1.2r{dir87} &
+z1.2r{dir126}..z1.5{up}..z1.6r{right}
+..z1.7r{right}--z1.8r--z1.8l--z1.9
+& z1.9{left}..z1.6l{left}..
+z1.4r{dir218}--z1.4l{right}--
+z1.3{dir272.5}..z1.1l--z1.1r & cycle;
+if isitf: filldraw z1.11r--z1.12r--
+z1.12l--z1.5{down}...(x1.2r,y1.11l){right}
+---z1.11l--z1.11r & cycle; fi
+enddef;
+
+def dexi_podi_swab (expr yy) =
+penpos1.2(stem,0); 
+z1.2r=(1.63stem,0.694x_height);
+penpos1.1(whatever,24);
+penpos1.3(whatever,43);
+x1.1l=x1.2l; z1.3l=z1.2l;
+x1.1r=x1.2r=x1.3r; y1.1l=yy;
+penpos1.4(1.348stem,43);
+x1.4l=0; y1.4r=x_height+apex_o;
+penstroke z1.1e---z1.3e...
+z1.4e{dir133} enddef;
+
+def aristero_podi_swab (expr xx) =
+w':=5.057u; penpos2.1(stem,0); 
+z2.1l=(xx+1.261stem,0.694x_height);
+penpos2.2(whatever,34); 
+z2.2l=(x2.1l,-apex_o); x2.2r=xx+w';
+penpos2.3(hair,-90); z2.3r=z2.2r;
+z2.4=(x2.1r,0.378x_height);
+z2.6=(xx+0.545w',x_height+apex_o);
+penpos2.5(hair,-90);
+z2.5l-z2.6=whatever*dir-40;
+x2.5=xx+0.9w';
+penpos2.7(hair,-90);
+z2.6-z2.7l=whatever*dir33;
+x2.7=xx; z2.8-z2.7r=whatever*(z2.6-z2.7l);
+z2.8=whatever[z2.6,z2.5r];
+penpos2.9(1.217stem,33);
+z2.9r=z2.8; 
+z2.9l-z2.11=whatever*(z2.6-z2.5l);
+x2.11=x2.1l;
+filldraw z2.7r--z2.9l--z2.11--
+z2.2l--z2.3r--z2.3l{z2.2l-z2.2r}..{up}
+z2.4---z2.1r...z2.5r{right}--
+z2.5l--z2.6--z2.7l--z2.7r &
+cycle enddef;
+
+def e_umlaut(suffix $) =
+penpos$.1(2u,45); z$.1=z$;
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z$.2=z$.1r; z$.3=z$.1l; rt x$.4=rt x$.2; top y$.4=y$;
+draw z$.3--z$.2..z$.3..z$.4;
+enddef;
+