summaryrefslogtreecommitdiff
path: root/language/croatian/fonts
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /language/croatian/fonts
Initial commit
Diffstat (limited to 'language/croatian/fonts')
-rw-r--r--language/croatian/fonts/README109
-rw-r--r--language/croatian/fonts/inex.gml7
-rw-r--r--language/croatian/fonts/mf/bass.mf67
-rw-r--r--language/croatian/fonts/mf/bass10.mf51
-rw-r--r--language/croatian/fonts/mf/basscc.mf637
-rw-r--r--language/croatian/fonts/mf/cal.mf268
-rw-r--r--language/croatian/fonts/mf/cal10.mf267
-rw-r--r--language/croatian/fonts/mf/croblm.mf580
-rw-r--r--language/croatian/fonts/mf/croblv.mf605
-rw-r--r--language/croatian/fonts/mf/crocyrm.mf416
-rw-r--r--language/croatian/fonts/mf/crocyrv.mf426
-rw-r--r--language/croatian/fonts/mf/gg.mf31
-rw-r--r--language/croatian/fonts/mf/gg10.mf40
-rw-r--r--language/croatian/fonts/mf/ggv.mf29
-rw-r--r--language/croatian/fonts/mf/ggv1.mf26
-rw-r--r--language/croatian/fonts/mf/glz.mf183
-rw-r--r--language/croatian/fonts/mf/hcyr.mf70
-rw-r--r--language/croatian/fonts/mf/i.mf1456
-rw-r--r--language/croatian/fonts/mf/kraj.mf240
-rw-r--r--language/croatian/fonts/mf/kur.mf81
-rw-r--r--language/croatian/fonts/mf/kurzivm.mf432
-rw-r--r--language/croatian/fonts/mf/kurzivv.mf429
-rw-r--r--language/croatian/fonts/mf/lom.mf39
-rw-r--r--language/croatian/fonts/mf/lomm.mf66
-rw-r--r--language/croatian/fonts/mf/lomv.mf66
-rw-r--r--language/croatian/fonts/mf/obl.mf91
-rw-r--r--language/croatian/fonts/mf/obl10.mf86
-rw-r--r--language/croatian/fonts/mf/oblm.mf960
-rw-r--r--language/croatian/fonts/mf/oblv.mf950
-rw-r--r--language/croatian/fonts/mf/ple.mf89
-rw-r--r--language/croatian/fonts/mf/plet.mf580
-rw-r--r--language/croatian/fonts/mf/pleter.mf297
-rw-r--r--language/croatian/fonts/mf/stechak.mf909
-rw-r--r--language/croatian/fonts/mf/ugl.mf80
-rw-r--r--language/croatian/fonts/mf/ugl10.mf79
-rw-r--r--language/croatian/fonts/mf/ugv.mf55
-rw-r--r--language/croatian/fonts/mf/ugve.mf55
-rw-r--r--language/croatian/fonts/tex/crogl.tex518
-rw-r--r--language/croatian/fonts/tex/glhyphen.tex279
-rw-r--r--language/croatian/fonts/tex/llig.tex126
-rw-r--r--language/croatian/fonts/tex/ste.tex14
-rw-r--r--language/croatian/fonts/tex/ttabl.tex56
-rw-r--r--language/croatian/fonts/tex/ttablb.tex55
-rw-r--r--language/croatian/fonts/tex/ttablhc.tex59
-rw-r--r--language/croatian/fonts/tex/ttablo.tex56
-rw-r--r--language/croatian/fonts/tex/ttabloku.tex57
-rw-r--r--language/croatian/fonts/tex/ttlis.tex99
47 files changed, 12171 insertions, 0 deletions
diff --git a/language/croatian/fonts/README b/language/croatian/fonts/README
new file mode 100644
index 0000000000..ea1dd5d440
--- /dev/null
+++ b/language/croatian/fonts/README
@@ -0,0 +1,109 @@
+C R O A T I A N F O N T S
+
+This package may be distributed without limitation, but the fonts may
+not be modified.
+
+The basic file is crogl.tex, containing my article ``Croatian
+fonts'', accompanied by several files with tables.
+There you can see how to use these fonts.
+
+The definitions of fonts and ligatures are contained in
+llig.tex, which should always be inputed in a tex file.
+In the case you use Croatian fonts for your own books
+or articles, I would appreciate a mention.
+
+The following files should be metafonted:
+
+====================================================
+
+ANGULAR GLAGOLITIC
+
+ugl10 (angular glagolitic, 10pt) activated by \mgl
+ugl (12pt) activated by \ngl
+ugve (large)
+
+ANGULAR GLAGOLITIC LIGATURES (about 60)
+
+gg10 (10pt)
+gg (12pt)
+ggv (large)
+ggv1 (large)
+
+ These ligatures are activated also by \ugl or \ngl.
+ See the definition list of various ligatures in
+ llig.tex (for example, to get the `ml' glagolitic
+ ligature, you should write {\mgl\ml}).
+
+ROUND GLAGOLITIC
+
+obl10 (10pt) activated by \mobl
+obl (12pt) activated by \obl
+
+BASKA TABLET STYLE
+
+bass10 (10pt) activated by \bass
+bass (12pt) activated by \bassv
+
+BAROMICH BROKEN LIGATURES
+
+lom (10pt) activated by \lom
+
+CURSIVE CROATIAN GLAGOLITIC
+
+kur (10pt) activated by \kur
+
+SEVERAL CALYGRAPHIC LETTERS
+
+cal (12pt) activated by \kal
+
+CROATIAN CYRILLIC (bosancica)
+
+hcyr (10pt) activated by \hc
+
+CROATIAN WATTLE PATTERNS
+
+pleter activated by \pleter
+plet activated by \plet
+ple activated by \ple
+
+
+ A standard way to use \pleter is to write
+ {\pleter 1eeeeeee2}. In this way you can obtain a very nice
+ headline composed of the Croatian wattle. You can also
+ compose vertical patterns.
+
+ To use \plet you write {\plet srrrt} to obtain a rather
+ complex wattle.
+
+ The ple.mf contains only one symbol ``a'' (a rather complex
+ circular wattle pattern): {\ple a}
+
+STECHAK ORNAMENTS
+
+stechak
+
+ For example, see what happens when you write
+ {\stechak NNNNNNNN}
+
+====================================================
+
+
+Additional informations can be obtained at the end of my
+article glcro.tex, accepted for publication in TUG (March
+1996).
+
+Finally, I would be free to inform you that I prepared a
+book ``Hrvatska glagoljica'', devoted to the history of
+the glagolitic script (``Croatian glagolitic'', written
+in Croatian), 414 p. (A5 format). It is planned to be
+published in March 1996.
+
+Best wishes,
+
+Darko Zubrinic,
+Faculty of Electrical Engineering and Computing
+Av. Vukovar 39, Zagreb, Croatia
+
+e-mail: darko.zubrinic@fer.hr
+http://www.tel.fer.hr/hrvatska/Croatia-HCS.html
+
diff --git a/language/croatian/fonts/inex.gml b/language/croatian/fonts/inex.gml
new file mode 100644
index 0000000000..5d6e955f85
--- /dev/null
+++ b/language/croatian/fonts/inex.gml
@@ -0,0 +1,7 @@
+<UL>
+<LI>Croatian Glagolitic (round, angular, Baska Tablet, cursive, about
+60 ligatures, Baromich broken ligatures, calligraphic letters),
+<LI>Croatian Cyrillic, <LI>stechak ornaments,
+<LI>Croatian wattle
+patterns,
+</UL>
diff --git a/language/croatian/fonts/mf/bass.mf b/language/croatian/fonts/mf/bass.mf
new file mode 100644
index 0000000000..e47c2d919e
--- /dev/null
+++ b/language/croatian/fonts/mf/bass.mf
@@ -0,0 +1,67 @@
+
+% Croatian Glagolitic
+% Basska plate, 11th century
+% 1995, darko.zubrinic@etf.hr
+
+% x = trokutasti a
+% 1 = trokutasti a (bez horizontalne precckice) -- Sumpetarski odlm.
+% j = sljubljeni kljucc (vidi Fuccich, Gl.natpisi str. 13,
+ % nastaje i gubi se u 13.st
+% 3, 4 = tvrdi znak (dvije varijante), prva je kao kljucc
+
+% BASSCCANSKA PLOCCA, mala slova su glagoljiccka, velika lat.
+% sijeccanj 95.
+
+
+Pt#:=4/3pt#;
+
+mode_setup;
+ u#:=.8Pt#; font_quad= 24u#;
+ font_normal_space= 10u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=10Pt#; cap#:=7Pt#;
+ thin#:=2/3Pt#; thick#:=.9*5/6Pt#;
+ o#:=1/5Pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:= round 1.1*1/10em;
+
+
+\input basscc
+
+mode_setup;
+Pt#:=3/4Pt#;
+ u#:=.8Pt#; font_quad= 24u#;
+ font_normal_space= 8u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=10Pt#; cap#:=7Pt#;
+ thin#:=2/3Pt#; thick#:=.9*5/6Pt#;
+ o#:=1/5Pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+
+
+\input glz
+
+u#:=4/3u#;
+
+ligtable "c": "c" =: oct"013", "h" =: oct"011";
+ligtable "C": "C" =: oct"023";
+ligtable "s": "s" =: oct"014"; %umjesto sh
+ligtable "z": "z" =: oct"015", "o" kern -.5u#,
+ "u" kern -.5u#;
+%ligtable "d": "d" =: oct"016"; % "d" =: oct"012";
+ligtable "y": "a" =: "w", "e" =: "w", "u" =: oct"004";
+ligtable "-": "-" =: oct"173";
+%ligtable "e": "i" kern -.5u#;
+%ligtable "f": "o" kern -u#, "u" kern -u#, "i" kern -.5u#, "g" kern-.5u#;
+%ligtable "i": "f" kern -.5u#;
+%ligtable "r": "k" kern -.5u#;
+%ligtable "n": "a" kern -.5u#;
+%ligtable "j": "a" kern -.5u#;
+
+end.
+
+
diff --git a/language/croatian/fonts/mf/bass10.mf b/language/croatian/fonts/mf/bass10.mf
new file mode 100644
index 0000000000..250d27e3de
--- /dev/null
+++ b/language/croatian/fonts/mf/bass10.mf
@@ -0,0 +1,51 @@
+
+% Croatian Glagolitic
+% Basska plate, 11th century
+% 1995, darko.zubrinic@etf.hr
+
+% x = trokutasti a
+% 1 = trokutasti a (bez horizontalne precckice) -- Sumpetarski odlm.
+% j = sljubljeni kljucc (vidi Fuccich, Gl.natpisi str. 13,
+ % nastaje i gubi se u 13.st
+% 3, 4 = tvrdi znak (dvije varijante), prva je kao kljucc
+
+% BASSCCANSKA PLOCCA, mala slova su glagoljiccka, velika lat.
+% sijeccanj 95.
+
+
+mode_setup;
+ font_size 10pt#;
+ u#:=.8pt#; font_quad= 24u#;
+ font_normal_space= 10u#; %9
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 2u#;
+ em#:=10pt#; cap#:=7pt#;
+ thin#:=2/3pt#; thick#:=.9*5/6pt#;
+ o#:=1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:=round 1.1*1/10em; %1.1
+
+
+
+\input basscc
+
+\input glz
+
+ligtable "c": "c" =: oct"013", "h" =: oct"011";
+ligtable "C": "C" =: oct"023";
+ligtable "s": "s" =: oct"014"; %umjesto sh
+ligtable "z": "z" =: oct"015", "o" kern -.5u#,
+ "u" kern -.5u#;
+%ligtable "d": "d" =: oct"016"; % "d" =: oct"012";
+ligtable "y": "a" =: "w", "e" =: "w", "u" =: oct"004";
+ligtable "-": "-" =: oct"173";
+%ligtable "e": "i" kern -.5u#;
+%ligtable "f": "o" kern -u#, "u" kern -u#, "i" kern -.5u#, "g" kern-.5u#;
+%ligtable "i": "f" kern -.5u#;
+%ligtable "r": "k" kern -.5u#;
+%ligtable "n": "a" kern -.5u#;
+%ligtable "j": "a" kern -.5u#;
+
+end.
+
diff --git a/language/croatian/fonts/mf/basscc.mf b/language/croatian/fonts/mf/basscc.mf
new file mode 100644
index 0000000000..f1230c2db6
--- /dev/null
+++ b/language/croatian/fonts/mf/basscc.mf
@@ -0,0 +1,637 @@
+
+
+beginchar("x",.7em#,cap#,0); "The letter x->az (Bassch)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+c:=curve_sidebar;
+x1=x2=x3=
+w-x4=
+w-x5=
+w-x6=
+w-x7=
+w-x8=c;
+y3=y4=0; y2=y7=.5h; y1=y5=h;
+y6-y7=y7-y8=.01h;
+draw z6--z1--z3--z8; draw z2--z7; draw z4--z5;
+endchar;
+
+
+beginchar("1",.9em#,cap#,0); "The letter 1->az (Sup.odl.)"; % Supetarski odlomak
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+c:=curve_sidebar;
+kk:=1.2;
+x1=x2=x3=
+w-kk*x4=
+w-kk*x5=
+w-kk*x6=
+w-kk*x7=
+w-kk*x8=c;
+y3=y4=0;
+ y2=y7=.5h;
+ y1=y5=h;
+y6-y7=y7-y8=0; %.13h;
+z55=(w-curve_sidebar,h);
+z44=(x55,0);
+draw z6--z1--z3--z8; %draw z2--z7;
+draw z44--z4--z5--z55;
+endchar;
+
+
+
+
+beginchar("a",.9em#,cap#,0); "The letter a";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+ficlek:=.17w;
+x1=x2=w-x3=w-x4=curve_sidebar;
+x6=x7=.5w;
+x5=x8=x6+ficlek;
+y5=y6=0; y7=y8=h; y2=y3=.5h; y2-y1=y3-y4=ficlek;
+draw z1--z2--z3--z4;
+draw z5--z6--z7--z8;
+endchar;
+
+
+beginchar("b",.9em#,cap#,0); "The letter b";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x3=x8=w-x7=w-x5=w-x10=curve_sidebar;
+x1=x9=.18w; x2=.8w; x4=x6=.5w;
+y1=y2=0;
+y10=-.1h; y8=y6=y7=h; y3=y9=y4=y5=.5h;
+draw z8--z3--z5--z7; draw z4--z6;
+draw z9--z1--z2{right}..{down}z10;
+endchar;
+
+
+beginchar("v",1.2em#,cap#,0); "The letter v";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+rr:=.15w;
+z5=(rr+curve_sidebar,h-rr); z6=(w-rr-curve_sidebar,h-rr);
+draw fullcircle scaled 2rr shifted z5;
+draw fullcircle scaled 2rr shifted z6;
+z55=(x5,y5-rr); z66=(x6,y6-rr);
+z3-z5=(z55-z5) rotated 10;
+z4-z6=(z66-z6) rotated -10;
+y1=y2=0; z1-z5=whatever*(z3-z5);
+ z2-z6=whatever*(z4-z6);
+draw z3--z1--z2--z4;
+%x1=w-x3=w-x4=curve_sidebar; x8-x1=x7-x2=x3-x6=.28w;
+picture slovo_v; slovo_v=currentpicture;
+endchar;
+
+beginchar("d",1.2em#,cap#,0); "The letter d";
+transform t; t=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also slovo_v transformed t;
+endchar;
+
+
+
+
+beginchar("V",.7em#,cap#,0); "The letter V (grcc)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=w-x2=curve_sidebar;
+x1=x4=x5=x6; x2=x3=x8=x7;
+y1=y2=0;
+y6=y7=h;
+y6-y5=.9(y5-y4)=y4-y1;
+y5=y8; y4=y3;
+draw z5--z8--z7--z6--z1--z2--z3--z4;
+endchar;
+
+
+beginchar("g",1.4em#,cap#,0); "The letter g";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x2=w-x7=w-x8=curve_sidebar;
+x9=x6=.65w;
+x4=x3=.45w;
+x5=.2w;
+y5=-.05h; y9=y8=0; y3=h;
+y1=y4=y6=y7=.5h;
+y2=.8h;
+draw z5--z4--z3--z2--z1--z7--z8--z9--z6;
+endchar;
+
+
+
+beginchar("e",.7em#,cap#,0); "The letter e";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x5=x4=w-x2=w-x3=w-x6=curve_sidebar;
+y1=y2=0; y3=y4=h; y5=y6=.5h;
+draw z1--z2--z3--z4;
+draw z5--z6;
+endchar;
+
+beginchar("E",1.2em#,cap#,0); "The letter E (plominski)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x5=x4=x7=w-x6=w-x8=curve_sidebar;
+x2=x3=.5w;
+k:=.15;
+y1=y2=0; y3=y4=h;
+y5=y6=(.5+k)*h;
+y7=y8=(.5-k)*h;
+draw z1--z2--z3--z4;
+draw z5--z6;
+draw z7--z8;
+endchar;
+
+
+
+beginchar(oct"015",1.06em#,cap#,0); "The letter zz";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x3=x4=w-x6=w-x5=curve_sidebar;
+x2-x3=x7-x2=x6-x7; x1=x2; x8=x7;
+y3=y2=y7=y6=0; y1=y8=h; y4=y5=.5h;
+draw z1--z2--z3--z4--z5--z6--z7--z8;
+endchar;
+
+
+beginchar("z",1.2em#,cap#,0); "The letter z";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x4=x5=w-x7=w-x8=curve_sidebar;
+x9-x2=.8(x8-x9);
+x8-x9=.9(x2-x1);
+x3=x2; x6=x9;
+y1=y2=y9=y8=0;
+y5=y6=y7=.5h;
+y4=y3=h;
+draw z1--z4--z3--z2--cycle; draw z5--z7--z8--z9--z6;
+endchar;
+
+
+
+beginchar("i",.9em#,cap#,0); "The letter i";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=w-x2=curve_sidebar; x3=.5w;
+x6-x1=x2-x7=.2w;
+x5=w-x4=.5[x1,x6];
+y3=0; y1=y6=y7=y2=.5h;
+y5=y4=h;
+y11=.3h; z11=(x1,y11); z22=(x2,y11);
+x32-x3=x3-x31=.3w; z32=(x32,0); z31=(x31,0);
+draw z6--z5--z4--z7;
+draw z1--z2{down}..controls z22 and z32..
+{left}z3..controls z31 and z11..{up}z1;
+endchar;
+
+beginchar("I",.4em#,cap#,0); "The letter I (latiniccni)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x4=w-x2=w-x6=curve_sidebar; x3=x5=.5w;
+y1=y3=y2=0; y4=y5=y6=h;
+draw z1--z2; draw z3--z5; draw z4--z6;
+endchar;
+
+
+
+beginchar("y",1.1em#,cap#,0); "The letter y";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x5=x6=w-x7=w-x8=curve_sidebar;
+x9-x6=x7-x10=.9(x10-x9);
+x3=x9; x4=x10;
+x3-x1=x2-x4=.06w;
+y1=y2=0;
+y5=y3=y4=y8=.66h;
+y6=y9=y10=y7=h;
+draw z1--z4--z8--z7--z6--z5--z3--z2--cycle;
+draw z3--z9; draw z4--z10;
+endchar;
+
+
+beginchar("j",.9em#,cap#,0); "The letter j";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x7=w-x2=curve_sidebar; x6=x3=x2; x5=x4=.5w;
+y1=y5=y2=0; y4=y3=h; y7=y6=.5h;
+draw z6--z7--z1--z2--z3--z4--z5;
+endchar;
+
+
+beginchar("J",em#,cap#,0); "The letter J -> (Plominski I)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x7=w-x2=w-x6=curve_sidebar;
+x3=.5w;
+y1=y2=0; y7=y6=h;
+y4=y5;
+y3=.85h; % .7
+z8=(x3, h-.8y3);
+z4=(z1--z3)intersectionpoint(z7--z8);
+z5=(z2--z3)intersectionpoint(z6--z8);
+draw z5--z2--z1--z4;
+draw z6--z7--z8--cycle;
+endchar;
+
+
+
+beginchar("k",.8em#,cap#,0); "The letter k";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x2=w-x3=w-x4=curve_sidebar; x1=.2w;
+y4=0; y2=y3=.5h; y1=h;
+draw z1--z2--z3--z4;
+endchar;
+
+
+beginchar("K",.8em#,cap#,0); "The letter K (Sup.odl.)"; % Supetarski odlomak
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+x5=x6=.4w;
+y6=y4=0; y2=y3=.5h; y1=h;
+y5=.35h;
+draw z1--z2--z3--z4; draw z5--z6;
+endchar;
+
+
+
+beginchar("l",1.06em#,cap#,0); "The letter l";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x3=x4=w-x6=w-x5=curve_sidebar;
+x2-x3=x7-x2=x6-x7; x1=x2; x8=x7;
+y3=y2=y7=y6=0; y1=y8=h; y4=y5=.5h;
+draw z1--z2--z3--z4--z5--z6--z7--z8--cycle;
+endchar;
+
+
+beginchar("m",1.6em#,cap#,0); "The letter m";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x10=x12=w-x11=w-x15=curve_sidebar;
+x9=x17=.5w;
+x18-x10=x11-x16=1.2(x17-x18);
+x13=x18; x14=x16;
+x1-x10=x11-x6=.1w;
+x4=x1; x6=x7;
+x2-x1=x6-x5=1(x5-x2);
+x3=x2; x8=x5;
+y1=y2=y5=y6=0;
+y10=y18=y17=y16=y11=h;
+y10-y12=y4-y1=1.2(y12-y4); %.33h;
+y12=y13=y14=y15;
+y4=y3=y9=y8=y7;
+k:=.45;
+z1210=k[z12,z10]; y1318=y1416=y1511=y1210;
+ x1318=x13; x1416=x14; x1511=x15;
+z1213=k[z12,z13]; z1312=k[z13,z12]; z1415=k[z14,z15]; z1514=k[z15,z14];
+z140=k[z1,z4]; z120=k[z1,z2]; z210=k[z2,z1]; z230=k[z2,z3];
+z580=k[z5,z8]; z560=k[z5,z6]; z650=k[z6,z5]; z670=k[z6,z7];
+draw z3--z230{down}..{left}z210--z120{left}..{up}z140
+--z4--z7--
+z670{down}..{left}z650--z560{left}..{up}z580--z8;
+draw z9--z17;
+draw z18--z1318{down}..{left}z1312--z1213{left}..{up}z1210--
+z10--z11--
+z1511{down}..{left}z1514--z1415{left}..{up}z1416--z16;
+endchar;
+
+
+
+beginchar("M",1.1em#,cap#,0); "The letter M (latiniccni)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=w-x5=curve_sidebar; x3=.5w;
+x2-x1=x5-x4=.1[x1,x3];
+y1=y5=0; y2=y4=h; y3=.6h;
+draw z1--z2--z3--z4--z5;
+endchar;
+
+
+beginchar("n",.8em#,cap#,0); "The letter n";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x6=w-x4=curve_sidebar; x5=x3=x2=.4w;
+y1=y2=0; y3=h; y5=y6=.45h;
+y4=.5[y5,y3];
+draw z1--z2--z3{right}..{down}z4..{left}z5--z6;
+endchar;
+
+
+beginchar("N",.8em#,cap#,0); "The letter N (latiniccni)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x5=x2=w-x3=curve_sidebar; x6=x4=x3;
+y2=y3=0; y1=y4=h;
+y1-y5=y6-y3=.2h;
+draw z1--z2; draw z5--z6; draw z3--z4;
+endchar;
+
+
+beginchar("o",.7em#,cap#,0); "The letter o";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x8=x5=x4=w-x2=w-x7=w-x6=w-x3=curve_sidebar;
+y1=y2=0; y3=y4=h;
+y8-y1=y4-y5=.32h;
+y7-y2=y3-y6=.8(y8-y1);
+draw z7--z8--z1--z2--z3--z4--z5--z6;
+endchar;
+
+
+beginchar("O",.8em#,cap#,0); "The letter O";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=w-x3=curve_sidebar;
+k:=.1;
+x2=x4=.5w; y2=k*h; y4=(1-k)*h; y1=y3=.5h;
+draw z1{down}..{right}z2..{up}z3..{left}z4..cycle;
+endchar;
+
+
+
+beginchar("p",1.08em#,cap#,0); "The letter p";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x4=w-x7=w-x6=curve_sidebar;
+x2-x1=x8-x2=x7-x8; x3=x2; x5=x8;
+y1=y2=y8=y7=0; y4=y3=y5=y6=h;
+draw z1--z2--z3; draw z4--z6--z7--z8--z5;
+endchar;
+
+
+beginchar("P",1.07em#,cap#,0); "The letter P (Plominski nat.)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x8=w-x3=w-x4=curve_sidebar; x1=x2=x7=.15[x8,x3];
+x6=x5=.5[x2,x3];
+y1=-.18h; y8=y7=y5=y4=.5h; y2=y6=y3=h;
+draw z1--z2--z3--z4--z5--z6;
+draw z7--z8;
+endchar;
+
+
+
+beginchar("r",.7em#,cap#,0); "The letter r";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x4=x5=w-x2=curve_sidebar; x6=x3=x2;
+y1=y2=0; y5=y6=h; y3=y4=.5h;
+draw z4--z3--z2--z1--z5--z6;
+endchar;
+
+
+beginchar("s",1.2em#,cap#,0); "The letter s";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x6=w-x7=curve_sidebar; x3=.5w;
+x1-x6=x7-x2=.15w;
+k:=.7;
+y1=y2=0; y6=y7=h;
+y3=.68h;
+z4=k[z1,z3]; z5=k[z2,z3];
+draw z1--z2--z3--cycle;
+draw z4{left}..{up}z6--z7{down}..{left}z5;
+endchar;
+
+
+beginchar("S",em#,cap#,0); "The letter S (Plominski nat.)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x7=w-x2=w-x6=curve_sidebar;
+x3=.5w;
+y1=y2=0; y7=y6=h;
+y4=y5;
+y3=.7h;
+z8=(x3, h-1.2y3);
+z4=(z1--z3)intersectionpoint(z7--z8);
+z5=(z2--z3)intersectionpoint(z6--z8);
+draw z1--z2--z3--cycle;
+draw z4--z7--z6--z5;
+endchar;
+
+
+
+
+beginchar("t",em#,cap#,0); "The letter t";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x4=w-x7=w-x6=curve_sidebar;
+x2-x1=x8-x2=x7-x8; x3=x2; x5=x8;
+y1=y2=y8=y7=.4h; y4=y3=y5=y6=h;
+ draw z3--z2--z1--z4--z6--z7--z8--z5;
+endchar;
+
+
+beginchar("T",em#,cap#,0); "The letter T";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x4=x3=w-x5=w-x6=curve_sidebar;
+x1=x2=.5w;
+y1=0; y3=y2=y5=h; y4=y6=.8h;
+draw z4--z3--z5--z6;
+draw z1--z2;
+endchar;
+
+
+beginchar("c",em#,cap#,0); "The letter c";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x2=w-x4=curve_sidebar; x3=.5w;
+x1=1.1[x2,x3];
+y3=0; y1=y2=h; y4=.4h;
+z5=.55[z2,z3];
+draw z5{dir(20)}..{up}z1--z2--z3--z4;
+endchar;
+
+
+beginchar(oct"013",.9em#,cap#,0); "The letter cc";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x2=w-x3=w-x4=curve_sidebar; x5=x7=w-x6=w-x8=.32w;
+y5=y6=0; y1=y4=h;
+y2=y7=y8=y3=.5h;
+draw z1--z2--z3--z4;
+draw z7--z5--z6--z8;
+endchar;
+
+
+beginchar(oct"023",em#,cap#,0); "The letter CC (neobiccni)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+x5=x6=.15w; x7=x8=w-x5;
+x9=x11=.33[x6,x7];
+x10=x12=w-x9;
+y1=y11=y12=y3=0;
+y2=y4=h;
+y5=y8=.65h; y6=y7=y9=y10=h-y5;
+x56=x5+.07w;
+z56=(x56,.5h); z78=(w-x56,.5h);
+z55=(z56{up}..z2) intersectionpoint (z5--z8);
+z66=(x55,h-y55); z88=(w-x55,y55); z77=(x88,h-y88);
+draw z1..{up}z56..z2; draw z3..{up}z78..z4;
+draw z55--z88; draw z66--z77; draw z9--z11--z12--z10;
+endchar;
+
+
+
+beginchar(oct"011",.8em#,cap#,0); "The letter ch";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x2=w-x3=curve_sidebar; x3=x6=x7;
+x5=x4=.5w;
+y1=y4=y6=h;
+y2=y3=.5h; y5=y7=0;
+draw z1--z2--z3;
+draw z4--z5--z7--z6;
+endchar;
+
+
+
+beginchar("u",1.2em#,cap#,0); "The letter u";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x10=x6=x5=w-x3=curve_sidebar;
+x2=x9=x8=x7=x4=.46w;
+y1=y2=0; y4=y5=h; y3=y8=.5h;
+y5-y6=y10-y1=.5(y8-y2);
+y4-y7=y9-y2=.7(y10-y1);
+draw z9--z10--z1--z2{right}..{up}z3..{left}z4--z5--z6--z7;
+draw z2--z4; draw z8--z3;
+endchar;
+
+
+beginchar("h",em#,cap#,0); "The letter h";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x2=w-x4=w-x5=curve_sidebar;
+x3=x6=.45w;
+x1=.35[x2,x3];
+y6=y5=0; y1=h; y2=y3=y4=.6h;
+draw z1--z2--z4--z5--z6--z3;
+endchar;
+
+
+beginchar(oct"014",.7em#,cap#,0); "The letter ss";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+x5=x6=.5w;
+y2=y5=y3=.5h; y1=y6=y4=h;
+draw z1--z2--z3--z4;
+draw z5--z6;
+endchar;
+
+
+beginchar("3",1.2em#,cap#,0); "The letter poluglas";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x4=w-x6=curve_sidebar;
+x8-x2=.8(x2-x1);
+x2-x1=.8(x6-x8);
+x3=x2; x7=x8;
+y1=y2=y8=0;
+y7=h; y4=y3=y6=.5h;
+draw z3--z2--z1--z4--z6;
+draw z8--z7{right}..{down}z6..{left}z8;
+endchar;
+
+
+beginchar("4",1.1em#,cap#,0); "The letter poluglas drugi";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x5=w-x2=curve_sidebar; x1=x3=.6w; x4=.2w;
+y1=0; y4=h; y2=.3[y1,y3]; y5=.8h; y3=.65h;
+draw z3--z1{right}..{up}z2..{dir angle(z4-z3)}z3--z4--z5;
+endchar;
+
+
+beginchar("w",em#,cap#,0); "The letter ya";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=w-x2=curve_sidebar; x6=x5=.5w;
+x5-x4=x3-x5=.12w;
+y1=y6=y2=0; y4=y5=y3=h;
+z7=.45[z1,z4]; z8=.45[z2,z3];
+draw z1--z2--z3--z4--cycle;
+draw z6--z5; draw z7--z8;
+endchar;
+
+
+beginchar(oct"004",1.3em#,cap#,0); "The letter yu";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=w-x3=w-x4=curve_sidebar; x8-x1=x7-x2=x3-x6=.28w;
+x2=.15w;
+x5=x6;
+y5=y4=0; y2=y7=y6=y3=h;
+y1=y8=.5h;
+draw z1--z2--z3--z4--z5--z6; draw z7--z8;
+endchar;
+
+
+beginchar(oct"002",1.5em#,cap#,0); "The letter en";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x4=w-x10=curve_sidebar; x4=x5=x1; x10=x6=x7;
+x3-x4=x10-x9=.3w;
+x3=x2; x9=x8;
+y4=y3=y9=y10=0;
+y5=y6=.5h; y1=y2=y8=y7=h;
+draw z1--z2--z3--z4; draw z7--z8--z9--z10;
+draw z5--z6;
+endchar;
+
+beginchar(oct"135",.36em#,cap#,0); "The letter ]";
+pickup pencircle scaled .6thin;
+x2=x3=w-x1=w-x4=curve_sidebar;
+y2=y1=0-.3h; y3=y4=h+.3h;
+draw z2--z1--z4--z3;
+endchar;
+
+
+beginchar(oct"133",.36em#,cap#,0); "The letter [";
+pickup pencircle scaled .6thin;
+x2=x3=w-x1=w-x4=curve_sidebar;
+y2=y1=0-.3h; y3=y4=h+.3h;
+draw z1--z2--z3--z4;
+endchar;
+
+beginchar("C",.36em#,cap#,0); "The letter C ([)"; % radi CC
+pickup pencircle scaled .6thin;
+x2=x3=w-x1=w-x4=curve_sidebar;
+y2=y1=0-.3h; y3=y4=h+.3h;
+draw z1--z2--z3--z4;
+endchar;
+
+beginchar("A",.75em#,cap#,0); "The letter A(NS) (nostratic)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=w-x2=curve_sidebar;
+x3=x5=x4=x8=.5w; x6=.5w-.2w; y8=h;
+x5-x6=x7-x5=y8-y7=y8-y6=y6-y5;
+y4=y5-.1h; y1=y2=0; y3=-.2h;
+draw z6{up}..{right}z8..{down}z7..{left}z5..cycle;
+draw z1{up}..{right}z4..{down}z2; draw z3--z5;
+endchar;
+
+
+beginchar("B",em#,cap#,0); "The letter B (nostratic)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x3=w-x2=w-x4=curve_sidebar;
+x5=x6=.5w; x7=x10=.3[x3,x6]; x8=x9=.8[x6,x4];
+y1=y5=y2=h; y3=y6=y10=y4=.5h; y7=0; y8=.5y4; y9=-.2h;
+z8l=.7[z7,z8]; z8d=.6[z9,z8];
+draw z1--z3--z4--z2--cycle;
+draw z5--z6; draw z10--z7--z8l{dir angle(z8-z7)}..{down}z8d--z9;
+endchar;
+
+
+beginchar(oct"030",.9em#,cap#,0); "The letter N (valun)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x3=w-x5=curve_sidebar; x2=x7=x4=.4w; x6=.5[x4,x5];
+y1=y2=0; y4=h; y3=y7=y5=.4h; y6=.5[y5,y4];
+draw z1--z2--z4--z5--z3; draw z7--z6;
+endchar;
+
+
+beginchar(oct"031",1.1em#,cap#,0); "The letter YU (valun)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x6=w-x3=w-x2=curve_sidebar; x5=.4w; x4=.6w; x7=0;
+y6=y3=0; y1=y2=y4=y5=h;
+z7-z6=whatever*(z6-z5);
+draw z6--z1--z2--z3--z4; draw z5--z7;
+endchar;
+
+
+beginchar(oct"032",em#,cap#,0); "The letter S (valun)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+y1=y4=.2h; y2=y3=h;
+D:=.5(x4-x1);
+draw fullcircle scaled D shifted(.5w,.5D);
+draw z1--z2--z3--z4;
+endchar;
+
+
+beginchar(oct"033",.8em#,cap#,0); "The letter K (valun)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+x5=.35[x1,x3]; x6=x1;
+y1=h; y2=y3=.5h; y4=0; y5=.4h; y6=-.1h;
+draw z1--z2--z3--z4;
+draw z5--z6;
+endchar;
+
+
+beginchar(oct"034",1.1em#,cap#,0); "The letter V (valun)";
+pickup pencircle xscaled 1.2thick yscaled .4thin;
+x1=w-x2=curve_sidebar;
+x3=.5w; x4=w-x6=.35w;
+y1=y4=y6=y2=h;
+y3=0;
+path p; p= z1{down}..{right}z3;
+path q; q= z2{down}..{left}z3;
+z5= point .4 of p;
+z7= point .4 of q;
+draw p; draw q;
+draw z1--z4{down}..{dir (180+30)}z5;
+draw z2--z6{down}..{dir (-30)}z7;
+endchar;
+
diff --git a/language/croatian/fonts/mf/cal.mf b/language/croatian/fonts/mf/cal.mf
new file mode 100644
index 0000000000..15bfb87137
--- /dev/null
+++ b/language/croatian/fonts/mf/cal.mf
@@ -0,0 +1,268 @@
+
+% Caligraphic Croatian Glagolitic, 1994,
+% darko.zubrinic@etf.hr
+
+mode_setup;
+ u#:=4/3*.8pt#; font_quad= 30u#;
+ font_normal_space= 10u#; %umjesto 8
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=4/3*10pt#; cap#:=4/3*7pt#;
+ thin#:=2/3pt#; thick#:=1.15*5/6pt#;
+ o#:=4/3*1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:= round 1.1*1/10em;
+
+
+
+
+beginchar("A",3/4*1.4em#,cap#,0); "The letter A";
+.5w-x1=x2-.5w; x2-x1=.17w;
+x1=x4; x2=x3=x5;
+y1=y2=good.y 0; y3=y4=good.y h; y5=.9y7=.5h;
+y6=.75h;
+y8=y10=y1+.13h;
+x10=x7=w-curve_sidebar; x6=.8w; x9=.84w;
+x10-x9=1.2(x9-x8);
+z78=.5[z7,z8];
+kut:=45;
+v:=1.1thick*sind kut;
+y9=.5v-.05thin;
+pickup pencircle xscaled 1.3thick yscaled .3thin rotated kut;
+draw z5{dir 50}..{right}z6..{down}z7..
+{down}z8..{right}z9..{dir kut}z10;
+picture aa; aa=currentpicture;
+transform t; t=identity;
+addto currentpicture also aa transformed t;
+transform s; s=identity reflectedabout ((.5w,0),(0.5w,h));
+addto currentpicture also aa transformed s;
+pickup pencircle xscaled 1.3thick yscaled .2thin;
+draw z1--z2--z3--z4--z1;
+endchar;
+
+
+
+
+beginchar("V",1.15em#,cap#,0); "The letter V";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x2=w-x7=curve_sidebar;
+y2=y7=.5(h+y1);
+x4-x2=x5-x4=x7-x5;
+ x4=x1=x3; x5=x8=x6;
+y4=y5=0; y1=y8=.5h;
+y3=y6=h;
+draw z1{left}..{up}z2..{right}z3--z4--z5--z6{right}..{down}z7
+..{left}z8;
+picture vv; vv=currentpicture;
+endchar;
+
+
+
+beginchar("D",1.15em#,cap#,0); "The letter D"; % ???
+transform s; s=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also vv transformed s;
+endchar;
+
+beginchar("Z",1.3em#,cap#,1/3cap#); "The letter Z";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x2=w-x4=curve_sidebar;
+x1=.15w; x7=.33w; x3=.5w; x6=.55w; x5=.66w;
+y2=-d; y1=.9h; y7=1.1h; y3=.7h; y5=0;
+y4=.5[y5,y3];
+y6=.3[y5,y4];
+kut:=angle(z3-z2)-10;
+draw z1--z2{dir kut}..{up}z3..{left}z7..z1;
+draw z3{dir20}..{down}z4..{left}z5..{up}z6..tension2..z4;
+endchar;
+
+
+
+beginchar("H",1.2em#,cap#,0); "The letter H";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x6=curve_sidebar;
+x4=.35w; x2=.4w; x3=.7w;
+x5=.77w; x8=.65w; x7=.57w;
+y1=-.1h;
+y2=y3=h; y4=.15h; y5=.27h; y6=0; y7=-.1h; y8=.5[y6,y5];
+draw z8--z1--z2--z3--z4{dir angle(z8-z1)}..{right}z5..{down}z6..
+tension2..
+{up}z7..tension1.5..{dir angle(z8-z1)}z8;
+endchar;
+
+
+
+beginchar("I",.68em#,cap#,0); "The letter I";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x3=curve_sidebar;
+y1=h; bot y3=0; z2=(.5w,.55h);
+path p; p= z1{down}..{right}z2..{down}z3;
+draw p;
+transform t; t=identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also currentpicture transformed t;
+pickup pencircle scaled 1.3 thick;
+erase draw z1{down}..{right}z2..{down}z3;
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+draw p;
+endchar;
+
+
+
+beginchar("K",em#,cap#,0); "The letter K";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x4=x3=w-x5=w-x6=curve_sidebar;
+x1=x2=.5w; y1=y6=0; y4=y5=.5h; y2=y3=h;
+draw z1--z2--z3--z4--z5--z6--z1;
+endchar;
+
+
+beginchar("L",em#,4/3cap#,0); "The letter L";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x5=w-x8=w-x4=curve_sidebar;
+x2=x6=x9=w-x3=w-x7=w-x10=1/3[x1,x4];
+bot y1=bot y2=bot y3=bot y4=0;
+y5=y6=y7=y8=3/4h;
+y9=y10=h;
+draw z1--z2--z9--z10--z3--z4--z8--z5--z1;
+endchar;
+
+
+
+beginchar("M",em#,cap#,0); "The letter M"; %1.1
+ x2=x5=x55=.5w;
+y2=0;
+y7=.6h; y5=h; %.7
+y8=y10=.13h;
+x10=x7=w-curve_sidebar; x9=.84w;
+x10-x9=1.2(x9-x8);
+z78=.5[z7,z8];
+kut:=45;
+v:=1.1thick*sind kut;
+y55=h+.5v-.1thin;
+y9=.5v-.05thin;
+pickup pencircle xscaled 1.1thick yscaled .2thin rotated kut;
+draw z5{right}..{down}z7..
+{down}z8..{right}z9..{dir kut}z10;
+picture aa; aa=currentpicture;
+transform t; t=identity;
+addto currentpicture also aa transformed t;
+transform s; s=identity reflectedabout ((.5w,0),(0.5w,h));
+addto currentpicture also aa transformed s;
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+draw z2--z55;
+endchar;
+
+
+beginchar("N",.8em#,cap#,0); "The letter N";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x3=w-x5=curve_sidebar;
+x2=x4=x6=.4w;
+bot y1=bot y2=0; y3=y4=h; y6=.45h;
+y5=.35[y4,y6];
+draw z4--z2--z1--z3--z4{right}..{down}z5..{dir(180+10)}z6;
+endchar;
+
+beginchar("P",.9em#,cap#,0); "The letter P";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x4=w-x5=w-x7=curve_sidebar;
+x2=x3=.4w;
+x9=.6w; x6=x8=.5[x7,x9];
+bot y1=bot y2=0; y3=y4=y5=y6=h;
+y8=.6h; y9=y7=.5[y6,y8];
+draw z3--z2--z1--z4--z5;
+pickup pencircle xscaled 1.1thick yscaled .3thin;
+draw z6{right}..{down}z7..{left}z8..{up}z9..cycle;
+endchar;
+
+
+
+beginchar("S",1.1em#,cap#,0); "The letter S"; % sa kruzzicem
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x6=w-x8=curve_sidebar;
+x3=x7=.5w;
+x3-x1=x5-x3=.15w;
+x1=x2; x5=x4;
+y2=y4=.4h; %.5
+y1=y5=.1h; y7=h; y6=y8=.5(y2+y7);
+y3=.9y6;
+x1-x11=x55-x5=.2(x3-x2); y11=y55=0;
+draw z1--z2{up}..{right}z3..{down}z4--z5;
+draw z11--z55{dir(180-10)}..{up}z5;
+draw z11{dir10}..{up}z1;
+draw z2{left}..{up}z6..z7..z8..{left}z4;
+pickup pencircle scaled .3thin;
+erase fill fullcircle scaled .15w shifted z7;
+draw fullcircle scaled .1w shifted z7;
+endchar;
+
+
+beginchar("O",.8em#,cap#,0); "The letter O";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x5=w-x4=curve_sidebar;
+x3=x7=x6=.6w;
+bot y3=bot y4=0; y5=y6=h;
+y7=.5[y3,y6];
+y2=.5[y3,y7]; y1=.5[y6,y7];
+draw z3{left}..z2{up}..{right}z7;
+draw z7{left}..{up}z1..{right}z6--z5--z4--z3--z6;
+endchar;
+
+
+
+beginchar("R",.85em#,cap#,0); "The letter R";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x5=w-x3=w-1.2x7=curve_sidebar;
+x2=x4=x6=.4w;
+bot y1=bot y2=0;
+y4=.5h; y3=.5[y4,y2]; y5=y6=y7= h;
+draw z4{right}..{down}z3..{left}z2--z1--z5--z7;
+draw z2--z6;
+endchar;
+
+
+
+beginchar(oct"023",.9em#,cap#,0); "The letter Cc";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x2=w-x4=curve_sidebar;
+x1=x3=.5w;
+bot y5=bot y6=0; y1=1.03h;
+y3=.45h; y2=y4=.5[y1,y3];
+path p; p=z1{left}..{down}z2..{right}z3..{up}z4..{left}z1;
+z9 =point .3 of p;
+z11=point 3.7 of p;
+z10-z9=z12-z11=(0,.1h);
+x5=w-x6=x7;
+z7=point 1.7 of p;
+z8=point 2.3 of p;
+draw p; draw z1--z3; draw z7--z5--z6--z8;
+draw z9--z10; draw z11--z12;
+endchar;
+
+
+
+
+
+beginchar("s",em#,1.02cap#,0); "The letter s";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=w-x2=curve_sidebar; bot y1=bot y2=bot y3=bot y4=0; top y7=h; y5=y6=.4h;
+x3-x1=x2-x4=.05w; x7=w/2; z5=whatever[z3,z7]; z6=whatever[z4,z7];
+x8=w-x9=x3; y8=y9=.5(y5+y7); draw z1--z2; draw
+z3--z5{z5-z3}..tension2..{z4-z6}z6--z4; draw
+z5..{up}z8..{right}z7..{down}z9..z6; endchar;
+
+
+beginchar("C",em#,1.02cap#,0); "The letter C, fiktivni";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=w-x2=curve_sidebar; bot y1=bot y2=bot y3=bot y4=0; top y7=h; y5=y6=.4h;
+x3-x1=x2-x4=.05w; x7=w/2; z5=whatever[z3,z7]; z6=whatever[z4,z7];
+x8=w-x9=x3; y8=y9=.5(y5+y7); draw z1--z2; draw
+z3--z5{z5-z3}..tension2..{z4-z6}z6--z4; draw
+z5..{up}z8..{right}z7..{down}z9..z6; endchar;
+
+
+ligtable "C": "C" =: oct"023";
+
+
+end.
diff --git a/language/croatian/fonts/mf/cal10.mf b/language/croatian/fonts/mf/cal10.mf
new file mode 100644
index 0000000000..591b61fb11
--- /dev/null
+++ b/language/croatian/fonts/mf/cal10.mf
@@ -0,0 +1,267 @@
+
+
+mode_setup;
+ font_size 10pt#;
+ u#:=.8pt#; font_quad= 24u#;
+ font_normal_space= 9u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 2u#;
+ em#:=10pt#; cap#:=7pt#;
+ thin#:=2/3pt#; thick#:=.9*5/6pt#;
+ o#:=1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:=round 1.1*1/10em;
+
+
+
+
+beginchar("A",3/4*1.4em#,cap#,0); "The letter A";
+.5w-x1=x2-.5w; x2-x1=.17w;
+x1=x4; x2=x3=x5;
+y1=y2=good.y 0; y3=y4=good.y h; y5=.9y7=.5h;
+y6=.75h;
+y8=y10=y1+.13h;
+x10=x7=w-curve_sidebar; x6=.8w; x9=.84w;
+x10-x9=1.2(x9-x8);
+z78=.5[z7,z8];
+kut:=45;
+v:=1.1thick*sind kut;
+y9=.5v-.05thin;
+pickup pencircle xscaled 1.3thick yscaled .3thin rotated kut;
+draw z5{dir 50}..{right}z6..{down}z7..
+{down}z8..{right}z9..{dir kut}z10;
+picture aa; aa=currentpicture;
+transform t; t=identity;
+addto currentpicture also aa transformed t;
+transform s; s=identity reflectedabout ((.5w,0),(0.5w,h));
+addto currentpicture also aa transformed s;
+pickup pencircle xscaled 1.3thick yscaled .2thin;
+draw z1--z2--z3--z4--z1;
+endchar;
+
+
+
+
+beginchar("V",1.15em#,cap#,0); "The letter V";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x2=w-x7=curve_sidebar;
+y2=y7=.5(h+y1);
+x4-x2=x5-x4=x7-x5;
+ x4=x1=x3; x5=x8=x6;
+y4=y5=0; y1=y8=.5h;
+y3=y6=h;
+draw z1{left}..{up}z2..{right}z3--z4--z5--z6{right}..{down}z7
+..{left}z8;
+picture vv; vv=currentpicture;
+endchar;
+
+
+
+beginchar("D",1.15em#,cap#,0); "The letter D"; % ???
+transform s; s=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also vv transformed s;
+endchar;
+
+beginchar("Z",1.3em#,cap#,1/3cap#); "The letter Z";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x2=w-x4=curve_sidebar;
+x1=.15w; x7=.33w; x3=.5w; x6=.55w; x5=.66w;
+y2=-d; y1=.9h; y7=1.1h; y3=.7h; y5=0;
+y4=.5[y5,y3];
+y6=.3[y5,y4];
+kut:=angle(z3-z2)-10;
+draw z1--z2{dir kut}..{up}z3..{left}z7..z1;
+draw z3{dir20}..{down}z4..{left}z5..{up}z6..tension2..z4;
+endchar;
+
+
+
+beginchar("H",1.2em#,cap#,0); "The letter H";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x6=curve_sidebar;
+x4=.35w; x2=.4w; x3=.7w;
+x5=.77w; x8=.65w; x7=.57w;
+y1=-.1h;
+y2=y3=h; y4=.15h; y5=.27h; y6=0; y7=-.1h; y8=.5[y6,y5];
+draw z8--z1--z2--z3--z4{dir angle(z8-z1)}..{right}z5..{down}z6..
+tension2..
+{up}z7..tension1.5..{dir angle(z8-z1)}z8;
+endchar;
+
+
+
+beginchar("I",.68em#,cap#,0); "The letter I";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x3=curve_sidebar;
+y1=h; bot y3=0; z2=(.5w,.55h);
+path p; p= z1{down}..{right}z2..{down}z3;
+draw p;
+transform t; t=identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also currentpicture transformed t;
+pickup pencircle scaled 1.3 thick;
+erase draw z1{down}..{right}z2..{down}z3;
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+draw p;
+endchar;
+
+
+
+beginchar("K",em#,cap#,0); "The letter K";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x4=x3=w-x5=w-x6=curve_sidebar;
+x1=x2=.5w; y1=y6=0; y4=y5=.5h; y2=y3=h;
+draw z1--z2--z3--z4--z5--z6--z1;
+endchar;
+
+
+beginchar("L",em#,4/3cap#,0); "The letter L";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x5=w-x8=w-x4=curve_sidebar;
+x2=x6=x9=w-x3=w-x7=w-x10=1/3[x1,x4];
+bot y1=bot y2=bot y3=bot y4=0;
+y5=y6=y7=y8=3/4h;
+y9=y10=h;
+draw z1--z2--z9--z10--z3--z4--z8--z5--z1;
+endchar;
+
+
+
+beginchar("M",em#,cap#,0); "The letter M"; %1.1
+ x2=x5=x55=.5w;
+y2=0;
+y7=.6h; y5=h; %.7
+y8=y10=.13h;
+x10=x7=w-curve_sidebar; x9=.84w;
+x10-x9=1.2(x9-x8);
+z78=.5[z7,z8];
+kut:=45;
+v:=1.1thick*sind kut;
+y55=h+.5v-.1thin;
+y9=.5v-.05thin;
+pickup pencircle xscaled 1.1thick yscaled .2thin rotated kut;
+draw z5{right}..{down}z7..
+{down}z8..{right}z9..{dir kut}z10;
+picture aa; aa=currentpicture;
+transform t; t=identity;
+addto currentpicture also aa transformed t;
+transform s; s=identity reflectedabout ((.5w,0),(0.5w,h));
+addto currentpicture also aa transformed s;
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+draw z2--z55;
+endchar;
+
+
+beginchar("N",.8em#,cap#,0); "The letter N";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x3=w-x5=curve_sidebar;
+x2=x4=x6=.4w;
+bot y1=bot y2=0; y3=y4=h; y6=.45h;
+y5=.35[y4,y6];
+draw z4--z2--z1--z3--z4{right}..{down}z5..{dir(180+10)}z6;
+endchar;
+
+beginchar("P",.9em#,cap#,0); "The letter P";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x4=w-x5=w-x7=curve_sidebar;
+x2=x3=.4w;
+x9=.6w; x6=x8=.5[x7,x9];
+bot y1=bot y2=0; y3=y4=y5=y6=h;
+y8=.6h; y9=y7=.5[y6,y8];
+draw z3--z2--z1--z4--z5;
+pickup pencircle xscaled 1.1thick yscaled .3thin;
+draw z6{right}..{down}z7..{left}z8..{up}z9..cycle;
+endchar;
+
+
+
+beginchar("S",1.1em#,cap#,0); "The letter S"; % sa kruzzicem
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x6=w-x8=curve_sidebar;
+x3=x7=.5w;
+x3-x1=x5-x3=.15w;
+x1=x2; x5=x4;
+y2=y4=.4h; %.5
+y1=y5=.1h; y7=h; y6=y8=.5(y2+y7);
+y3=.9y6;
+x1-x11=x55-x5=.2(x3-x2); y11=y55=0;
+draw z1--z2{up}..{right}z3..{down}z4--z5;
+draw z11--z55{dir(180-10)}..{up}z5;
+draw z11{dir10}..{up}z1;
+draw z2{left}..{up}z6..z7..z8..{left}z4;
+pickup pencircle scaled .3thin;
+erase fill fullcircle scaled .1w shifted z7;
+draw fullcircle scaled .15w shifted z7;
+endchar;
+
+
+beginchar("O",.8em#,cap#,0); "The letter O";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x5=w-x4=curve_sidebar;
+x3=x7=x6=.6w;
+bot y3=bot y4=0; y5=y6=h;
+y7=.5[y3,y6];
+y2=.5[y3,y7]; y1=.5[y6,y7];
+draw z3{left}..z2{up}..{right}z7;
+draw z7{left}..{up}z1..{right}z6--z5--z4--z3--z6;
+endchar;
+
+
+
+beginchar("R",.85em#,cap#,0); "The letter R";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x5=w-x3=w-1.2x7=curve_sidebar;
+x2=x4=x6=.4w;
+bot y1=bot y2=0;
+y4=.5h; y3=.5[y4,y2]; y5=y6=y7= h;
+draw z4{right}..{down}z3..{left}z2--z1--z5--z7;
+draw z2--z6;
+endchar;
+
+
+
+beginchar(oct"023",.9em#,cap#,0); "The letter Cc";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x2=w-x4=curve_sidebar;
+x1=x3=.5w;
+bot y5=bot y6=0; y1=1.03h;
+y3=.45h; y2=y4=.5[y1,y3];
+path p; p=z1{left}..{down}z2..{right}z3..{up}z4..{left}z1;
+z9 =point .3 of p;
+z11=point 3.7 of p;
+z10-z9=z12-z11=(0,.1h);
+x5=w-x6=x7;
+z7=point 1.7 of p;
+z8=point 2.3 of p;
+draw p; draw z1--z3; draw z7--z5--z6--z8;
+draw z9--z10; draw z11--z12;
+endchar;
+
+
+
+
+
+beginchar("s",em#,1.02cap#,0); "The letter s";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=w-x2=curve_sidebar; bot y1=bot y2=bot y3=bot y4=0; top y7=h; y5=y6=.4h;
+x3-x1=x2-x4=.05w; x7=w/2; z5=whatever[z3,z7]; z6=whatever[z4,z7];
+x8=w-x9=x3; y8=y9=.5(y5+y7); draw z1--z2; draw
+z3--z5{z5-z3}..tension2..{z4-z6}z6--z4; draw
+z5..{up}z8..{right}z7..{down}z9..z6; endchar;
+
+
+beginchar("C",em#,1.02cap#,0); "The letter C, fiktivni";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=w-x2=curve_sidebar; bot y1=bot y2=bot y3=bot y4=0; top y7=h; y5=y6=.4h;
+x3-x1=x2-x4=.05w; x7=w/2; z5=whatever[z3,z7]; z6=whatever[z4,z7];
+x8=w-x9=x3; y8=y9=.5(y5+y7); draw z1--z2; draw
+z3--z5{z5-z3}..tension2..{z4-z6}z6--z4; draw
+z5..{up}z8..{right}z7..{down}z9..z6; endchar;
+
+ligtable "C": "C" =: oct"023";
+
+
+end.
+
diff --git a/language/croatian/fonts/mf/croblm.mf b/language/croatian/fonts/mf/croblm.mf
new file mode 100644
index 0000000000..f600ade3bc
--- /dev/null
+++ b/language/croatian/fonts/mf/croblm.mf
@@ -0,0 +1,580 @@
+% oct"013" = cc
+% oct"000" = cx (novi)
+% oct"006" = zx (novi)
+% oct"002" = ya, ye
+% oct"004" = yu
+
+
+beginchar("a",.9em#,4/3cap#,0); "The letter a";
+grba:=.6;
+autoround:=4;
+x1=x2=.5w; y1=0; y2=h;
+z2- z3= z4-z2=(.16w,0);
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+draw z1..z2;
+draw z3..z4;
+z5=(curve_sidebar,0); z6=(w/2,grba*h); z7=(w-curve_sidebar,0);
+x8=x5; x9=x7; y8=y9=0.55h;
+draw z5{up}--z8; draw z8..z6..z9;
+draw z9--z7;
+penlabels(1,2,3,4,5,6,7,8,9);
+endchar;
+
+
+
+
+beginchar("b",0.8em#,cap#,0); "The letter b";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+smoothing:=4;
+k:=.5;
+x1=w-1.07x2=curve_sidebar; y1=y2=0;
+x3=x4=w-x7=w-x8=curve_sidebar;
+y3+.1h=y5+.05h=y7=k*w;
+y4=y6=y8=h;
+x5=x6=w/2;
+z3=.1[z9,z7];
+draw z4--z1--z2;
+draw z9--z7--z8;
+draw z5--z6;
+penlabels(1,2,3,4,5,6,7,8);
+endchar;
+
+
+
+beginchar("v",em#,cap#,0); "The letter v";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=w-x2=curve_sidebar; y1=y2=0;
+draw z1--z2;
+z5-z1=z9-z2=(0,good.y h);
+z7-z5=z9-z8=z3-z1=z2-z4=z4-z3;
+z77=.2[z7,z3];
+z88=.15[z8,z4]; z99=.15[z9,z2]; z89=.5[z8,z9];
+draw z1--z5..controls z7 ..{down}z77--z3;
+draw z2--z99..controls z9..{left}z89..controls z8..{down}z88--z4;
+penlabels(1,2,3,4,5,6,7,8,9);
+endchar;
+
+
+
+
+
+beginchar("g",.95em#,cap#,0); "The letter g";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=2x3=w-x4=w-x5=curve_sidebar;
+ x2=.5w; y3=-.05h; y5=0; y1=y2=h; y4=.6h;
+z6=.5[z3,z4]; z7=.45[z2,z3]; x7:=x7+.02w;
+z55=z5-(.69thick,-.15thin);
+kut:=angle(z4-z3);
+kut1:=angle(z3-z2);
+k:=1.4/cosd kut;
+z11=(x1,.1[y7,y1]);
+penpos2(1.4thick,0); penpos3(k*thick,kut);
+penpos6(1.4thick,kut); penpos5(1.4thick,0); penpos4(k*thick,kut);
+penpos55(.3thin,90);
+draw z7{left}..controls z11..{up}z1; draw z1--z2;
+penstroke z2e{dir(kut1+7)}..{dir(kut1-7)}z3e;
+penstroke z4e--z5e; penstroke z55e{left}..{dir(90+kut)}z6e;
+pickup pencircle xscaled 1.4thick yscaled.3thin rotated kut;
+draw z3--z4;
+endchar;
+
+
+
+
+beginchar("d",em#,cap#,0); "The letter d";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x2=w-x5=w-x6= curve_sidebar; y1=y8=y4=y5=0;
+y2=y7=y3=good.y h;
+y9=y6=.45h;
+x8-x1=x4-x8=x5-x4; x8=x7; x4=x9=x3; %x7-x2=x6-x9=x5-x4=x3-x7=x4-x8% .25w; x3=x9=x4=x5-(x7-x2);
+z34=.2[z3,z4]; z3-z23=(.2w,0);
+draw z7--z8--z1--z2--z23..controls z3..{down}z34--z4--z5
+..controls z6..{left}z9;
+endchar;
+
+
+
+
+
+beginchar("j",em#,cap#,0); "The letter j"; % novi
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1-.1w=x2-.1w=w-x7=curve_sidebar;
+x4-x1=x9-x1=x3-x1=x5-x4=x7-x6; y2=y3=y6=y7=good.y h;
+y1=y4=y5=0; x5=x6;
+y9=y8=.5h; x8=x5;
+z10=z7-(0,.45h);
+y99:=.7y9; x99=0;
+draw z1--z2; draw z3--z4;
+draw z5--z6--z7{down}..controls z10..{left}z8
+--z9{left}
+..z99;
+endchar;
+
+
+
+
+beginchar(oct"016",.95em#,cap#,0); "The letter dd";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=x2=w-x7=curve_sidebar;
+x4-x1=x9-x1=x3-x1=x5-x4=x7-x6; y2=y3=y6=y7=good.y h;
+y1=y4=y5=0; x5=x6;
+y9=y8=.5h; x8=x5;
+z10=z7-(0,.45h);
+draw z1--z2--z3--z4;
+draw z5--z6--z7{down}..controls z10..{left}z8--z9;
+endchar;
+
+
+
+
+
+
+beginchar("e",.7em#,cap#,0); "The letter e";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x5=w-x3=curve_sidebar;
+y2=good.y 0; y4=good.y h; x2=x4=.45w; x6=.4w; y6=y3=h/2;
+y1=h-y5=.1h;
+z11=(x1,0); z55=(x5,h);
+draw z1--z11--z2{dir(90-90)}..{up}z3..{dir(90+90)}z4--z55--z5;
+draw z6--z3;
+endchar;
+
+
+
+
+
+beginchar(oct"015",em#,cap#,0); "The letter zh";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x2=w-x4=w-x3=curve_sidebar;
+y1=y8=y5=y4=0; z2-z1=z7-z8=z6-z5=z3-z4=(0,good.y h);
+z8-z1=z4-z5=z7-z2=z3-z6=z5-z8;
+z34=.2[z3,z4]; z56=.2[z5,z6];
+z9=.5[z2,z3];
+z11-z9=.6(z3-z9) rotated40;
+z10-z9= (z11-z9) rotated (180-2*40);
+q:=thick;
+y9:=y9+q; y11:=y11+q; y10:=y10+q;
+draw z7--z8--z1--z2--z6..controls z3..{down}z34--z4..
+controls z5..{up}z56--z6;
+draw z10--z9--z11;
+endchar;
+
+beginchar(oct"006",em#,cap#,0); "The letter zx (glagoljski)";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x5=curve_sidebar; x2=.5w; x3=.4w; x4=x1=.4[x5,x3];
+y1= h; bot y4=0; y2=.5h; y5=y3=.25h;
+draw z2{left}..z5{down}..{right}z4..{up}z3..{dir(90+60)}z1;
+transform t; t=identity reflectedabout ((.5w,0),z2);
+addto currentpicture also currentpicture transformed t;
+endchar;
+
+
+
+beginchar("8",.95em#,cap#,0); "The letter 8->dz";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x5=w-x3=w-x4=w-x9=curve_sidebar;
+x2=x6=x8=.5w; x7=.5w-.1w;
+y1=y2=y3=0; y5=y6=y4=.45h; y7=y8=y9=good.y h;
+z66=.1[z6,z8];
+draw z1--z3--z4--z5--cycle;
+draw z2--z8; draw z7--z9{down}..controls (z4+(0,.2h))..z66;
+endchar;
+
+
+
+
+
+beginchar("z",1.1em#,cap#,0); "The letter z";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=5;
+smoothing:=4;
+x1=x4=x5=w-x7=w-x6=good.x curve_sidebar;
+x2=x3=.4w;
+y5=y6=y9=h/2;
+y1=-.2h;
+y2=0;
+ z4-(x1,0)=z3-z2=(0,good.y h);
+z6-z7=z9-z8=(z7-z8) rotated 90=(0,.5h);
+z23=.5[z2,z3];
+penpos23(1.4thick,0);
+draw z23..controls z3..z4--z5;
+k:=1.4/cosd 10;
+penpos1(k*thick,10);
+penpos5(1.4thick,0);
+penstroke z5e--z1e;
+penstroke z1e{dir(20)}..{up}z23e;
+%pickup pencircle xscaled thick yscaled.2thin;
+draw z5--z6--z7{left}..controls z8..{up}z9;
+endchar;
+
+
+
+
+
+beginchar("i",.6em#,cap#,0); "The letter i";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x4=w-x2=w-x5=curve_sidebar;
+y1=y2=0; y4=y5=good.y h;
+z3=(.5w,.52h);
+z=(0,.2h);
+draw z1--z2{up}--(z2+z){up}..z3..
+{up}(z4-z)--z4--
+z5{down}--(z5-z){down}..z3..{down}(z1+z)--z1;
+endchar;
+
+
+
+beginchar("y",1.2em#,cap#,0); "The letter y";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+z3-z1=z2-z3=(w/4,0); z3=(w/2,0);
+y8=y7=good.y h;
+z7-z12=z12-z11=z11-z8=((w-2curve_sidebar)/3,0);
+w-x7=curve_sidebar; %% =x8 reduntantna jedn
+z4=(w/2,.6h); y5=y6=y4;
+z6-z10=z10-z9=z9-z5=z7-z12; z6-z4=z4-z5;
+draw z1--z2;
+draw z3--z4;
+draw z8..controls z5..{right}z9--z6;
+draw z6..controls z7..{left}z12--z8;
+draw z11--z9; draw z12--z10;
+endchar;
+
+beginchar("k",.7em#,cap#,0); "The letter k";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+w-x2=curve_sidebar; x5=.4w;
+y1=0; y5=y4=good.y h; z3=(curve_sidebar,.3h); y2=.3h;
+z1=(x2,0);
+x4=.6w;
+draw z1--z2--z3..{up}z4--z5;
+penlabels(1,2,3,4,5);
+endchar;
+
+
+beginchar("l",em#,4/3cap#,0); "The letter l";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=x8=w-x6=w-x7=curve_sidebar;
+%x2-x1=x6-x5=.25w; y1=y2=y5=y6=0;
+x2-x1=x5-x2=x6-x5; y1=y2=y5=y6=0;
+x2-x3=x4-x5=.33(x2-x1);
+y3=y4=good.y h; y8=y7=.75h;
+z8-z1=z23-z2; z7-z6=z54-z5;
+draw z1--z2--z23{up}..{dir150}z3--z4{dir-150}..{down}z54--z5
+--z6--z7--z8--z1;
+penlabels(1,2,3,4,5,6,7,8);
+endchar;
+
+
+
+
+
+beginchar("m",.9em#,cap#,0); "The letter m";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=w-x3=w-x4= curve_sidebar; x2=x5=.5w; y5=y4=h;
+y1=y2=y3=0; z6=.4[z5,z2];
+draw z1{up}..{dir10}z5--z2;
+draw z6--z4--z3;
+endchar;
+
+
+
+
+
+beginchar("n",.57em#,cap#,0); "The letter n";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+smoothing:=4;
+x1=x4=w-x5=curve_sidebar; x3=.5(x1+x2); x2=.43w;
+y1=y2=0; y5=y4=good.y h; z6=(.5x3,.4h); y3=0;
+z55=(x5,.4[y6,y5]);
+z34=.4[z3,z4]; x34:=x34+.3w;
+draw z3--z4--z5{down}..controls z55and z34..{left}z6;
+%pickup pencircle scaled .7thick;
+draw z1--z2;
+endchar;
+
+
+
+beginchar("o",.7em#,cap#,0); "The letter o";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=x4=w-x3=w-x5=w-x6=w-x2=curve_sidebar;
+y4=y3=good.y h; y1=y2=0; y6-y2=y3-y5=.4h;
+draw z6{left}..{down}z1--z2--z3--z4{down}..{right}z5;
+endchar;
+
+
+
+
+
+beginchar("p",.85em#,cap#,-.3cap#); "The letter p";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x2=w-x3=w-x4=curve_sidebar;
+y1=d; %
+ y2=y6=y3=good.y h;
+y5=y4=0; %
+ x4-x5=x3-x6=.33w;
+z36=.33[z3,z6]; z34=.3[z3,z4];
+z45=.33[z5,z4]; z56=.3[z5,z6];
+draw z1--z2--z36..controls z3..z34--z4--z45..controls z5..z56--z6;
+endchar;
+
+
+
+
+beginchar("r",.7em#,cap#,0); "The letter r";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x3=x4=w-x2=.8w-x5=curve_sidebar;
+y1=y2=0; y4=y5=good.y h; y3=.5h;
+draw z5--z4--z1--z2{dir(90)}..{left}z3;
+endchar;
+
+
+beginchar("s",em#,1.02cap#,0); "The letter s";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x6=w-x8=curve_sidebar;
+x3=x7=.5w;
+x3-x1=x5-x3=.15w;
+x1=x2; x5=x4;
+y2=y4=.4h;
+y1=y5=.1h; top y7= h; y6=y8=.5(y2+y7);
+y3=.9y6;
+x1-x11=x55-x5=.2(x3-x2); bot y11=bot y55=0;
+draw z1--z2{up}..{right}z3..{down}z4--z5;
+draw z11--z55{dir(180-10)}..{up}z5;
+draw z11{dir10}..{up}z1;
+draw z2{left}..{up}z6..{right}z7..{down}z8..{left}z4;
+endchar;
+
+
+
+
+
+
+beginchar("t",em#,cap#,0); "The letter t";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+smoothing:=4;
+x1=x2=w-x4=w-x3=curve_sidebar;
+y1=y8=y5=y4=0; z2-z1=z7-z8=z6-z5=z3-z4=(0,good.y h);
+z8-z1=z4-z5=z7-z2=z3-z6=z5-z8;
+z34=.2[z3,z4]; z56=.2[z5,z6];
+draw z7--z8--z1--z2--z6..controls z3..{down}z34--z4..
+controls z5..{up}z56--z6;
+endchar;
+
+
+
+
+
+
+beginchar("c",.85em#,cap#,0); "The letter c";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+smoothing:=4;
+x23=x3=w-x7=curve_sidebar; bot x5=.55w; x6=.82w; y6=.5h;
+y23=.5[y2,y3];
+y5=0; top z4=(.42w,good.y h); top y3=y4; top y7=h; z1=.45[z4,z5]; x1:=x1-.04w;
+z2-z3=z1-z4;
+z12=.5[z1,z2]; z34=.5[z3,z4];
+penpos6(thick,0); penpos7(1.4thick,0);
+kut:=-10;
+draw z1--z12{left}..{dir angle(z4-z5)}z23..{right}z34--z4{dir (angle(z5-z4)+kut)}
+..{dir (angle(z5-z4)-kut)}z5;
+x55=x5+.4*thick; y55=0; penpos55(.7thick,0);
+penstroke z55e..z6e..z7e;
+endchar;
+
+
+
+
+beginchar(oct"013",.9em#,1.1cap#,0); "The letter cc";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=w-x2=curve_sidebar; x3=x5=w-x4=w-x6=.3w;
+x7=w-x8=.5(x3-x1); x11=.5w; x10=w-x9=.5(x7+x11);
+y1=y2=y3=y4=0; y5=y6=y7=y8=y11=.5h; y9=y10=h;
+z12=.3[z10,z7]; z13=.3[z9,z8];
+z14=.5[z12,z13];
+z35=.3[z5,z3]; z46-z4=z35-z3;
+z511=.3[z5,z11]; z116-z6=z5-z511;
+x12:=.2[x12,x14]; x13:=.2[x13,x14];
+draw z1--z2;
+draw z3--z35{up}..z511; draw z4--z46{up}..z116;
+draw z10..z12..z7; draw z7--z8; draw z8..z13..z9;
+pickup pencircle xscaled thick yscaled .2thin
+draw z11--z14;
+draw z12--z13;
+endchar;
+
+
+
+beginchar(oct"011",.8em#,cap#,0); "The letter ch"; %sht ili schch
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x2=w-x4=w-x5=curve_sidebar; x3=x6=.5w;
+y1=y5=h; y6=.95h; y2=y3=y4=.55h;
+x7=x1+.15h; x8=x4-.15h; y7=y8=0;
+x9=.65[x2,x3]; x10=.35[x3,x4]; y9=y10=.55h;
+z79=z7+(0,.4h);
+z810=z8+(0,.4h);
+draw z1--z2--z3--z4--z5; draw z3--z6;
+draw z9..{down}z79--z7--z8--z810{up}..z10;
+endchar;
+
+
+
+
+beginchar("u",.9em#,cap#,0); "The letter u";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x4=.6w-x3=.6w-x5=.6w-x2=w-x6=curve_sidebar;
+y4=y3=good.y h; y1=y2=0; y5=.5h; y6=.5h;
+k:=.08;
+l:=.1;
+nagib:=85;
+z11=(x1+k*w,l*h);
+z44=(x11,h-y11);
+kut:=180+nagib;
+draw z5{left}.. {dir kut}z11..{left}z1--z2--z3--z4{right}..z44{dir
+-nagib}..{right}z5--z6;
+draw z3{right}..z6{down}..{left}z2;
+endchar;
+
+
+beginchar("f",.75em#,1.2cap#,-.2cap#); "The letter f";
+pickup pencircle xscaled 1.4thick yscaled .3thick;
+autoround:=4;
+x3=w-x4=curve_sidebar; y1=d; y2=h; y3=y4=.5[y1,y2]; y2-y5=y6-y1=.2h;
+x1=x6=x5=x2=.5w;
+z2-z7=z8-z1=.06(0,h); z9=(.5w,y3);
+z13=z3-(0,.27h); z32=z3+(0,.27h);
+z14=z4-(0,.27h); z42=z4+(0,.27h);
+penpos1(1.3thick,0); penpos7(1.1thick,0);
+penpos8(1.1thick,0); penpos2(1.3thick,0); penpos9(thick,0);
+penstroke z1e..z8e..tension1.5..z9e..tension1.5..z7e..z2e;
+draw z3..%controls z13..
+{right}z6{right}..%controls z14 ..
+z4..%controls z42..
+{left}z5..%controls z32..
+cycle;
+penlabels(1,2,3,4,5);
+endchar;
+
+
+
+
+
+beginchar("h",.9em#,cap#,0); "The letter h";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+2x3=w-x4=w-x5=curve_sidebar;
+ x2=.3w; y3=-.05h; y5=0; y2=h; y4=.6h;
+z6=.45[z3,z4];
+z55=z5-(.69thick,-.15thin);
+kut:=angle(z4-z3);
+kut1:=angle(z3-z2);
+k:=1.4/cosd kut;
+penpos2(1.4thick,0); penpos3(k*thick,kut);
+penpos6(1.4thick,kut); penpos5(1.4thick,0); penpos4(k*thick,kut);
+penpos55(.3thin,90);
+penstroke z2e{dir(kut1+10)}..{dir(kut1-10)}z3e;
+penstroke z4e--z5e; penstroke z55e{left}..{dir(90+kut)}z6e;
+pickup pencircle xscaled 1.4thick yscaled.3thin rotated kut;
+draw z3--z4;
+endchar;
+
+
+
+beginchar(oct"014",.8em#,cap#,0); "The letter ss";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=x2=w-x4=w-x5=curve_sidebar; x3=x6=.5w;
+y1=y5=h; y6=.95h; y2=y3=y4=0;
+draw z1--z2--z3--z4--z5; draw z3--z6;
+endchar;
+
+
+
+
+
+beginchar("q",em#,cap#,0); "The letter q->700 (ot)";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+z3-z1=z2-z3=(w/4,0); z3=(w/2,0);
+y8=y7=good.y h;
+x5=x8=w-x6=curve_sidebar;
+z7-z12=z12-z11=z11-z8=((w-2curve_sidebar)/3,0);
+ %% =x8 reduntantna jedn
+z4=(w/2,.45h); y5=y6=y4;
+y9=y10=.6h; x6-x10=x10-x9=x9-x5;
+ z6-z4=z4-z5;
+draw z1--z2;
+draw z3--z4;
+draw z9--z11--z8--z5--z6--z7--z12--z10--cycle;
+endchar;
+
+
+beginchar("6",.4em#,cap#,0); "The symbol meki znak";
+%pickup pencircle scaled .4thick ;
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=w-x2=curve_sidebar; y1= y2=h;
+z3=.5[z1,z2]; y4=.2h; x4=x3;
+draw z1-- z2; draw z4--z3;
+endchar;
+
+
+beginchar(oct"000",em#,cap#,0); "The letter novi cx";
+pickup pencircle xscaled 1.4thick yscaled .25thin;
+x1=w-x2=w-x3=curve_sidebar; x4=x44=.15w;
+x9=x10=.5w; x5=x8=.5[x1,x10]; x6=x7=x12=x11=.5[x10,x2];
+y1=y8=y10=y7=y2=.5h;
+bot y5=bot y6= 0;
+top y44= 1.06h; y4=y9=y11=y3= h/1.1; y12=y44;
+draw z44--z4{down}..z1--z2--z3--z4; draw z9--z10;
+draw z8--z5--z6--z7;
+pickup pencircle xscaled 1.6thick yscaled .25thin;
+draw z11--z12;
+endchar;
+
+beginchar(oct"002",.9em#,cap#,0); "The letter ya,ye";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autorounding:=10;
+smoothing:=10;
+x1=w- x2=w-x3=good.x curve_sidebar; x6=x7=.2w; x9=.2[x7,x8];
+x10=x5=.5[x6,x3];
+x4=x8=good.x .67w; y1=y10=y2=0; y6=y5=y3=y4=good.y .53h; y7=y9=y8=good.y h;
+z23=.2[z2,z3]; z84=.8[z8,z4];
+draw z7--z6{down}..z1--z2--z23{up}..controls z3..{left}z4--z6;
+draw z10--z5; draw z7--z9..controls z8..z84--z4;
+endchar;
+
+
+beginchar(oct"004",.9em#,cap#,0); "The letter yu";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x6=w- x3=w-x4=good.x curve_sidebar; x2=x5=.5w;
+y6=y5=y4=h; y3=.2h; y1=-.1h; y2=.5[y1,y3]; x0=-.2w;
+z0=whatever[z1,z3];
+draw z0--z3--z4--z6--z1; draw z2--z5;
+endchar;
+
+
+beginchar("1",.75em#,cap#,0); "The letter stari tvrdi znak (jor)";
+pickup pencircle xscaled 1.3thick yscaled .25thin;
+x1=w-x3=w-x4=w-x5=curve_sidebar;
+x2=x8=x6=.5w;
+x7=.3w;
+y1=y2=y3=0;y7=y6=y5=h;
+y4=y8=.5h;
+z88=(x1,.1h);
+draw z1--z3--z5--z7;
+draw z2--z6; draw z4--z8{left}..{down}z88--z1;
+endchar;
+
+beginchar("x",.8em#,.5cap#,0); "The letter x";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+draw (0,0)--(w,0);
+endchar;
+
diff --git a/language/croatian/fonts/mf/croblv.mf b/language/croatian/fonts/mf/croblv.mf
new file mode 100644
index 0000000000..4f57c92398
--- /dev/null
+++ b/language/croatian/fonts/mf/croblv.mf
@@ -0,0 +1,605 @@
+% oct"023" = Cc
+% oct"001" = Cx (novi)
+% oct"007" = Zx (novi)
+% oct"003" = Ya, Ye
+% oct"005" = Yu
+
+
+
+
+beginchar("A",.9em#,4/3cap#,0); "The letter A";
+grba:=.6;
+autoround:=4;
+x1=x2=.5w; y1=0; y2=h;
+z2- z3= z4-z2=(.16w,0);
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+draw z1..z2;
+draw z3..z4;
+z5=(curve_sidebar,0); z6=(w/2,grba*h); z7=(w-curve_sidebar,0);
+x8=x5; x9=x7; y8=y9=0.55h;
+draw z5{up}--z8; draw z8..z6..z9;
+draw z9--z7;
+penlabels(1,2,3,4,5,6,7,8,9);
+endchar;
+
+
+
+
+beginchar("B",0.8em#,cap#,0); "The letter B";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+smoothing:=4;
+k:=.5;
+x1=w-1.07x2=curve_sidebar; y1=y2=0;
+x3=x4=w-x7=w-x8=curve_sidebar;
+y3+.1h=y5+.05h=y7=k*w;
+y4=y6=y8=h;
+x5=x6=w/2;
+z3=.1[z9,z7];
+draw z4--z1--z2;
+draw z9--z7--z8;
+draw z5--z6;
+penlabels(1,2,3,4,5,6,7,8);
+endchar;
+
+
+
+beginchar("V",em#,cap#,0); "The letter V";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=w-x2=curve_sidebar; y1=y2=0;
+draw z1--z2;
+z5-z1=z9-z2=(0,good.y h);
+z7-z5=z9-z8=z3-z1=z2-z4=z4-z3;
+z77=.2[z7,z3];
+z88=.15[z8,z4]; z99=.15[z9,z2]; z89=.5[z8,z9];
+draw z1--z5..controls z7 ..{down}z77--z3;
+draw z2--z99..controls z9..{left}z89..controls z8..{down}z88--z4;
+penlabels(1,2,3,4,5,6,7,8,9);
+endchar;
+
+
+
+
+
+beginchar("G",.95em#,cap#,0); "The letter G";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=2x3=w-x4=w-x5=curve_sidebar;
+ x2=.5w; y3=-.05h; y5=0; y1=y2=h; y4=.6h;
+z6=.5[z3,z4]; z7=.45[z2,z3]; x7:=x7+.02w;
+z55=z5-(.69thick,-.15thin);
+kut:=angle(z4-z3);
+kut1:=angle(z3-z2);
+k:=1.4/cosd kut;
+z11=(x1,.1[y7,y1]);
+penpos2(1.4thick,0); penpos3(k*thick,kut);
+penpos6(1.4thick,kut); penpos5(1.4thick,0); penpos4(k*thick,kut);
+penpos55(.3thin,90);
+draw z7{left}..controls z11..{up}z1; draw z1--z2;
+penstroke z2e{dir(kut1+7)}..{dir(kut1-7)}z3e;
+penstroke z4e--z5e; penstroke z55e{left}..{dir(90+kut)}z6e;
+pickup pencircle xscaled 1.4thick yscaled.3thin rotated kut;
+draw z3--z4;
+endchar;
+
+
+
+
+
+beginchar("D",em#,cap#,0); "The letter D";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x2=w-x5=w-x6= curve_sidebar; y1=y8=y4=y5=0;
+y2=y7=y3=good.y h;
+y9=y6=.45h;
+x8-x1=x4-x8=x5-x4; x8=x7; x4=x9=x3; %x7-x2=x6-x9=x5-x4=x3-x7=x4-x8% .25w; x3=x9=x4=x5-(x7-x2);
+z34=.2[z3,z4]; z3-z23=(.2w,0);
+draw z7--z8--z1--z2--z23..controls z3..{down}z34--z4--z5
+..controls z6..{left}z9;
+endchar;
+
+
+
+
+beginchar("J",em#,cap#,0); "The letter J"; % novi
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1-.1w=x2-.1w=w-x7=curve_sidebar;
+x4-x1=x9-x1=x3-x1=x5-x4=x7-x6; y2=y3=y6=y7=good.y h;
+y1=y4=y5=0; x5=x6;
+y9=y8=.5h; x8=x5;
+z10=z7-(0,.45h);
+y99:=.7y9; x99=0;
+draw z1--z2; draw z3--z4;
+draw z5--z6--z7{down}..controls z10..{left}z8
+--z9{left}
+..z99;
+endchar;
+
+
+
+beginchar(oct"026",.95em#,cap#,0); "The letter DD";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x2=w-x7=curve_sidebar;
+x4-x1=x9-x1=x3-x1=x5-x4=x7-x6; y2=y3=y6=y7=good.y h;
+y1=y4=y5=0; x5=x6;
+y9=y8=.5h; x8=x5;
+z10=z7-(0,.45h);
+draw z1--z2--z3--z4;
+draw z5--z6--z7{down}..controls z10..{left}z8--z9;
+endchar;
+
+
+
+
+
+
+beginchar("E",.7em#,cap#,0); "The letter E";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x5=w-x3=curve_sidebar;
+y2=good.y 0; y4=good.y h; x2=x4=.45w; x6=.4w; y6=y3=h/2;
+y1=h-y5=.1h;
+z11=(x1,0); z55=(x5,h);
+draw z1--z11--z2{dir(90-90)}..{up}z3..{dir(90+90)}z4--z55--z5;
+draw z6--z3;
+endchar;
+
+
+
+
+
+beginchar(oct"025",em#,cap#,0); "The letter Zh";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x2=w-x4=w-x3=curve_sidebar;
+y1=y8=y5=y4=0; z2-z1=z7-z8=z6-z5=z3-z4=(0,good.y h);
+z8-z1=z4-z5=z7-z2=z3-z6=z5-z8;
+z34=.2[z3,z4]; z56=.2[z5,z6];
+z9=.5[z2,z3];
+z11-z9=.6(z3-z9) rotated40;
+z10-z9= (z11-z9) rotated (180-2*40);
+q:=thick;
+y9:=y9+q; y11:=y11+q; y10:=y10+q;
+draw z7--z8--z1--z2--z6..controls z3..{down}z34--z4..
+controls z5..{up}z56--z6;
+draw z10--z9--z11;
+endchar;
+
+beginchar(oct"007",em#,cap#,0); "The letter Zx (glagoljski)";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x5=curve_sidebar; x2=.5w; x3=.4w; x4=x1=.4[x5,x3];
+y1= h; bot y4=0; y2=.5h; y5=y3=.25h;
+draw z2{left}..z5{down}..{right}z4..{up}z3..{dir(90+60)}z1;
+transform t; t=identity reflectedabout ((.5w,0),z2);
+addto currentpicture also currentpicture transformed t;
+endchar;
+
+
+
+
+beginchar("9",.95em#,cap#,0); "The letter 9->Dz";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x5=w-x3=w-x4=w-x9=curve_sidebar;
+x2=x6=x8=.5w; x7=.5w-.1w;
+y1=y2=y3=0; y5=y6=y4=.45h; y7=y8=y9=good.y h;
+z66=.1[z6,z8];
+draw z1--z3--z4--z5--cycle;
+draw z2--z8; draw z7--z9{down}..controls (z4+(0,.2h))..z66;
+endchar;
+
+
+
+
+beginchar("Z",1.1em#,cap#,0); "The letter Z";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=5;
+smoothing:=4;
+x1=x4=x5=w-x7=w-x6=good.x curve_sidebar;
+x2=x3=.4w;
+y5=y6=y9=h/2;
+y1=-.2h;
+y2=0;
+ z4-(x1,0)=z3-z2=(0,good.y h);
+z6-z7=z9-z8=(z7-z8) rotated 90=(0,.5h);
+z23=.5[z2,z3];
+penpos23(1.4thick,0);
+draw z23..controls z3..z4--z5;
+k:=1.4/cosd 10;
+penpos1(k*thick,10);
+penpos5(1.4thick,0);
+penstroke z5e--z1e;
+penstroke z1e{dir14}..{up}z23e;
+%pickup pencircle xscaled thick yscaled.2thin;
+draw z5--z6--z7{left}..controls z8..{up}z9;
+endchar;
+
+
+
+
+
+beginchar("I",.6em#,cap#,0); "The letter I";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x4=w-x2=w-x5=curve_sidebar;
+y1=y2=0; y4=y5=good.y h;
+z3=(.5w,.52h);
+z=(0,.2h);
+draw z1--z2{up}--(z2+z){up}..z3..
+{up}(z4-z)--z4--
+z5{down}--(z5-z){down}..z3..{down}(z1+z)--z1;
+endchar;
+
+
+
+beginchar("Y",1.2em#,cap#,0); "The letter Y";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+z3-z1=z2-z3=(w/4,0); z3=(w/2,0);
+y8=y7=good.y h;
+z7-z12=z12-z11=z11-z8=((w-2curve_sidebar)/3,0);
+w-x7=curve_sidebar; %% =x8 reduntantna jedn
+z4=(w/2,.6h); y5=y6=y4;
+z6-z10=z10-z9=z9-z5=z7-z12; z6-z4=z4-z5;
+draw z1--z2;
+draw z3--z4;
+draw z8..controls z5..{right}z9--z6;
+draw z6..controls z7..{left}z12--z8;
+draw z11--z9; draw z12--z10;
+endchar;
+
+
+
+beginchar("K",.7em#,cap#,0); "The letter K";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+w-x2=curve_sidebar; x5=.4w;
+y1=0; y5=y4=good.y h; z3=(curve_sidebar,.3h); y2=.3h;
+z1=(x2,0);
+x4=.6w;
+draw z1--z2--z3..{up}z4--z5;
+penlabels(1,2,3,4,5);
+endchar;
+
+
+
+
+beginchar("L",em#,4/3cap#,0); "The letter L";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=x8=w-x6=w-x7=curve_sidebar;
+%x2-x1=x6-x5=.25w; y1=y2=y5=y6=0;
+x2-x1=x5-x2=x6-x5; y1=y2=y5=y6=0;
+x2-x3=x4-x5=.33(x2-x1);
+y3=y4=good.y h; y8=y7=.75h;
+z8-z1=z23-z2; z7-z6=z54-z5;
+draw z1--z2--z23{up}..{dir150}z3--z4{dir-150}..{down}z54--z5
+--z6--z7--z8--z1;
+penlabels(1,2,3,4,5,6,7,8);
+endchar;
+
+
+
+
+
+beginchar("M",.9em#,cap#,0); "The letter M";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=w-x3=w-x4= curve_sidebar; x2=x5=.5w; y5=y4=h;
+y1=y2=y3=0; z6=.4[z5,z2];
+draw z1{up}..{dir10}z5--z2;
+draw z6--z4--z3;
+endchar;
+
+
+
+
+
+
+beginchar("N",.57em#,cap#,0); "The letter N";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+smoothing:=4;
+x1=x4=w-x5=curve_sidebar; x3=.5(x1+x2); x2=.43w;
+y1=y2=0; y5=y4=good.y h; z6=(.5x3,.4h); y3=0;
+z55=(x5,.4[y6,y5]);
+z34=.4[z3,z4]; x34:=x34+.3w;
+draw z3--z4--z5{down}..controls z55and z34..{left}z6;
+%pickup pencircle scaled .7thick;
+draw z1--z2;
+endchar;
+
+
+
+beginchar("O",.7em#,cap#,0); "The letter O";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=x4=w-x3=w-x5=w-x6=w-x2=curve_sidebar;
+y4=y3=good.y h; y1=y2=0; y6-y2=y3-y5=.4h;
+draw z6{left}..{down}z1--z2--z3--z4{down}..{right}z5;
+endchar;
+
+
+
+
+
+beginchar("P",.85em#,cap#,-.3cap#); "The letter P";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x2=w-x3=w-x4=curve_sidebar;
+y1=d; %
+ y2=y6=y3=good.y h;
+y5=y4=0; %
+ x4-x5=x3-x6=.33w;
+z36=.33[z3,z6]; z34=.3[z3,z4];
+z45=.33[z5,z4]; z56=.3[z5,z6];
+draw z1--z2--z36..controls z3..z34--z4--z45..controls z5..z56--z6;
+endchar;
+
+
+
+
+beginchar("R",.7em#,cap#,0); "The letter R";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x3=x4=w-x2=.8w-x5=curve_sidebar;
+y1=y2=0; y4=y5=good.y h; y3=.5h;
+draw z5--z4--z1--z2{dir(90)}..{left}z3;
+endchar;
+
+beginchar("S",em#,1.02cap#,0); "The letter S";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x6=w-x8=curve_sidebar;
+x3=x7=.5w;
+x3-x1=x5-x3=.15w;
+x1=x2; x5=x4;
+y2=y4=.4h;
+y1=y5=.1h; top y7= h; y6=y8=.5(y2+y7);
+y3=.9y6;
+x1-x11=x55-x5=.2(x3-x2); bot y11=bot y55=0;
+draw z1--z2{up}..{right}z3..{down}z4--z5;
+draw z11--z55{dir(180-10)}..{up}z5;
+draw z11{dir10}..{up}z1;
+draw z2{left}..{up}z6..{right}z7..{down}z8..{left}z4;
+endchar;
+
+
+
+
+
+%beginchar("S",em#,1.02cap#,0); "The letter S";
+%pickup pencircle xscaled 1.4thick yscaled .3thin;
+%autoround:=4;
+%x1=w-x2=curve_sidebar; bot y1=bot y2=bot y3=bot y4=0; top y7=h; y5=y6=.4h;
+%x3-x1=x2-x4=.05w; x7=w/2; z5=whatever[z3,z7]; z6=whatever[z4,z7];
+%x8=w-x9=x3; y8=y9=.5(y5+y7); draw z1--z2; draw
+%z3--z5{z5-z3}..tension2..{z4-z6}z6--z4; draw
+%z5..{up}z8..{right}z7..{down}z9..z6; endchar;
+
+
+
+
+beginchar("T",em#,cap#,0); "The letter T";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+smoothing:=4;
+x1=x2=w-x4=w-x3=curve_sidebar;
+y1=y8=y5=y4=0; z2-z1=z7-z8=z6-z5=z3-z4=(0,good.y h);
+z8-z1=z4-z5=z7-z2=z3-z6=z5-z8;
+z34=.2[z3,z4]; z56=.2[z5,z6];
+draw z7--z8--z1--z2--z6..controls z3..{down}z34--z4..
+controls z5..{up}z56--z6;
+endchar;
+
+
+
+
+
+
+
+
+beginchar("C",.85em#,cap#,0); "The letter C";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+smoothing:=4;
+x23=x3=w-x7=curve_sidebar; x5=.55w; x6=.82w; y6=.5h;
+y23=.5[y2,y3];
+bot y5=0; top z4=(.42w,good.y h); top y3=y4; top y7=h; z1=.45[z4,z5]; x1:=x1-.04w;
+z2-z3=z1-z4;
+z12=.5[z1,z2]; z34=.5[z3,z4];
+penpos6(thick,0); penpos7(1.4thick,0);
+kut:=-10;
+draw z1--z12{left}..{dir angle(z4-z5)}z23..{right}z34--z4{dir (angle(z5-z4)+kut)}
+..{dir (angle(z5-z4)-kut)}z5;
+x55=x5+.4*thick; y55=0; penpos55(.7thick,0);
+penstroke z55e..z6e..z7e;
+endchar;
+
+
+
+
+beginchar(oct"023",.9em#,1.1cap#,0); "The letter Cc";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=w-x2=curve_sidebar; x3=x5=w-x4=w-x6=.3w;
+x7=w-x8=.5(x3-x1); x11=.5w; x10=w-x9=.5(x7+x11);
+y1=y2=y3=y4=0; y5=y6=y7=y8=y11=.5h; y9=y10=h;
+z12=.3[z10,z7]; z13=.3[z9,z8];
+z14=.5[z12,z13];
+z35=.3[z5,z3]; z46-z4=z35-z3;
+z511=.3[z5,z11]; z116-z6=z5-z511;
+x12:=.2[x12,x14]; x13:=.2[x13,x14];
+draw z1--z2;
+draw z3--z35{up}..z511; draw z4--z46{up}..z116;
+draw z10..z12..z7; draw z7--z8; draw z8..z13..z9;
+pickup pencircle xscaled thick yscaled .2thin
+draw z11--z14;
+draw z12--z13;
+endchar;
+
+
+
+beginchar(oct"021",.8em#,cap#,0); "The letter Ch"; %sht ili schch
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x2=w-x4=w-x5=curve_sidebar; x3=x6=.5w;
+y1=y5=h; y6=.95h; y2=y3=y4=.55h;
+x7=x1+.15h; x8=x4-.15h; y7=y8=0;
+x9=.65[x2,x3]; x10=.35[x3,x4]; y9=y10=.55h;
+z79=z7+(0,.4h);
+z810=z8+(0,.4h);
+draw z1--z2--z3--z4--z5; draw z3--z6;
+draw z9..{down}z79--z7--z8--z810{up}..z10;
+endchar;
+
+
+
+
+beginchar("U",.9em#,cap#,0); "The letter U";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+autoround:=4;
+x1=x4=.6w-x3=.6w-x5=.6w-x2=w-x6=curve_sidebar;
+y4=y3=good.y h; y1=y2=0; y5=.5h; y6=.5h;
+k:=.08;
+l:=.1;
+nagib:=85;
+z11=(x1+k*w,l*h);
+z44=(x11,h-y11);
+kut:=180+nagib;
+draw z5{left}.. {dir kut}z11..{left}z1--z2--z3--z4{right}..z44{dir
+-nagib}..{right}z5--z6;
+draw z3{right}..z6{down}..{left}z2;
+endchar;
+
+
+beginchar("F",.75em#,1.2cap#,-.2cap#); "The letter F";
+pickup pencircle xscaled 1.4thick yscaled .3thick;
+autoround:=4;
+x3=w-x4=curve_sidebar; y1=d; y2=h; y3=y4=.5[y1,y2]; y2-y5=y6-y1=.2h;
+x1=x6=x5=x2=.5w;
+z2-z7=z8-z1=.06(0,h); z9=(.5w,y3);
+z13=z3-(0,.27h); z32=z3+(0,.27h);
+z14=z4-(0,.27h); z42=z4+(0,.27h);
+penpos1(1.3thick,0); penpos7(1.1thick,0);
+penpos8(1.1thick,0); penpos2(1.3thick,0); penpos9(thick,0);
+penstroke z1e..z8e..tension1.5..z9e..tension1.5..z7e..z2e;
+draw z3..%controls z13..
+{right}z6{right}..%controls z14 ..
+z4..%controls z42..
+{left}z5..%controls z32..
+cycle;
+penlabels(1,2,3,4,5);
+endchar;
+
+
+
+
+
+
+beginchar("H",.9em#,cap#,0); "The letter H";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+2x3=w-x4=w-x5=curve_sidebar;
+ x2=.3w; y3=-.05h; y5=0; y2=h; y4=.6h;
+z6=.45[z3,z4];
+z55=z5-(.69thick,-.15thin);
+kut:=angle(z4-z3);
+kut1:=angle(z3-z2);
+k:=1.4/cosd kut;
+penpos2(1.4thick,0); penpos3(k*thick,kut);
+penpos6(1.4thick,kut); penpos5(1.4thick,0); penpos4(k*thick,kut);
+penpos55(.3thin,90);
+penstroke z2e{dir(kut1+10)}..{dir(kut1-10)}z3e;
+penstroke z4e--z5e; penstroke z55e{left}..{dir(90+kut)}z6e;
+pickup pencircle xscaled 1.4thick yscaled.3thin rotated kut;
+draw z3--z4;
+endchar;
+
+
+
+
+beginchar(oct"024",.8em#,cap#,0); "The letter Ss";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=x2=w-x4=w-x5=curve_sidebar; x3=x6=.5w;
+y1=y5=h; y6=.95h; y2=y3=y4=0;
+draw z1--z2--z3--z4--z5; draw z3--z6;
+endchar;
+
+
+
+
+
+beginchar("Q",em#,cap#,0); "The letter Q->700 (Ot)";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+z3-z1=z2-z3=(w/4,0); z3=(w/2,0);
+y8=y7=good.y h;
+x5=x8=w-x6=curve_sidebar;
+z7-z12=z12-z11=z11-z8=((w-2curve_sidebar)/3,0);
+ %% =x8 reduntantna jedn
+z4=(w/2,.45h); y5=y6=y4;
+y9=y10=.6h; x6-x10=x10-x9=x9-x5;
+ z6-z4=z4-z5;
+draw z1--z2;
+draw z3--z4;
+draw z9--z11--z8--z5--z6--z7--z12--z10--cycle;
+endchar;
+
+
+
+
+
+
+beginchar("^",.4em#,cap#,0); "The symbol meki znak";
+%pickup pencircle scaled .4thick ;
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=w-x2=curve_sidebar; y1= y2=h;
+z3=.5[z1,z2]; y4=.2h; x4=x3;
+draw z1-- z2; draw z4--z3;
+endchar;
+
+beginchar(oct"001",em#,cap#,0); "The letter Cx";
+pickup pencircle xscaled 1.4thick yscaled .25thin;
+x1=w-x2=w-x3=curve_sidebar; x4=x44=.15w;
+x9=x10=.5w; x5=x8=.5[x1,x10]; x6=x7=x12=x11=.5[x10,x2];
+y1=y8=y10=y7=y2=.5h;
+bot y5=bot y6= 0;
+top y44= 1.06h; y4=y9=y11=y3= h/1.1; y12=y44;
+draw z44--z4{down}..z1--z2--z3--z4; draw z9--z10;
+draw z8--z5--z6--z7;
+pickup pencircle xscaled 1.6thick yscaled .25thin;
+draw z11--z12;
+endchar;
+
+
+
+beginchar(oct"003",.9em#,cap#,0); "The letter Ya, Yu";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autorounding:=10;
+smoothing:=10;
+x1=w- x2=w-x3=good.x curve_sidebar; x6=x7=.2w; x9=.2[x7,x8];
+x10=x5=.5[x6,x3];
+x4=x8=good.x .67w; y1=y10=y2=0; y6=y5=y3=y4=good.y .53h; y7=y9=y8=good.y h;
+z23=.2[z2,z3]; z84=.8[z8,z4];
+draw z7--z6{down}..z1--z2--z23{up}..controls z3..{left}z4--z6;
+draw z10--z5; draw z7--z9..controls z8..z84--z4;
+endchar;
+
+
+
+beginchar(oct"005",.9em#,cap#,0); "The letter Yu";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x6=w- x3=w-x4=good.x curve_sidebar; x2=x5=.5w;
+y6=y5=y4=h; y3=.2h; y1=-.1h; y2=.5[y1,y3]; x0=-.2w;
+z0=whatever[z1,z3];
+draw z0--z3--z4--z6--z1; draw z2--z5;
+endchar;
+
+beginchar("2",.75em#,cap#,0); "The letter stari tvrdi znak (Jor)";
+pickup pencircle xscaled 1.3thick yscaled .25thin;
+x1=w-x3=w-x4=w-x5=curve_sidebar;
+x2=x8=x6=.5w;
+x7=.3w;
+y1=y2=y3=0;y7=y6=y5=h;
+y4=y8=.5h;
+z88=(x1,.1h);
+draw z1--z3--z5--z7;
+draw z2--z6; draw z4--z8{left}..{down}z88--z1;
+endchar;
+
+beginchar("X",.8em#,.5cap#,0); "The letter X";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+draw (0,0)--(w,0);
+endchar;
+
diff --git a/language/croatian/fonts/mf/crocyrm.mf b/language/croatian/fonts/mf/crocyrm.mf
new file mode 100644
index 0000000000..0be4d4b033
--- /dev/null
+++ b/language/croatian/fonts/mf/crocyrm.mf
@@ -0,0 +1,416 @@
+% oct"034" = dj,j,ch (crkvica), koristim kao ch
+% oct"076" = drugi d
+% oct"015" = zz
+% oct"016" = zz (drugi zz)
+% oct"035" = zx (krizz)
+% oct"026" = zz (glagoljski)
+% oct"027" = drugi r (zaobljeni)
+% oct"031" = yu
+% oct"032" = ye
+% oct"033" = ya
+% 8 = dz
+% 1 = dj,j,ch (pravocrtna crkvica)
+% 4 = d (kut)
+
+beginchar("a",.6em#,1.2cap#,.7cap#); "The letter a";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x7=w-x5=w-x2=w-x3=curve_sidebar;
+x2-x1=x4-x3=.2w; x6=x8=.5[x7,x5];
+y1=-d; y4=h; bot y6=0; y8=.5h/1.2; y7=y5=.5[y6,y8];
+y2=-.7d; y3=.8h;
+draw z1{dir(20)}..{up}z2--z3{up}..{dir(20)}z4;
+draw z5{down}..{left}z6..{up}z7..{right}z8;
+endchar;
+
+beginchar("b",.55em#,1.2cap#,0); "The letter b";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x6=x3=w-x5=curve_sidebar;
+x1=w; x2=.65w;
+x4=x7=.5w;
+bot y4=0; top y2= h; y1=.8h;
+y3=.5h/1.2;
+y6=y5=.25h/1.2;
+y7=.5h/1.2;
+draw z1{up}
+%{dir(90+15)}
+..{left}z2..
+{down}z3..{down}z6..{right}z4..{up}z5..{left}z7;
+pickup pencircle xscaled .3thick yscaled .3thin;
+draw z7{left}..{down}z6;
+endchar;
+
+
+beginchar("v",.7em#,.5cap#,0); "The letter v";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x5=w-x4=w-x8=curve_sidebar;
+x2=x6=w-x3=w-x7=.25w;
+top y1=top y2=top y3=top y4=h;
+bot y5=bot y6=bot y7=bot y8=0;
+draw z1--z4; draw z5--z8;
+draw z2--z6; draw z3--z7;
+endchar;
+
+beginchar("g",.8em#,.5cap#,.5cap#); "The letter g";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=0; w-x6=curve_sidebar;
+x2=.2w; x3=x4=.6w; x5=.5[x4,x6];
+y1=-d; top y2=top y3=h; bot y5=0; y4=y6=x6-x5;
+draw z1{dir angle(z3-z1)}..{up}z2--z3--z4{down}..{right}z5..{up}z6;
+endchar;
+
+beginchar("d",.65em#,.5cap#,0); "The letter d (kao A)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x5=x1=w-x3=w-x4=curve_sidebar;
+x2=.5w;
+bot y1=bot y4=0; y5=y3=.2h; top y2= h;
+draw z1--z5{up}..{right}z2..{down}z3--z4;
+draw z5--z3;
+endchar;
+
+beginchar(oct"076",.55em#,1.2cap#,.7cap#); "The letter drugi d";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x5=curve_sidebar; x5-x6=.1w;
+x2=x3=.3w; x4=.5w;
+bot y1=bot y5=0; y2=-d; y3=h; y4=.5h/1.2; y6=.5y4;
+z56=(x6,.5y6);
+draw z2{dir(90+10)}..{up}z1..{dir(90-10)}z3;
+pickup pencircle xscaled 1.2thick yscaled .25thin;
+draw z1{up}..{right}z4..{down}z6--z56{down}..{right}z5;
+endchar;
+
+
+beginchar("e",.5em#,.5cap#,0); "The letter e";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=w-x3=curve_sidebar; x4=.7w;
+bot y2=0; top y3= h; y1=y4=.5h;
+draw z3{left}..{down}z1..{right}z2;
+draw z1--z4;
+endchar;
+
+beginchar(oct"015",.9em#,.5cap#,0); "The letter zz";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x7=w-x8=w-x4=curve_sidebar;
+x2=1/3[x1,x4]; x3=2/3[x1,x4];
+x5=w-x6=.4[x1,x2];
+bot y1=bot y4=0; top y7=top y8=h; y5=y2=y3=y6=.5h;
+draw z1{right}..{up}z2..{left}z7;
+draw z4{left}..{up}z3..{right}z8;
+draw z5--z6;
+endchar;
+
+beginchar(oct"016",.95em#,.5cap#,0); "The letter zz (drugi)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x7=w-x8=w-x4=curve_sidebar;
+x2=w-x3=.9*1/3[x1,x4];
+x5=w-x6=.4[x1,x2];
+bot y1=bot y4=0; top y7=top y8= h; y5=y2=y3=y6=.5h;
+draw z1{right}..{up}z2..{left}z7;
+draw z4{left}..{up}z3..{right}z8;
+draw z5--z6;
+z78=.5[z7,z8]; z14=.5[z1,z4];
+pickup pencircle xscaled .9thick yscaled .3thin;
+draw z78--z14;
+endchar;
+
+
+beginchar(oct"035",.7em#,.5cap#,0); "The letter zz (krizz)";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=x4=w-x3=w-x6=curve_sidebar;
+x2=x5=.5w;
+bot y1=bot y2=y3=0; top y4=top y5=top y6= h;
+draw z1--z6; draw z3--z4;
+pickup pencircle xscaled .9thick yscaled .3thin;
+draw z2--z5;
+endchar;
+
+
+
+
+
+beginchar("z",.6em#,.5cap#,.7cap#); "The letter z";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar; x4-x2=.1w;
+x3=.35w; x5=.25w;
+top y1=top y2= h; bot y3=0; y4=-.5d; y5=-d;
+draw z1--z2--z3{dir(10)}..{down}z4..tension1.3..{left}z5;
+endchar;
+
+beginchar("8",.55em#,.5cap#,0); "The letter dz";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=w-x6=curve_sidebar;
+x4=w-x3=.45w; x2=.6[x1,x3]; x5=.4[x4,x6];
+bot y5=0; top y2= h; y1=y3=h-(x2-x1);
+y4=y6=x5-x4;
+draw z1{up}..{right}z2..{down}z3..{down}z4..{right}z5..{up}z6;
+endchar;
+
+beginchar("j",.55em#,cap#,0); "The letter j (meki poluglas)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar; x3=x4=.5w;
+x7=.7w;
+bot y3=0; y1=y2=.25h; y4=.5h; y7=h;
+path p; p=z1{up}..tension1.2..{right}z7;
+draw p;
+z8=point .5 of p;
+z8-z5=z6-z8=(.25w,0);
+draw z5--z6;
+draw z1{up}..{right}z4..{down}z2..{left}z3..cycle;
+endchar;
+
+
+
+beginchar(oct"034",.8em#,cap#,0); "The letter dj,j,CH (crkvica)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar;
+x3=x4=.5w;x5=w-x6=.25w;
+top y4= h; bot y1=bot y2=0; y3=.5h; y5=y6=.75h;
+draw z3--z4; draw z5--z6;
+draw z1{up}..{right}z3..{down}z2;
+endchar;
+
+
+beginchar("i",.55em#,.5cap#,0); "The letter i";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+bot y2=bot y3=0; top y1=top y4= h;
+z5=.5[z1,z2]; z6=.5[z3,z4];
+draw z1--z2; draw z3--z4; draw z5--z6;
+endchar;
+
+
+beginchar("k",.8em#,.5cap#,0); "The letter k";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x2=w-x4=w-x6=curve_sidebar;
+x1=x3=.4w; x5=.6w;
+bot y1=bot y4=0; top y3=top y6= h; y2=y5=.5[y1,y3];
+draw z1{left}..{up}z2..{right}z3;
+draw z4{left}..{up}z5..{right}z6;
+endchar;
+
+beginchar("l",.65em#,.5cap#,0); "The letter l";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x3=curve_sidebar;
+x2=.4w; bot y1=bot y3=0; top y2= h;
+draw z1--z2--z3;
+endchar;
+
+
+beginchar("m",.9em#,.5cap#,0); "The letter m";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x5=curve_sidebar;
+x3=.5w; x2=.65[x1,x3]; x4=.5[x3,x5];
+bot y1=bot y3=bot y5=0;
+top y2=top y4= h;
+draw z1--z2--z3--z4--z5;
+endchar;
+
+
+beginchar("n",.5em#,cap#,0); "The letter drugi n";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+x5-x3=.2w;
+bot y1=0; y2=y3=.5h; y4=.8h; top y5= h;
+draw z1--z2--z3--z4{up}..{right}z5;
+endchar;
+
+beginchar("o",.6em#,.5cap#,0); "The letter drugi o";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar;
+x3=x4=.5w; bot y3=0; y1=y2=.5h; top y4= h;
+draw z1{up}..{right}z4..{down}z2..{left}z3..cycle;
+endchar;
+
+beginchar("p",.6em#,.5cap#,0); "The letter drugi p";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x3=w-x4=curve_sidebar;
+x1=x5=w-x2=w-x6=.25w;
+bot y1=bot y2=0; top y3=top y4=top y5=top y6=h;
+draw z1--z5; draw z2--z6; draw z3--z4;
+endchar;
+
+beginchar("r",.6em#,.5cap#,.5cap#); "The letter r";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x2=w-x3=curve_sidebar;
+x1=.3w;
+y1=-d; top y2= h; y3=.5h; bot y4=0;
+z4=whatever[z1,z2];
+draw z1--z2{right}..{down}z3..{left}z4;
+endchar;
+
+beginchar(oct"027",.65em#,.5cap#,.7cap#); "The letter drugi r";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar;
+x3=.4w; x4=.5w;
+bot y1=0; top y3= h; y2=.5h;
+y4=-d;
+draw z1{right}..{up}z2..{left}z3..{down}z1..{dir(-40)}z4;
+endchar;
+
+
+
+beginchar("s",.6em#,.5cap#,0); "The letter drugi s";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x2=w-x4=w-x5=curve_sidebar;
+x1=x3=.5w;
+bot y3=0; top y1=h; y2=.5h;y4=h-y5=.2h;
+draw z5{dir(90+30)}..z1{left}..{down}z2..{right}z3..{dir(90-30)}z4;
+endchar;
+
+beginchar("t",.8em#,.5cap#,0); "The letter drugi t";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar;
+x3=x7=w-x5=w-x8=.2w; x4=x6=.5w;
+top y1=top y7=top y6=top y8=top y2= h;
+bot y3=bot y4=bot y5=0;
+draw z1--z2; draw z3--z7; draw z4--z6; draw z5--z8;
+endchar;
+
+beginchar("h",.6em#,.5cap#,0); "The letter h";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+top y1=top y4= h; bot y2=bot y3=0;
+z5=.6[z3,z1];
+draw z1--z3; draw z2{dir(70)}..z5..z4;
+endchar;
+
+beginchar(oct"014",.8em#,.5cap#,0); "The letter ss";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x4=w-x5=curve_sidebar; x3=x6=.5w;
+y1=y5=h; y6=h; y2=y3=y4=0;
+draw z1--z2--z3--z4--z5; draw z3--z6;
+endchar;
+
+beginchar(oct"011",.8em#,.5cap#,.4cap#); "The letter sst";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x4=w-x5=curve_sidebar; x3=x6=.5w;
+y1=y5=h; y6=h; y2=y4=0; y3=-d;
+draw z1--z2--z4--z5; draw z3--z6;
+endchar;
+
+beginchar("c",.6em#,.5cap#,.2cap#); "The letter c";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x4=w-x5=w-x6=curve_sidebar;
+x3=.2[x1,x5];
+top y1=top y6= h; bot y3=bot y5=0; y2-y3=x3-x2; y4=-d;
+draw z1--z2{down}..{right}z3--z5; draw z4--z6;
+endchar;
+
+beginchar(oct"013",.65em#,.5cap#,0); "The letter cc";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x3=curve_sidebar;
+x2=.5[x1,x3];
+top y1=top y3= h; bot y2=0;
+draw z1--z2--z3;
+endchar;
+
+beginchar("u",.5em#,.5cap#,.4cap#); "The letter u";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=x5=w-x3=w-x6=curve_sidebar;
+x2=x4=.5w;
+y2=.2h; y1=y6=top h; y4=-d; y5=y3=.5[y4,y2];
+path p; p= z1{down}..z2..{down}z3..{left}z4..{up}z5..z2..{up}z6;
+transform tt; tt=identity shifted (0,d+bot0);
+path q; q= p transformed tt;
+draw q;
+endchar;
+
+beginchar("f",.66em#,.8cap#,.3cap#); "The letter f";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x5=w-x6=curve_sidebar;
+x2=x4=x3=x1=.5w;
+y1=h; y3=.5h/.8; y5=y6=.25h/.8;
+y4=0; y2=-d;
+draw z1--z2; draw z5{up}..{right}z3..{down}z6..{left}z4..cycle;
+endchar;
+
+beginchar("q",.9em#,.5cap#,0); "The letter ot";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x2=w-x6=curve_sidebar;
+x4=.5w; x1=w-x7=.25w; x3=.5[x2,x4]; x5=.5[x4,x6];
+top y1=top y7=h; bot y3=bot y5=0; y2=y6=y4=.5h;
+draw z1{dir(180+30)}..{down}z2..{right}z3..{up}z4{down}..{right}z5
+..{up}z6..{dir(180-30)}z7;
+endchar;
+
+
+beginchar("6",.6em#,cap#,0); "The letter 6 (meki poluglas)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=0; w-x5=curve_sidebar; x3=x2=x4=1.3curve_sidebar;
+bot y3=0; top y1=top y2= h; y4=.5h; y5=.25h;
+draw z1--z2--z3{right}..{up}z5..{left}z4;
+endchar;
+
+beginchar("7",.66em#,cap#,0); "The letter 7 (tvrdi poluglas)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x5=x7=.5curve_sidebar;
+ w-x4=curve_sidebar;
+x3=x2=x1=.34w;
+x6-x1=x8-x1=x1-x5;
+y1= h; y2=.5h; bot y3=0; y4=.25h;
+y5=y6=.77h;
+y7=y8=.65h;
+ draw z1--z3{right}..{up}z4..{left}z2;
+pickup pencircle xscaled thick yscaled .3thin;
+draw z7--z5--z6--z8;
+endchar;
+
+beginchar(oct"031",.85em#,.5cap#,0); "The letter ju";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=x3=w-x6=curve_sidebar;
+x4=.47w; x5=x7=.5[x4,x6];
+top y1=top y7=h; y4=y3=y6=.5h; bot y2=bot y5= 0;
+draw z1--z2; draw z3--z4; draw z4{down}..{right}z5..{up}z6..{left}z7..cycle;
+endchar;
+
+beginchar(oct"032",.7em#,.5cap#,0); "The letter je";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=x3=w-x6=curve_sidebar;
+x4=.55w; x5=x7=x6;
+top y1=top y7= h; y4=y3=y6=.5h; bot y2=bot y5= 0;
+draw z1--z2; draw z3--z6;
+draw z7{left}..{down}z4..{right}z5;
+endchar;
+
+beginchar(oct"033",.55em#,.5cap#,0); "The letter ja";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+bot y2=bot y3=0; top y1=top y4= h;
+z5=.5[z1,z2]; z6=.5[z3,z4];
+z7=(.5w,y5); z8=(x3,0); z9=.5[z7,z8];
+draw z1--z2; draw z3--z4; draw z5--z6;
+pickup pencircle xscaled .8thick yscaled .2thin;
+draw z7{down}..z9..{down}z8;
+endchar;
+
+
+beginchar("x",.55em#,.5cap#,0); "x,fiktivni";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+draw (0,0)--(0,w);
+endchar;
+
+beginchar("y",.55em#,.5cap#,0); "y, fiktivni";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+draw (0,0)--(0,w);
+endchar;
+
+beginchar("4",1.2em#,cap#,0); "d (kut)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+kut:=40; koef:=.6;
+x1=w-x2=curve_sidebar;
+y1=y2=0;
+y4=0; x4=koef*w;
+z3-z1=(z2-z1)rotated 40; % z3
+z5=koef[z1,z3];
+draw z2--z1--z3;
+draw z4{up}..{dir (90+kut)}z5;
+endchar;
+
+beginchar("1",.8em#,cap#,0); "dj,j,CH (crkvica, pravocrtna)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar;
+x3=x4=.5w;x5=w-x6=.25w;
+top y4= h; bot y1=bot y2=0; y3=.5h; y5=y6=.75h;
+draw z3--z4; draw z5--z6;
+draw z1--z3--z2;
+endchar;
+
diff --git a/language/croatian/fonts/mf/crocyrv.mf b/language/croatian/fonts/mf/crocyrv.mf
new file mode 100644
index 0000000000..49d75009da
--- /dev/null
+++ b/language/croatian/fonts/mf/crocyrv.mf
@@ -0,0 +1,426 @@
+% oct"043" = Dd,J,CH (crkvica)
+% oct"100" = drugi D
+% oct"025" = Zz
+% oct"017" = Zz (drugi Zz)
+% oct"000" = Zx (krizz)
+% oct"036" = Zz (glagoljski)
+% oct"020" = drugi R (zaobljeni)
+% oct"001" = Yu
+% oct"002" = Ye
+% oct"003" = Ya
+% ^ = meki poluglas
+% & = tvrdi poluglas
+% 9 = Dz
+% 2 = Dd,J,Ch (pravocrtna crkvica)
+% 5 = D (kut)
+
+beginchar("A",.6em#,1.2cap#,.7cap#); "The letter A";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x7=w-x5=w-x2=w-x3=curve_sidebar;
+x2-x1=x4-x3=.2w; x6=x8=.5[x7,x5];
+y1=-d; y4=h; bot y6=0; y8=.5h/1.2; y7=y5=.5[y6,y8];
+y2=-.7d; y3=.8h;
+draw z1{dir(20)}..{up}z2--z3{up}..{dir(20)}z4;
+draw z5{down}..{left}z6..{up}z7..{right}z8;
+endchar;
+
+beginchar("B",.55em#,1.2cap#,0); "The letter B";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x6=x3=w-x5=curve_sidebar;
+x1=w; x2=.65w;
+x4=x7=.5w;
+bot y4=0; top y2= h; y1=.8h;
+y3=.5h/1.2;
+y6=y5=.25h/1.2;
+y7=.5h/1.2;
+draw z1{up}
+%{dir(90+15)}
+..{left}z2..
+{down}z3..{down}z6..{right}z4..{up}z5..{left}z7;
+pickup pencircle xscaled .3thick yscaled .3thin;
+draw z7{left}..{down}z6;
+endchar;
+
+
+beginchar("V",.7em#,.5cap#,0); "The letter V";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x5=w-x4=w-x8=curve_sidebar;
+x2=x6=w-x3=w-x7=.25w;
+top y1=top y2=top y3=top y4=h;
+bot y5=bot y6=bot y7=bot y8=0;
+draw z1--z4; draw z5--z8;
+draw z2--z6; draw z3--z7;
+endchar;
+
+beginchar("G",.8em#,.5cap#,.5cap#); "The letter G";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=0; w-x6=curve_sidebar;
+x2=.2w; x3=x4=.6w; x5=.5[x4,x6];
+y1=-d; top y2=top y3= h; bot y5=0; y4=y6=x6-x5;
+draw z1{dir angle(z3-z1)}..{up}z2--z3--z4{down}..{right}z5..{up}z6;
+endchar;
+
+beginchar("D",.65em#,.5cap#,0); "The letter D (kao A)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x5=x1=w-x3=w-x4=curve_sidebar;
+x2=.5w;
+bot y1=bot y4=0; y5=y3=.2h; top y2= h;
+draw z1--z5{up}..{right}z2..{down}z3--z4;
+draw z5--z3;
+endchar;
+
+beginchar(oct"100",.55em#,1.2cap#,.7cap#); "The letter drugi D";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x5=curve_sidebar; x5-x6=.1w;
+x2=x3=.3w; x4=.5w;
+bot y1=bot y5=0; y2=-d; y3=h; y4=.5h/1.2; y6=.5y4;
+z56=(x6,.5y6);
+draw z2{dir(90+10)}..{up}z1..{dir(90-10)}z3;
+pickup pencircle xscaled 1.2thick yscaled .25thin;
+draw z1{up}..{right}z4..{down}z6--z56{down}..{right}z5;
+endchar;
+
+
+beginchar("E",.5em#,.5cap#,0); "The letter E";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=w-x3=curve_sidebar; x4=.7w;
+bot y2=0; top y3= h; y1=y4=.5h;
+draw z3{left}..{down}z1..{right}z2;
+draw z1--z4;
+endchar;
+
+beginchar(oct"025",.9em#,.5cap#,0); "The letter Zz";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x7=w-x8=w-x4=curve_sidebar;
+x2=1/3[x1,x4]; x3=2/3[x1,x4];
+x5=w-x6=.4[x1,x2];
+bot y1=bot y4=0; top y7=top y8= h; y5=y2=y3=y6=.5h;
+draw z1{right}..{up}z2..{left}z7;
+draw z4{left}..{up}z3..{right}z8;
+draw z5--z6;
+endchar;
+
+beginchar(oct"017",.95em#,.5cap#,0); "The letter zz (drugi)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x7=w-x8=w-x4=curve_sidebar;
+x2=w-x3=.9*1/3[x1,x4];
+x5=w-x6=.4[x1,x2];
+bot y1=bot y4=0; top y7=top y8= h; y5=y2=y3=y6=.5h;
+draw z1{right}..{up}z2..{left}z7;
+draw z4{left}..{up}z3..{right}z8;
+draw z5--z6;
+z78=.5[z7,z8]; z14=.5[z1,z4];
+pickup pencircle xscaled .9thick yscaled .3thin;
+draw z78--z14;
+endchar;
+
+
+beginchar(oct"000",.7em#,.5cap#,0); "The letter Zz, Zx (krizz)";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=x4=w-x3=w-x6=curve_sidebar;
+x2=x5=.5w;
+bot y1=bot y2=bot y3=0; top y4=top y5=top y6= h;
+draw z1--z6; draw z3--z4;
+pickup pencircle xscaled .9thick yscaled .3thin;
+draw z2--z5;
+endchar;
+
+beginchar(oct"036",em#,cap#,0); "The letter zz (glagoljski)";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x5=curve_sidebar; x2=.5w; x3=.4w; x4=x1=.4[x5,x3];
+y1= h; bot y4=0; y2=.5h; y5=y3=.25h;
+draw z2{left}..z5{down}..{right}z4..{up}z3..{dir(90+60)}z1;
+transform t; t=identity reflectedabout ((.5w,0),z2);
+addto currentpicture also currentpicture transformed t;
+endchar;
+
+
+
+
+beginchar("Z",.6em#,.5cap#,.7cap#); "The letter Z";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar; x4-x2=.1w;
+x3=.35w; x5=.25w;
+top y1=top y2= h; bot y3=0; y4=-.5d; y5=-d;
+draw z1--z2--z3{dir(10)}..{down}z4..tension1.3..{left}z5;
+endchar;
+
+beginchar("9",.55em#,.5cap#,0); "The letter Dz";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=w-x6=curve_sidebar;
+x4=w-x3=.45w; x2=.6[x1,x3]; x5=.4[x4,x6];
+bot y5=0; top y2= h; y1=y3=h-(x2-x1);
+y4=y6=x5-x4;
+draw z1{up}..{right}z2..{down}z3..{down}z4..{right}z5..{up}z6;
+endchar;
+
+beginchar("J",.55em#,cap#,0); "The letter J (meki poluglas)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar; x3=x4=.5w;
+x7=.7w;
+bot y3=0; y1=y2=.25h; y4=.5h; y7=h;
+path p; p=z1{up}..tension1.2..{right}z7;
+draw p;
+z8=point .5 of p;
+z8-z5=z6-z8=(.25w,0);
+draw z5--z6;
+draw z1{up}..{right}z4..{down}z2..{left}z3..cycle;
+endchar;
+
+
+
+beginchar(oct"043",.8em#,cap#,0); "The letter DD,J,CH (crkvica)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar;
+x3=x4=.5w;x5=w-x6=.25w;
+top y4= h; bot y1=bot y2=0; y3=.5h; y5=y6=.75h;
+draw z3--z4; draw z5--z6;
+draw z1{up}..{right}z3..{down}z2;
+endchar;
+
+
+beginchar("I",.55em#,.5cap#,0); "The letter I";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+bot y2=bot y3=0; top y1=top y4= h;
+z5=.5[z1,z2]; z6=.5[z3,z4];
+draw z1--z2; draw z3--z4; draw z5--z6;
+endchar;
+
+
+beginchar("K",.8em#,.5cap#,0); "The letter K";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x2=w-x4=w-x6=curve_sidebar;
+x1=x3=.4w; x5=.6w;
+bot y1=bot y4=0; top y3=top y6= h; y2=y5=.5[y1,y3];
+draw z1{left}..{up}z2..{right}z3;
+draw z4{left}..{up}z5..{right}z6;
+endchar;
+
+beginchar("L",.65em#,.5cap#,0); "The letter L";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x3=curve_sidebar;
+x2=.4w; bot y1=bot y3=0; top y2= h;
+draw z1--z2--z3;
+endchar;
+
+
+beginchar("M",.9em#,.5cap#,0); "The letter M";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x5=curve_sidebar;
+x3=.5w; x2=.65[x1,x3]; x4=.5[x3,x5];
+bot y1=bot y3=bot y5=0;
+top y2=top y4=h;
+draw z1--z2--z3--z4--z5;
+endchar;
+
+
+beginchar("N",.5em#,cap#,0); "The letter drugi N";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+x5-x3=.2w;
+bot y1=0; y2=y3=.5h; y4=.8h; top y5= h;
+draw z1--z2--z3--z4{up}..{right}z5;
+endchar;
+
+beginchar("O",.6em#,.5cap#,0); "The letter drugi O";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar;
+x3=x4=.5w; bot y3=0; y1=y2=.5h; top y4= h;
+draw z1{up}..{right}z4..{down}z2..{left}z3..cycle;
+endchar;
+
+beginchar("P",.6em#,.5cap#,0); "The letter drugi P";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x3=w-x4=curve_sidebar;
+x1=x5=w-x2=w-x6=.25w;
+bot y1=bot y2=0; top y3=top y4=top y5=top y6=h;
+draw z1--z5; draw z2--z6; draw z3--z4;
+endchar;
+
+beginchar("R",.6em#,.5cap#,.5cap#); "The letter R";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x2=w-x3=curve_sidebar;
+x1=.3w;
+y1=-d; top y2= h; y3=.5h; bot y4=0;
+z4=whatever[z1,z2];
+draw z1--z2{right}..{down}z3..{left}z4;
+endchar;
+
+beginchar(oct"020",.65em#,.5cap#,.7cap#); "The letter drugi r";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar;
+x3=.4w; x4=.5w;
+bot y1=0; top y3=h; y2=.5h;
+y4=-d;
+draw z1{right}..{up}z2..{left}z3..{down}z1..{dir(-40)}z4;
+endchar;
+
+
+
+beginchar("S",.6em#,.5cap#,0); "The letter drugi S";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x2=w-x4=w-x5=curve_sidebar;
+x1=x3=.5w;
+bot y3=0; top y1=h; y2=.5h;y4=h-y5=.2h;
+draw z5{dir(90+30)}..z1{left}..{down}z2..{right}z3..{dir(90-30)}z4;
+endchar;
+
+beginchar("T",.8em#,.5cap#,0); "The letter drugi T";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar;
+x3=x7=w-x5=w-x8=.2w; x4=x6=.5w;
+top y1=top y7=top y6=top y8=top y2= h;
+bot y3=bot y4=bot y5=0;
+draw z1--z2; draw z3--z7; draw z4--z6; draw z5--z8;
+endchar;
+
+beginchar("H",.6em#,.5cap#,0); "The letter H";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+top y1=top y4=h; bot y2=bot y3=0;
+z5=.6[z3,z1];
+draw z1--z3; draw z2{dir(70)}..z5..z4;
+endchar;
+
+beginchar(oct"024",.8em#,.5cap#,0); "The letter Ss";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x4=w-x5=curve_sidebar; x3=x6=.5w;
+y1=y5=h; y6=h; y2=y3=y4=0;
+draw z1--z2--z3--z4--z5; draw z3--z6;
+endchar;
+
+beginchar(oct"021",.8em#,.5cap#,.4cap#); "The letter Sst, Ch";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x4=w-x5=curve_sidebar; x3=x6=.5w;
+y1=y5=h; y6=h; y2=y4=0; y3=-d;
+draw z1--z2--z4--z5; draw z3--z6;
+endchar;
+
+beginchar("C",.6em#,.5cap#,.2cap#); "The letter C";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x4=w-x5=w-x6=curve_sidebar;
+x3=.2[x1,x5];
+top y1=top y6= h; bot y3=bot y5=0; y2-y3=x3-x2; y4=-d;
+draw z1--z2{down}..{right}z3--z5; draw z4--z6;
+endchar;
+
+beginchar(oct"023",.65em#,.5cap#,0); "The letter Cc";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x3=curve_sidebar;
+x2=.5[x1,x3];
+top y1=top y3= h; bot y2=0;
+draw z1--z2--z3;
+endchar;
+
+beginchar("U",.5em#,.5cap#,.4cap#); "The letter U";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=x5=w-x3=w-x6=curve_sidebar;
+x2=x4=.5w;
+y2=.2h; top y1=top y6= h; y4=-d; y5=y3=.5[y4,y2];
+path p; p= z1{down}..z2..{down}z3..{left}z4..{up}z5..z2..{up}z6;
+transform tt; tt=identity shifted (0,d+bot0);
+path q; q= p transformed tt;
+draw q;
+endchar;
+
+beginchar("F",.66em#,.8cap#,.3cap#); "The letter F";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x5=w-x6=curve_sidebar;
+x2=x4=x3=x1=.5w;
+y1=h; y3=.5h/.8; y5=y6=.25h/.8;
+y4=0; y2=-d;
+draw z1--z2; draw z5{up}..{right}z3..{down}z6..{left}z4..cycle;
+endchar;
+
+beginchar("Q",.9em#,.5cap#,0); "The letter Ot";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x2=w-x6=curve_sidebar;
+x4=.5w; x1=w-x7=.25w; x3=.5[x2,x4]; x5=.5[x4,x6];
+top y1=top y7= h; bot y3=bot y5=0; y2=y6=y4=.5h;
+draw z1{dir(180+30)}..{down}z2..{right}z3..{up}z4{down}..{right}z5
+..{up}z6..{dir(180-30)}z7;
+endchar;
+
+
+beginchar("^",.6em#,cap#,0); "The letter 6 (meki poluglas)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=0; w-x5=curve_sidebar; x3=x2=x4=1.3curve_sidebar;
+bot y3=0; top y1=top y2= h; y4=.5h; y5=.25h;
+draw z1--z2--z3{right}..{up}z5..{left}z4;
+endchar;
+
+beginchar("&",.66em#,cap#,0); "The letter 7 (tvrdi poluglas)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x5=x7=.5curve_sidebar;
+ w-x4=curve_sidebar;
+x3=x2=x1=.34w;
+x6-x1=x8-x1=x1-x5;
+y1= h; y2=.5h; bot y3=0; y4=.25h;
+y5=y6=.77h;
+y7=y8=.65h;
+ draw z1--z3{right}..{up}z4..{left}z2;
+pickup pencircle xscaled thick yscaled .3thin;
+draw z7--z5--z6--z8;
+endchar;
+
+beginchar(oct"001",.85em#,.5cap#,0); "The letter Ju";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=x3=w-x6=curve_sidebar;
+x4=.47w; x5=x7=.5[x4,x6];
+top y1=top y7= h; y4=y3=y6=.5h; bot y2=bot y5= 0;
+draw z1--z2; draw z3--z4; draw z4{down}..{right}z5..{up}z6..{left}z7..cycle;
+endchar;
+
+beginchar(oct"002",.7em#,.5cap#,0); "The letter Je";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=x3=w-x6=curve_sidebar;
+x4=.55w; x5=x7=x6;
+top y1=top y7= h; y4=y3=y6=.5h; bot y2=bot y5= 0;
+draw z1--z2; draw z3--z6;
+draw z7{left}..{down}z4..{right}z5;
+endchar;
+
+beginchar(oct"003",.55em#,.5cap#,0); "The letter Ja";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+bot y2=bot y3=0; top y1=top y4= h;
+z5=.5[z1,z2]; z6=.5[z3,z4];
+z7=(.5w,y5); z8=(x3,0); z9=.5[z7,z8];
+draw z1--z2; draw z3--z4; draw z5--z6;
+pickup pencircle xscaled .8thick yscaled .2thin;
+draw z7{down}..z9..{down}z8;
+endchar;
+
+
+beginchar("X",.55em#,.5cap#,0); "The letter X, fiktivni";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+draw (0,0)--(0,w);
+endchar;
+
+beginchar("Y",.55em#,.5cap#,0); "The letter Y, fiktivni";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+draw (0,0)--(0,w);
+endchar;
+
+beginchar("5",1.2em#,cap#,0); "d (kut)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+kut:=40; koef:=.6;
+x1=w-x2=curve_sidebar;
+y1=y2=0;
+y4=0; x4=koef*w;
+z3-z1=(z2-z1)rotated 40; % z3
+z5=koef[z1,z3];
+draw z2--z1--z3;
+draw z4{up}..{dir (90+kut)}z5;
+endchar;
+
+beginchar("2",.8em#,cap#,0); "dj,j,CH (crkvica, pravocrtno)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar;
+x3=x4=.5w;x5=w-x6=.25w;
+top y4= h; bot y1=bot y2=0; y3=.5h; y5=y6=.75h;
+draw z3--z4; draw z5--z6;
+draw z1--z3--z2;
+endchar;
+
diff --git a/language/croatian/fonts/mf/gg.mf b/language/croatian/fonts/mf/gg.mf
new file mode 100644
index 0000000000..cd32ae06d6
--- /dev/null
+++ b/language/croatian/fonts/mf/gg.mf
@@ -0,0 +1,31 @@
+
+% Croatian Glagolitic
+% L I G A T U R E S, 1992, darko.zubrinic@etf.hr
+
+
+mode_setup;
+ u#:=.8pt#; font_quad= 30u#;
+ font_normal_space= 10u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=10pt#; cap#:=7pt#;
+ thin#:=2/3pt#; thick#:=5/6pt#;
+ o#:=1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:=1/10em;
+
+
+
+
+input i % fajl sa ligaturama
+
+
+
+\baselineksip=6truemm;
+
+end.
+
+
+
+
diff --git a/language/croatian/fonts/mf/gg10.mf b/language/croatian/fonts/mf/gg10.mf
new file mode 100644
index 0000000000..1380c4190b
--- /dev/null
+++ b/language/croatian/fonts/mf/gg10.mf
@@ -0,0 +1,40 @@
+
+% Croatian Glagolitic
+% L I G A T U R E S, darko.zubrinic@etf.hr
+
+
+mode_setup;
+ u#:=.8pt#; font_quad= 30u#;
+ font_normal_space= 10u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=10pt#; cap#:=7pt#;
+ thin#:=2/3pt#; thick#:=5/6pt#;
+ o#:=1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:=1/10em;
+
+
+
+
+mode_setup;
+u#:=3/4u#;
+em#:=3/4em#; cap#:=3/4cap#;
+ thick#:=3/4thick#;
+o#:=3/4o#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+%curve_sidebar:=3/4curve_sidebar;
+
+
+
+
+input i % fajl sa ligaturama
+
+
+end.
+
+
+
+
diff --git a/language/croatian/fonts/mf/ggv.mf b/language/croatian/fonts/mf/ggv.mf
new file mode 100644
index 0000000000..14d85a05cf
--- /dev/null
+++ b/language/croatian/fonts/mf/ggv.mf
@@ -0,0 +1,29 @@
+
+% Croatian Glagolitic
+% L I G A T U R E S, darko.zubrinic@etf.hr
+
+
+mode_setup;
+ u#:=4/3*.8pt#; font_quad= 30u#;
+ font_normal_space= 10u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=4/3*10pt#; cap#:=4/3*7pt#;
+ thin#:=2/3pt#; thick#:=1.15*5/6pt#;
+ o#:=4/3*1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:=4/3*1/10em;
+
+
+
+
+input i % fajl sa ligaturama
+
+
+end.
+
+
+
+
+
diff --git a/language/croatian/fonts/mf/ggv1.mf b/language/croatian/fonts/mf/ggv1.mf
new file mode 100644
index 0000000000..3e244f674c
--- /dev/null
+++ b/language/croatian/fonts/mf/ggv1.mf
@@ -0,0 +1,26 @@
+
+% Croatian Glagolitic, remaining ligatures
+% darko.zubrinic@etf.hr
+
+
+
+mode_setup;
+ u#:=4/3*.8pt#; font_quad= 30u#;
+ font_normal_space= 10u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=4/3*10pt#; cap#:=4/3*7pt#;
+ thin#:=2/3pt#; thick#:=1.15*5/6pt#;
+ o#:=4/3*1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:=4/3*1/10em;
+
+
+
+
+input kraj % fajl sa ligaturama
+
+
+end.
+
diff --git a/language/croatian/fonts/mf/glz.mf b/language/croatian/fonts/mf/glz.mf
new file mode 100644
index 0000000000..b03a7ea390
--- /dev/null
+++ b/language/croatian/fonts/mf/glz.mf
@@ -0,0 +1,183 @@
+
+thick:=1.6thick;
+
+
+
+
+
+beginchar(".",.4em#,cap#,0); "The symbol .";
+pickup pencircle scaled thick ;
+z1=(.5w,.5thick); % z2=(.3w,0); z3=(.3w,.1w); z4=(.2w,.1w);
+drawdot z1;
+%fill z1--z2--z3--z4--cycle;
+endchar;
+
+
+
+
+
+beginchar(",",.4em#,cap#,0); "The symbol ,";
+pickup pencircle scaled thick ;
+z1=(.3w,0); z2=(.3w+.8thick,0);
+z3=(.3w+.8thick,.1w+.8thick); z4=(.3w,.1w+.8thick);
+fill z1--z2--z3--z4--cycle;
+z5=(.3w,-.3w); z6=.5[z1,z2];
+fill z6--z2{down}..{dir70}z5{dir70}..{up}z6..cycle;
+picture zarez; zarez=currentpicture;
+endchar;
+
+
+
+beginchar(";",.4em#,cap#,0); "The symbol ;";
+pickup pencircle scaled thick ;
+transform t; t=identity;
+addto currentpicture also zarez transformed t;
+z3=(.3w+.8thick,.1w+.8thick); z4=(.3w,.1w+.8thick);
+z7=.5[z3,z4]+(0,.2h);
+drawdot z7;
+endchar;
+
+
+beginchar("`",.4em#,cap#,0); "The symbol `";
+transform t;
+t=identity shifted (0,h);
+transform s; s=identity reflectedabout ((.5w,0),(.5w,h));
+transform u;
+u= (identity transformed t) transformed s; % kompozicija funkcija
+addto currentpicture also zarez transformed u;
+endchar;
+
+
+
+
+beginchar("'",.4em#,cap#,0); "The symbol '";
+transform t;
+t=identity shifted (0,h);
+addto currentpicture also zarez transformed t;
+endchar;
+
+
+
+
+beginchar("!",.4em#,cap#,0); "The symbol !";
+h:=4/3h;
+smoothing:=2;
+pickup pencircle scaled thick ;
+z1=(.5w,.5thick); z2=(.5w,.3h); z3=(.5w,h);
+penpos2(.4thick,0); penpos3(thick,0);
+drawdot z1;
+penstroke z2e--z3e;
+endchar;
+
+
+beginchar("?",.8em#,cap#,0); "The symbol ?";
+h:=4/3h;
+pickup pencircle scaled thick ;
+penpos5(.6thick,150);
+penpos4(.8thick,90); penpos3(.8thick,0);
+penpos2(.7thick,-20); penpos1(.6thick,0);
+z0=(.5w,.5thick);
+x1=x2=x4=.5w;
+y4=h;
+y1=.25h;
+y2=.4h;
+y4-y5=y4-y3=.2h;
+x5=w-x3=curve_sidebar;
+penstroke z1e--z2e{up}..z3e{up}..{left}z4e..z5e{dir(180+60)};
+drawdot z0;
+endchar;
+
+
+
+beginchar(":",.4em#,cap#,0); "The symbol :";
+pickup pencircle scaled thick ;
+x1=x2=.5w; y1=.5thick; y2=.7h;
+drawdot z1;
+drawdot z2;
+endchar;
+
+
+beginchar("-",.5em#,cap#,0); "The symbol -";
+pickup pencircle scaled .5thick ;
+x1=w-x2=curve_sidebar; y1= y2=.5h;
+draw z1-- z2;
+endchar;
+
+
+beginchar(oct"173",.8em#,cap#,0); "The symbol --";
+pickup pencircle scaled .4thick ;
+x1=w-x2=curve_sidebar; y1= y2=.5h;
+draw z1-- z2;
+picture crtica; crtica=currentpicture;
+endchar;
+
+
+
+beginchar("+",.8em#,cap#,0); "The symbol +";
+a:=.5w; b:=.5h;
+transform t; transform s;
+t:=identity rotatedaround ((a,b),90);
+s:= identity;
+addto currentpicture also crtica transformed t;
+addto currentpicture also crtica transformed s;
+endchar;
+
+
+
+beginchar("=",.8em#,cap#,0); "The symbol =";
+transform t; transform s;
+t=identity shifted (0,.1h);
+s=identity shifted (0,-.1h);
+addto currentpicture also crtica transformed t;
+addto currentpicture also crtica transformed s;
+endchar;
+
+
+
+beginchar("(",.5em#,cap#,0); "The symbol (";
+x1=x3=w-curve_sidebar;
+y1=-.3h; y3=h+.3h;
+y2=.5(y1+y3);
+x2=curve_sidebar;
+ penpos3(.1thick,-30); penpos2(.8thick,0);
+ penpos1(.1thick,30);
+penstroke z1e{curl1}..z2e..{curl1}z3e;
+picture lijevaz; lijevaz=currentpicture;
+endchar;
+
+
+
+beginchar(")",.5em#,cap#,0); "The symbol )";
+transform t;
+t= identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also lijevaz transformed t;
+endchar;
+
+
+
+
+beginchar("*",.6em#,cap#,0); "Kvadraticc *";
+%pickup pencircle scaled .2thick;
+.5w-x1=x2-.5w=thick; y1=y2=.5h;
+.5h-y3=y4-.5h=thick; x3=x4=.5w;
+fill z1--z3--z2--z4--cycle;
+endchar;
+
+
+
+
+
+
+%beginchar(oct"174",.9em#,cap#,0); "The symbol ---";
+%pickup pencircle scaled .7thick ;
+%%h:=3/4h;
+%x1=w-x2=curve_sidebar; y1= y2=.5h;
+%draw z1-- z2;
+%endchar;
+
+
+
+
+
+
+
diff --git a/language/croatian/fonts/mf/hcyr.mf b/language/croatian/fonts/mf/hcyr.mf
new file mode 100644
index 0000000000..a4c2dfeadc
--- /dev/null
+++ b/language/croatian/fonts/mf/hcyr.mf
@@ -0,0 +1,70 @@
+
+% Croatian Cyrillic, 1995, darko.zubrinic@etf.hr
+
+
+mode_setup;
+ u#:=4/3*.8pt#; font_quad= 30u#;
+ font_normal_space= 10u#; %umjesto 8
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=4/3*10pt#; cap#:=4/3*7pt#;
+ thin#:=2/3pt#; thick#:=1.15*5/6pt#;
+ o#:=4/3*1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:= round 1.1*1/10em;
+input crocyrv % velika slova
+
+mode_setup;
+u#:=3/4u#;
+em#:=3/4em#; cap#:=3/4cap#;
+ thick#:=1/1.15thick#;
+o#:=3/4o#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+%curve_sidebar:=3/4curve_sidebar;
+
+input crocyrm
+
+input glz % znakovi
+
+
+
+
+
+ligtable "c": "c" =: oct"013", "h" =: oct"011";
+ligtable "s": "s" =: oct"014"; %umjesto sh
+ligtable "z": "h" =: oct"015", "z" =: oct"015", "x" =: oct"035"; % "o" kern -.5u#,
+ % "u" kern -.5u#;
+ligtable "d": "d" =: oct"034"; % "d" =: oct"012";
+ligtable "y": "u" =: oct"031", "e" =: oct"032", "a" =: oct"033";
+ligtable "-": "-" =: oct"173";
+%ligtable "e": "i" kern -.5u#;
+%ligtable "f": "o" kern -u#, "u" kern -u#, "i" kern -.5u#, "g" kern-.5u#;
+%ligtable "i": "f" kern -.5u#;
+%ligtable "r": "k" kern -.5u#;
+%ligtable "n": "a" kern -.5u#;
+%ligtable "j": "a" kern -.5u#;
+
+u#:=4/3u#;
+
+
+ligtable "C": "c" =: oct"023", "C" =: oct"023", "h" =: oct"021", "H" =: oct"021";
+ligtable "S": "s" =: oct"024", "S" =: oct"024"; %umjesto sh
+ligtable "Z": "Z" =: oct"025",
+ "z" =: oct"025", "x" =: oct"000", "X" =: oct"000"; % "o" kern -.5u#,
+ % "u" kern -.5u#;
+ligtable "D": "d" =: oct"043", "D" =: oct"043"; % "d" =: oct"012";
+ligtable "Y": "u" =: oct"001", "U" =: oct"001",
+ "e" =: oct"002", "E" =: oct"002",
+ "a" =: oct"003", "A" =: oct"003";
+%ligtable "-": "-" =: oct"173";
+%ligtable "e": "i" kern -.5u#;
+%ligtable "f": "o" kern -u#, "u" kern -u#, "i" kern -.5u#, "g" kern-.5u#;
+%ligtable "i": "f" kern -.5u#;
+%ligtable "r": "k" kern -.5u#;
+%ligtable "n": "a" kern -.5u#;
+%ligtable "j": "a" kern -.5u#;
+
+
+end.
diff --git a/language/croatian/fonts/mf/i.mf b/language/croatian/fonts/mf/i.mf
new file mode 100644
index 0000000000..ea9b0de258
--- /dev/null
+++ b/language/croatian/fonts/mf/i.mf
@@ -0,0 +1,1456 @@
+
+
+beginchar(oct"000",.9em#,cap#,0); "The letter jaje";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autorounding:=10;
+smoothing:=10;
+x1=w- x2=w-x3=good.x curve_sidebar; x6=x7=.2w; x9=.2[x7,x8];
+x10=x5=.5[x6,x3];
+x4=x8=good.x .67w; y1=y10=y2=0; y6=y5=y3=y4=good.y .53h; y7=y9=y8=good.y h;
+z23=.2[z2,z3]; z84=.8[z8,z4];
+draw z7--z6{down}..z1--z2--z23{up}..controls z3..{left}z4--z6;
+draw z10--z5; draw z7--z9..controls z8..z84--z4;
+endchar;
+
+
+
+beginchar(oct"001",.9em#,cap#,0); "The letter ju";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x6=w- x3=w-x4=good.x curve_sidebar; x2=x5=.5w;
+y6=y5=y4=h; y3=.2h; y1=-.1h; y2=.5[y1,y3]; x0=-.2w;
+z0=whatever[z1,z3];
+draw z0--z3--z4--z6--z1; draw z2--z5;
+endchar;
+
+
+
+beginchar(oct"002",1.6em#,4/3cap#,0); "The letter ml";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x9=x20=w- x13=w-x14=good.x curve_sidebar;
+y9=.5*3/4h;
+y9=y10=y11=y12=y13;
+z10-z9=z11-z10=z12-z11=z13-z12;
+y1=y2=y5=y6=good.y 0;
+x1=w-x6; x2-x1=x6-x5;
+ x1=.5[x9,x10]; x5=.5[x11,x12];
+z4=.5[z9,z10];
+z3=.5[z10,z11]; z7=.5[z11,z12]; z8=.5[z12,z13];
+z20-z9=z19-z10=z17-z11=z15-z12=z14-z13=(0,3/4h-y9);
+z21-z18=z22-z16;
+z18=.5[z19,z17]; z16=.5[z17,z15]; y21=good.y h;
+x18=x21;
+draw z4--z1--z2--z3; draw z7--z5--z6--z8;
+draw z9--z13--z14--z20--cycle; draw z10--z19; draw z11--z17; draw z12--z15;
+draw z18--z21--z22--z16;
+endchar;
+
+
+
+beginchar(oct"003",em#,4/3cap#,0); "The letter ili";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=5;
+smoothing:=4;
+x1=x7=w-x4=w-x10=good.x curve_sidebar;
+y1=y2=y3=y4=good.y 0;
+z2-z1=z3-z2=z4-z3=z8-z7=z9-z8=z10-z9=z11-z12;
+ y7=good.y 3/4h; x2=x12; y12=good.y h;
+ z12=.2[z13,z11];
+ z5=.5[.5[z1,z2],.5[z7,z8]]; y5=y6; x5=w-x6;
+z.11=.35[z1,z7];
+z.11-z1=z22-z2=z33-z3=z44-z4=z7-z77=z8-z88=z9-z99=z10-z1010;
+kut:=30;
+draw z13--z11--z9{down}..controls z99..z6{dir-kut}..
+controls z44..{down}z4--z3{up}..controls z33..z6{dir kut}..controls z1010..
+{up}z10--z7{down}..controls z77..z5{dir-kut}..controls z22..{down}z2--
+z1{up}..controls z.11..z5{dir kut}..controls z88..{up}z8--z12;
+endchar;
+
+
+
+beginchar(oct"004",1.5em#,cap#,0); "The letter tv";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autorounding:=5;
+smoothing:=3;
+x1=x12=w-x6=w-x7= curve_sidebar;
+y1=y2=y3=y4=y5=y6=good.y 0; y12=good.y h;
+z2-z1=z4-z3=z6-z5=z11-z12=z9-z10=z7-z8 =z3-z2=z5-z4;
+%x2-x1=.2*.9em; .5[x3,x4]=.5[x10,x9]=.5w;
+z12-z1=z11-z2=z10-z3=z9-z4=z8-z5=z7-z6;
+z94=.3[z9,z4];
+draw z11--z2--z1--z12--z10{right}..controls z9..{down}z94--z4;
+draw z10--z3--z6--z7--z8--z5;
+picture tv; tv=currentpicture;
+endchar;
+
+
+beginchar(oct"005",.85em#,cap#,-.3cap#); "The letter pr";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x2=w-x3=w-x4=w-x7= curve_sidebar;
+y1=d; y2=y3=good.y h; y5=y4=0 ; y6=y7=good.y 1.4333h;
+x4-x5=x7-x6=.33w;
+draw z1--z2--z3--z4--z5--z6--z7;
+endchar;
+
+
+
+
+beginchar(oct"006",1em#,cap#,0); "The letter ti";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=5;
+smoothing:=4;
+x1=x7=w-x4=w-x10=good.x curve_sidebar;
+y1=y2=y3=y4=good.y 0;
+(z2-z1)=z3-z2=z4-z3=(z8-z7)=z9-z8=z10-z9=z11-z12;
+ y7=good.y h; x2=x12; y12=good.y h;
+ z12=.2[z13,z11];
+ z6=.5[.5[z3,z4],.5[z9,z10]];
+z.11=.35[z1,z7];
+z.11-z1=z22-z2=z33-z3=z44-z4=z7-z77=z8-z88=z9-z99=z10-z1010;
+kut:=30;
+draw z9{down}..controls z99..z6{dir-kut}..
+controls z44..{down}z4--z3{up}..controls z33..z6{dir kut}..controls z1010..
+{up}z10--z7{down}--z1--z2--z8;
+picture ti; ti=currentpicture;
+endchar;
+
+
+
+beginchar(oct"007",1.1em#,cap#,0); "The letter it";
+transform t;
+t=identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also ti transformed t;
+endchar;
+
+
+
+beginchar(oct"010",0.8em#,cap#,0); "The letter bo";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+smoothing:=4;
+k:=.5;
+x1=w-x2=curve_sidebar; y1=y2=0;
+x3=x4=w-x7=w-x8=\curve_sidebar;
+y3+.1h=y5+.05h=y7=k*w;
+y4=y6=y8=h; y10=y11=1.4333h; x10=x8; x11=x6;
+x5=x6=w/2;
+z3=.1[z9,z7]; z888-z2=1.1(z8-z2);
+draw z4--z1--z2;
+draw z9--z7--z10--z11{down}..z888;
+draw z5--z6;
+penlabels(1,2,3,4,5,6,7,8);
+endchar;
+
+
+beginchar(oct"011",0.8em#,cap#,0); "The letter br";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+smoothing:=4;
+k:=.5;
+x1=w-x2=curve_sidebar; y1=y2=0;
+x3=x4=w-x7=w-x8=\curve_sidebar;
+y3+.1h=y5+.05h=y7=k*w;
+y4=y8=h; y10=y11=1.4333h; x10=x8; x11=x5;
+x5=w/2;
+z3=.1[z9,z7];
+draw z4--z1--z2;
+draw z9--z7--z8;
+draw z5--z11--z10;
+penlabels(1,2,3,4,5,6,7,8);
+endchar;
+
+
+
+
+
+
+beginchar(oct"012",1.31em#,4/3cap#,0); "The letter lju";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+w:=1.33/1.31w;
+w:=1/1.33w;
+x1=x8=w-x6=w-x7=curve_sidebar;
+x2-x1=x5-x2=x6-x5; y1=y2=y5=y6=0;
+x3=w-x4=.25w;
+y3=y4=good.y h; y8=y7=.75h;
+z8-z1=z23-z2; z7-z6=z54-z5;
+ y5:=y5-.075h; z11-z5=z5-z6;
+z9-z6=z6-z5; x10=x9; y10=y8;
+draw z1--z2--z23{up}..{dir150}z3--z4{dir-150}..{down}z54--z5;
+draw z6--z7;
+draw z11--z9--z10--z8--z1;
+penlabels(1,2,3,4,5,6,7,8);
+endchar;
+
+
+
+
+beginchar(oct"013",em#,4/3cap#,0); "The letter li";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=5;
+smoothing:=4;
+x1=x7=w-x4=w-x10=good.x curve_sidebar;
+y1=y2=y3=y4=good.y 0;
+z2-z1=z3-z2=z4-z3=z8-z7=z9-z8=z10-z9=z11-z12;
+ y7=good.y 3/4h; x2=x12; y12=good.y h;
+ z12=.2[z13,z11];
+ z5=.5[.5[z1,z2],.5[z7,z8]]; y5=y6; x5=w-x6;
+z.11=.35[z1,z7];
+z.11-z1=z22-z2=z33-z3=z44-z4=z7-z77=z8-z88=z9-z99=z10-z1010;
+kut:=30;
+draw z13--z11--z9{down}..controls z99..z6{dir-kut}..
+controls z44..{down}z4--z3{up}..controls z33..z6{dir kut}..controls z1010..
+{up}z10--z7--z1--z2--z12;
+endchar;
+
+
+
+
+beginchar(oct"014",em#,4/3cap#,0); "The letter il";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=5;
+smoothing:=4;
+x1=x7=w-x4=w-x10=good.x curve_sidebar;
+y1=y2=y3=y4=good.y 0;
+z2-z1=z3-z2=z4-z3=z8-z7=z9-z8=z10-z9=z11-z12;
+ y7=good.y 3/4h; x2=x12; y12=good.y h;
+ z12=.2[z13,z11];
+ z5=.5[.5[z1,z2],.5[z7,z8]]; y5=y6; x5=w-x6;
+z.11=.35[z1,z7];
+z.11-z1=z22-z2=z33-z3=z44-z4=z7-z77=z8-z88=z9-z99=z10-z1010;
+kut:=30;
+draw z13--z11--z3--z4--z10
+--z7{down}..controls z77..z5{dir-kut}..controls z22..{down}z2--
+z1{up}..controls z.11..z5{dir kut}..controls z88..{up}z8--z12;
+endchar;
+
+
+
+
+
+beginchar(oct"015",em#,cap#,0); "The letter tr";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+smoothing:=4;
+x1=x2=w-x4=w-x3=curve_sidebar;
+y1=y8=y5=y4=0; z2-z1=z7-z8=z6-z5=z3-z4=(0,good.y h);
+z8-z1=z4-z5=z7-z2=z3-z6=z5-z8;
+z34=.2[z3,z4]; z56=.2[z5,z6];
+z66=1.4333[z5,z6]; z33=1.4333[z4,z3];
+draw z7--z8--z1--z2--z6..controls z3..{down}z34--z4..
+controls z5..{up}z56--z6;
+draw z33--z66--z6;
+endchar;
+
+
+
+
+beginchar(oct"016",em#,cap#,0); "The letter to";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+smoothing:=4;
+x1=x2=w-x4=w-x3=curve_sidebar;
+y1=y8=y5=y4=0; z2-z1=z7-z8=z6-z5=z3-z4=(0,good.y h);
+z8-z1=z4-z5=z7-z2=z3-z6=z5-z8;
+z34=.2[z3,z4]; z56=.2[z5,z6];
+z66=1.4333[z5,z6]; z33=1.4333[z4,z3]; z333=1.1[z4,z3];
+draw z7--z8--z1--z2--z6-- z3--z4..
+controls z5..{up}z56--z6;
+draw z3--z33--z66{down}..z333;
+endchar;
+
+
+
+beginchar(oct"017",.9em#,cap#,0); "The letter jur";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x6=w- x3=w-x4=good.x curve_sidebar; x2=x5=.5w;
+y6=y5=y4=h; y3=.2h; y1=-.1h; y2=.5[y1,y3]; x0=-.2w;
+z0=whatever[z1,z3];
+z55=1.4333[z2,z5]; z44-z55=z4-z5;
+draw z0--z3--z4--z6--z1; draw z2--z55--z44;
+endchar;
+
+
+
+
+
+beginchar(oct"020",em#,4/3cap#,0); "The letter ol";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x8=w-x6=w-x7=curve_sidebar;
+x2-x1=x5-x2=x6-x5; y1=y2=y5=y6=0;
+x3=w-x4=.25w;
+y3=y4=good.y h; y8=y7=.75h;
+z8-z1=z23-z2; z7-z6=z54-z5;
+z223=.5[z2,z23];
+draw z1--z2--z23{up}..{dir150}z3--z4{dir-150}..{down}z54--z5
+--z6--z7--z8{down}
+..z223;
+draw z1{up}..z223;
+penlabels(1,2,3,4,5,6,7,8);
+endchar;
+
+
+
+beginchar(oct"021",em#,4/3cap#,0); "The letter lo";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x8=w-x6=w-x7=curve_sidebar;
+x2-x1=x5-x2=x6-x5; y1=y2=y5=y6=0;
+x3=w-x4=.25w;
+y3=y4=good.y h; y8=y7=.75h;
+z8-z1=z23-z2; z7-z6=z54-z5;
+z67=.5[z6,z7];
+draw z1--z2--z23{up}..{dir150}z3--z4{dir-150}..{down}z54{down}..
+z67; draw z1--z8--z7--z6--z5{up}..z67;
+penlabels(1,2,3,4,5,6,7,8);
+endchar;
+
+
+
+
+
+beginchar(oct"022",em#,cap#,0); "The letter vo";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+x1=w-x2=curve_sidebar; y1=y2=0;
+draw z1--z2;
+z5-z1=z9-z2=(0,good.y h);
+z7-z5=z9-z8=z3-z1=z2-z4=z4-z3;
+z77=.2[z7,z3];
+z88=.15[z8,z4]; z99=.15[z9,z2]; z89=.5[z8,z9];
+z.9=1.4333[z2,z9]; z.8=1.4333[z4,z8]; z999=1.1[z2,z9];
+draw z1--z5..controls z7 ..{down}z77--z3;
+draw z2--z9--z89..controls z8..{down}z88--z4;
+draw z9--z.9--z.8{down}..z999;
+penlabels(1,2,3,4,5,6,7,8,9);
+endchar;
+
+
+
+
+beginchar(oct"023",.85em#,cap#,-.3cap#); "The letter po";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+x1=x2=w-x3=w-x4=curve_sidebar;
+y1=d; %
+ y2=y6=y3=good.y h;
+y5=y4=0; %
+ x4-x5=x3-x6=.33w;
+z36=.33[z3,z6]; z34=.3[z3,z4];
+z45=.33[z5,z4]; z56=.3[z5,z6];
+z33=1.4333[z4,z3]; z66=1.4333[z5,z6];
+z333=1.1[z4,z3];
+draw z1--z2--z3--z4--z45..controls z5..z56--z6;
+draw z3--z33--z66{down}..z333;
+endchar;
+
+
+
+
+
+beginchar(oct"024",em#,4/3cap#,0); "The letter oli";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=5;
+smoothing:=4;
+x1=x7=w-x4=w-x10=good.x curve_sidebar;
+y1=y2=y3=y4=good.y 0;
+z2-z1=z3-z2=z4-z3=z8-z7=z9-z8=z10-z9=z11-z12;
+ y7=good.y 3/4h; x2=x12; y12=good.y h;
+ z12=.2[z13,z11];
+ z5=.5[.5[z1,z2],.5[z7,z8]]; y5=y6; x5=w-x6;
+z.11=.35[z1,z7];
+z.11-z1=z22-z2=z33-z3=z44-z4=z7-z77=z8-z88=z9-z99=z10-z1010;
+z28=.5[z2,z8];
+kut:=30;
+draw z13--z11--z9{down}..controls z99..z6{dir-kut}..
+controls z44..{down}z4--z3{up}..controls z33..z6{dir kut}..controls z1010..
+{up}z10--z7;
+draw z1--z2--z12; draw z7{down}..z28;
+draw z1{up}..z28;
+endchar;
+
+
+
+beginchar(oct"025",1.31em#,4/3cap#,0); "The letter olju";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+w:=1.33/1.31w;
+w:=1/1.33w;
+x1=x8=w-x6=w-x7=curve_sidebar;
+x2-x1=x5-x2=x6-x5; y1=y2=y5=y6=0;
+x3=w-x4=.25w;
+y3=y4=good.y h; y8=y7=.75h;
+z8-z1=z23-z2; z7-z6=z54-z5;
+ y5:=y5-.075h; z11-z5=z5-z6;
+z9-z6=z6-z5; x10=x9; y10=y8;
+z22-z2=.5(z8-z1);
+draw z1--z2--z23{up}..{dir150}z3--z4{dir-150}..{down}z54--z5;
+draw z6--z7;
+draw z11--z9--z10--z8{down}..z22;
+draw z1{up}..z22;
+penlabels(1,2,3,4,5,6,7,8);
+endchar;
+
+
+
+
+
+
+beginchar(oct"026",1.8em#,4/3cap#,0); "The letter ljud";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+w:=1/1.8w;
+x1=x8=w-x6=w-x7=curve_sidebar;
+x2-x1=x5-x2=x6-x5; y1=y2=y5=y6=0;
+x3=w-x4=.25w;
+y3=y4=good.y h; y8=y7=.75h;
+z8-z1=z23-z2; z7-z6=z54-z5;
+z13-z6=2.5(z6-z5); z12-z13=z8-z1;
+ y5:=y5-.075h; z11-z5=z5-z6;
+z9-z6=z6-z5; x10=x9; y10=y8;
+z16=.4[z13,z12]; z14-z13=.7(z12-z10)=z15-z16;
+draw z1--z2--z23{up}..{dir150}z3--z4{dir-150}..{down}z54--z5;
+draw z6--z7;
+draw z11--z9--z10--z8--z1;
+draw z10--z12--z13--z14--z15--z16;
+penlabels(1,2,3,4,5,6,7,8);
+endchar;
+
+
+
+
+
+beginchar(oct"027",1.8*0.7em#,cap#,0); "The letter bl";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+smoothing:=4; w:=w/1.8; k:=.5; x1=w-x2=curve_sidebar;
+y1=y2=0; x3=x4=w-x7=w-x8=curve_sidebar;
+y3+.1h=y5+.05h=y7=k*w; y4=y6=y8=h; x5=x6=w/2; z3=.1[z9,z7];
+draw z4--z1--z2; draw z5--z6; z10=(1.8w-curve_sidebar,0);
+z.9-z10=z4-z1; z10-z11=(z6-z4); z12-z11=z.9-z10;
+y14=y13=4/3h; x8-x14=x13-x12=.1w; draw
+z8--z.9--z10--z11--z12{up}..z13; draw z13--z14; draw
+z9--z7--z8{up}..z14; penlabels(1,2,3,4,5,6,7,8); endchar;
+
+
+
+
+beginchar(oct"030",.9em#,cap#,0); "The letter mo";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=w-x3=w-x4= curve_sidebar; x2=x5=.5w; y5=y4=h;
+y1=y2=y3=0; z6=.4[z5,z2];
+z7=1.4333[z3,z4]; z8=1.4333[z2,z5]; z444=1.1[z3,z4];
+draw z1{up}..{dir10}z5--z2;
+draw z6--z4--z3;
+draw z4--z7--z8{down}..z444;
+endchar;
+
+
+
+
+beginchar(oct"031",em#,cap#,0); "The letter vr";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+x1=w-x2=curve_sidebar; y1=y2=0;
+draw z1--z2;
+z5-z1=z9-z2=(0,good.y h);
+z7-z5=z9-z8=z3-z1=z2-z4=z4-z3;
+z77=.2[z7,z3];
+z88=.15[z8,z4]; z99=.15[z9,z2]; z89=.5[z8,z9];
+z.8=1.4333[z4,z8]; z.9=1.4333[z2,z9];
+draw z1--z5..controls z7 ..{down}z77--z3;
+draw z2--z99..controls z9..{left}z89..controls z8..{down}z88--z4;
+draw z88--z.8--z.9;
+penlabels(1,2,3,4,5,6,7,8,9);
+endchar;
+
+
+
+beginchar(oct"032",1.5em#,cap#,0); "The letter tvo";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autorounding:=5;
+smoothing:=3;
+x1=x12=w-x6=w-x7= curve_sidebar;
+y1=y2=y3=y4=y5=y6=good.y 0; y12=good.y h;
+z2-z1=z4-z3=z6-z5=z11-z12=z9-z10=z7-z8=z3-z2=z5-z4;
+%x2-x1=.2*.9em; .5[x3,x4]=.5[x10,x9]=.5w;
+z12-z1=z11-z2=z10-z3=z9-z4=z8-z5=z7-z6;
+z94=.3[z9,z4];
+z88=1.4333[z5,z8]; z77=1.4333[z6,z7]; z777=1.1[z6,z7];
+draw z11--z2--z1--z12--z10{right}..controls z9..{down}z94--z4;
+draw z10--z3--z6--z7--z8--z5;
+draw z7--z77--z88{down}..z777;
+endchar;
+
+
+
+
+
+beginchar(oct"033",.6em#,cap#,0); "The letter no";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+smoothing:=4;
+x1=x4=w-x5=curve_sidebar; x3=.5(x1+x2); x2=.43w;
+y1=y2=0; y5=y4=good.y h; z6=(.5x3,.4h); y3=0;
+z55-z5=.4333(z4-z1);
+z555-z5=.1(z4-z1);
+draw z3--z4--z5{down}..{left}z6;
+draw z1--z2; z55-z.5=.7(z5-z4);
+draw z5--z55--z.5{down}..z555;
+endchar;
+
+
+
+beginchar(oct"034",1.7*.75em#,cap#,-.3cap#); "The letter pov";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+w:=w/1.7;
+x1=x2=w-x3=w-x4=curve_sidebar;
+y1=d; %
+ y2=y6=y3=good.y h;
+y5=y4=0; %
+ x4-x5=x3-x6=.33w;
+z36=.33[z3,z6]; z34=.3[z3,z4];
+z45=.33[z5,z4]; z56=.3[z5,z6];
+x8=x10=1.7w-curve_sidebar; y8=h; y10=0;
+z8-z7=z10-z9=z4-z5;
+z11=1.4333[z4,z3]; z12=1.4333[z5,z6]; z333=1.1[z4,z3];
+draw z1--z2--z3..z34--z4--z45..controls z5..z56--z6;
+draw z4--z10--z8--z7--z9;
+draw z3--z11--z12{down}..z333;
+endchar;
+
+
+
+
+beginchar(oct"035",1.7*.75em#,cap#,-.3cap#); "The letter poto";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+w:=w/1.7;
+x1=x2=w-x3=w-x4=curve_sidebar;
+y1=d; %
+ y2=y6=y3=good.y h;
+y5=y4=0; %
+ x4-x5=x3-x6=.33w;
+z36=.33[z3,z6]; z34=.3[z3,z4];
+z45=.33[z5,z4]; z56=.3[z5,z6];
+x8=x10=1.7w-curve_sidebar; y8=h; y10=0;
+z8-z7=z10-z9=z4-z5;
+z11=1.4333[z4,z3]; z12=1.4333[z5,z6]; z333=1.1[z4,z3];
+z88=1.4333[z10,z8]; z77=1.4333[z9,z7]; z888=1.1[z10,z8];
+draw z1--z2--z3..z34--z4--z45..controls z5..z56--z6;
+draw z3--z8--z10--z9--z7;
+draw z3--z11--z12{down}..z333;
+draw z8--z88--z77{down}..z888;
+endchar;
+
+
+
+
+
+beginchar(oct"036",1.7*.75em#,cap#,-.3cap#); "The letter povr";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+w:=w/1.7;
+x1=x2=w-x3=w-x4=curve_sidebar;
+y1=d; %
+ y2=y6=y3=good.y h;
+y5=y4=0; %
+ x4-x5=x3-x6=.33w;
+z36=.33[z3,z6]; z34=.3[z3,z4];
+z45=.33[z5,z4]; z56=.3[z5,z6];
+x8=x10=1.7w-curve_sidebar; y8=h; y10=0;
+z8-z7=z10-z9=z4-z5;
+z11=1.4333[z4,z3]; z12=1.4333[z5,z6];
+z88=1.4333[z10,z8]; z77=1.4333[z9,z7]; z333=1.1[z4,z3];
+draw z1--z2--z3..z34--z4--z45..controls z5..z56--z6;
+draw z4--z10--z8--z7--z9;
+draw z3--z11--z12{down}..z333;
+draw z7--z77--z88;
+endchar;
+
+
+
+
+
+
+beginchar(oct"037",1.7*.75em#,cap#,-.3cap#); "The letter potr";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+w:=w/1.7;
+x1=x2=w-x3=w-x4=curve_sidebar;
+y1=d; %
+ y2=y6=y3=good.y h;
+y5=y4=0; %
+ x4-x5=x3-x6=.33w;
+z36=.33[z3,z6]; z34=.3[z3,z4];
+z45=.33[z5,z4]; z56=.3[z5,z6];
+x8=x10=1.7w-curve_sidebar; y8=h; y10=0;
+z8-z7=z10-z9=z4-z5;
+z11=1.4333[z4,z3]; z12=1.4333[z5,z6]; z333=1.1[z4,z3];
+z88=1.4333[z10,z8]; z77=1.4333[z9,z7];
+draw z1--z2--z3..z34--z4--z45..controls z5..z56--z6;
+draw z3--z8--z10--z9--z7;
+draw z3--z11--z12{down}..z333;
+draw z7--z77--z88;
+endchar;
+
+
+
+
+beginchar(oct"040",1.7*.75em#,cap#,-.3cap#); "The letter pt";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+w:=w/1.7;
+x1=x2=w-x3=w-x4=curve_sidebar;
+y1=d; %
+ y2=y6=y3=good.y h;
+y5=y4=0; %
+ x4-x5=x3-x6=.33w;
+z36=.33[z3,z6]; z34=.3[z3,z4];
+z45=.33[z5,z4]; z56=.3[z5,z6];
+x8=x10=1.7w-curve_sidebar; y8=h; y10=0;
+z8-z7=z10-z9=z4-z5;
+draw z1--z2--z3..z34--z4--z45..controls z5..z56--z6;
+draw z3--z8--z10--z9--z7;
+endchar;
+
+
+beginchar(oct"041",1.7*.75em#,cap#,-.3cap#); "The letter pot";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+w:=w/1.7;
+x1=x2=w-x3=w-x4=curve_sidebar;
+y1=d; %
+ y2=y6=y3=good.y h;
+y5=y4=0; %
+ x4-x5=x3-x6=.33w;
+z36=.33[z3,z6]; z34=.3[z3,z4];
+z45=.33[z5,z4]; z56=.3[z5,z6];
+x8=x10=1.7w-curve_sidebar; y8=h; y10=0;
+z8-z7=z10-z9=z4-z5;
+z11=1.4333[z4,z3]; z12=1.4333[z5,z6]; z333=1.1[z4,z3];
+draw z1--z2--z3..z34--z4--z45..controls z5..z56--z6;
+draw z3--z8--z10--z9--z7;
+draw z3--z11--z12{down}..z333;
+endchar;
+
+
+
+
+beginchar(oct"042",1.7*.8em#,cap#,0); "The letter jutr";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+w:=w/1.7;
+x1=x6=w- x3=w-x4=good.x curve_sidebar; x2=x5=.5w;
+y6=y5=y4=h; y3=.1h; y1=-.1h; y2=.5[y1,y3]; x0=-.2w;
+z0=whatever[z1,z3];
+z7=(1.7w-curve_sidebar,0); z8-z7=z5-z4;
+x9=x7; y9=h; z10-z8=1.4333(z9-z7);
+z11=1.4333[z7,z9];
+draw z0--z3--z4--z6--z1; draw z2--z5;
+draw z4--z9--z7--z8--z10--z11;
+endchar;
+
+
+
+
+beginchar(oct"043",1.6*em#,cap#,0); "The letter vd";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+w:=w/1.6;
+x1=w-x2=curve_sidebar; y1=y2=0;
+draw z1--z2;
+z5-z1=z9-z2=(0,good.y h);
+z7-z5=z9-z8=z3-z1=z2-z4=z4-z3;
+z77=.2[z7,z3];
+z88=.15[z8,z4]; z99=.15[z9,z2]; z89=.5[z8,z9];
+x.1=1.6w-curve_sidebar; y.1=0; z.2-z.1=1.2(z1-z3); z.3-z.1=z.4-z.2=.4(z5-z1);
+z.5-z.2=z5-z1;
+draw z1--z5..controls z7 ..{down}z77--z3;
+draw z2--z9--z8--z4;
+draw z9--z.5--z.2--z.1--z.3--z.4;
+penlabels(1,2,3,4,5,6,7,8,9);
+endchar;
+
+
+
+
+
+beginchar(oct"044",1.6*.9em#,cap#,0); "The letter vod";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+w:=w/1.6;
+x1=w-x2=curve_sidebar; y1=y2=0;
+draw z1--z2;
+z5-z1=z9-z2=(0,good.y h);
+z7-z5=z9-z8=z3-z1=z2-z4=z4-z3;
+z77=.2[z7,z3];
+z88=.15[z8,z4]; z99=.15[z9,z2]; z89=.5[z8,z9];
+x.1=1.6w-curve_sidebar; y.1=0; z.2-z.1=1.2(z1-z3); z.3-z.1=z.4-z.2=.4(z5-z1);
+z.5-z.2=z5-z1;
+z.8=1.4333[z4,z8]; z.9=1.4333[z2,z9]; z999=1.1[z2,z9];
+draw z1--z5..controls z7 ..{down}z77--z3;
+draw z2--z9--z8--z4;
+draw z9--z.5--z.2--z.1--z.3--z.4;
+draw z9--z.9--z.8{down}..z999;
+penlabels(1,2,3,4,5,6,7,8,9);
+endchar;
+
+
+
+
+
+beginchar(oct"045",1.5em#,cap#,0); "The letter tvr";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autorounding:=5;
+smoothing:=3;
+x1=x12=w-x6=w-x7= curve_sidebar;
+y1=y2=y3=y4=y5=y6=good.y 0; y12=good.y h;
+z2-z1=z4-z3=z6-z5=z11-z12=z9-z10=z7-z8=z3-z2=z5-z4;
+%x2-x1=.2*.9em; .5[x3,x4]=.5[x10,x9]=.5w;
+z12-z1=z11-z2=z10-z3=z9-z4=z8-z5=z7-z6;
+z94=.3[z9,z4];
+z88=1.4333[z5,z8]; z77=1.4333[z6,z7];
+draw z11--z2--z1--z12--z10{right}..controls z9..{down}z94--z4;
+draw z10--z3--z6--z7--z8--z5;
+draw z8--z88--z77;
+endchar;
+
+
+
+beginchar(oct"046",1.5em#,cap#,0); "The letter thita";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=w-x2=curve_sidebar; y1=y2=.5h;
+z3-z1=z2-z4=.2(z2-z1);
+x5=x7=w-x6=w-x8=.42w; y5=y6=0; y7=y8=h;
+x9=w-x10=.5(x1+x3); y9=y10=.2h;
+draw z3{down}..z9..{up}z1--z2{down}..z10..{up}z4;
+draw z5--z6--z8--z7--cycle;
+endchar;
+
+
+beginchar(oct"047",1.2em#,cap#,0); "The letter izica";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autorounding:=10;
+smoothing:=10;
+k:=0;
+x1=x5+k=x11=w- x7= curve_sidebar;
+x2=x6-k=x10=.4w;
+x7-x12=.2w; x13=.5[x12,x7]; y13=.5h-.3h;
+y5=y6=y12=y7=.5h;
+x3-x1=x8-x1=x2-x4=x2-x9=.1w; y3=y4=h-y8=h-y9=.35h;
+y11=y10=h; y1=y2=0;
+draw z1--z2{up}..z4..z3..{down}z1;
+draw z11--z10{down}..z9..z8..{up}z11;
+draw z3..z5..z8; draw z4..z6..z9;
+draw z6--z7{down}..z13..{up}z12;
+endchar;
+
+
+
+
+beginchar(oct"050",1.52*1.1em#,cap#,0); "The letter zl";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=5;
+smoothing:=4;
+w:=w/1.52;
+x1=x4=x5=w-x7=w-x6=good.x curve_sidebar;
+x2=x3=.4w;
+y5=y6=y9=h/2;
+y1=-.2h;
+y2=0;
+ z4-(x1,0)=z3-z2=(0,good.y h);
+z6-z7=z9-z8=1.2(z7-z8) rotated 90=(0,.5h);
+z23=.5[z2,z3];
+x13=x14=1.52w-curve_sidebar; y13=0; y14=.5h;
+z13-z12=z14-z15=z7-z8;
+x6-x10=x11-x12=.1w; y10=y11=h;
+penpos23(1.4thick,0);
+draw z23--z3--z4--z5;
+k:=1.4/cosd 10;
+penpos1(k*thick,10);
+penpos5(1.4thick,0);
+penstroke z5e--z1e;
+penstroke z1e{dir14}..{up}z23e;
+%pickup pencircle xscaled thick yscaled.2thin;
+draw z5--z6--z7{left}..controls z8..{up}z9;
+draw z6{up}..z10--z11..{down}z15--z12--z13--z14--z15;
+endchar;
+
+
+
+beginchar(oct"051",1.1em#,cap#,0); "The letter zo";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=5;
+smoothing:=4;
+x1=x4=x5=w-x7=w-x6=good.x curve_sidebar;
+x2=x3=.4w;
+y5=y6=y9=h/2;
+y1=-.2h;
+y2=0;
+ z4-(x1,0)=z3-z2=(0,good.y h);
+z6-z7=z9-z8=1.2(z7-z8) rotated 90=(0,.5h);
+z23=.5[z2,z3];
+z99=2[z8,z9]; z66=2[z7,z6];
+penpos23(1.4thick,0);
+draw z23--z3--z4--z5;
+k:=1.4/cosd 10;
+penpos1(k*thick,10);
+penpos5(1.4thick,0);
+penstroke z5e--z1e;
+penstroke z1e{dir14}..{up}z23e;
+%pickup pencircle xscaled thick yscaled.2thin;
+draw z5--z6--z7{left}..controls z8..{up}z9;
+draw z6--z66--z99{down}..z6;
+endchar;
+
+
+
+
+beginchar(oct"052",1.1em#,cap#,0); "The letter zr";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=5;
+smoothing:=4;
+x1=x4=x5=w-x7=w-x6=good.x curve_sidebar;
+x2=x3=.4w;
+y5=y6=y9=h/2;
+y1=-.2h;
+y2=0;
+ z4-(x1,0)=z3-z2=(0,good.y h);
+z6-z7=z9-z8=1.2(z7-z8) rotated 90=(0,.5h);
+z23=.5[z2,z3];
+z99=2[z8,z9]; z66=2[z7,z6];
+penpos23(1.4thick,0);
+draw z23--z3--z4--z5;
+k:=1.4/cosd 10;
+penpos1(k*thick,10);
+penpos5(1.4thick,0);
+penstroke z5e--z1e;
+penstroke z1e{dir14}..{up}z23e;
+%pickup pencircle xscaled thick yscaled.2thin;
+draw z5--z6--z7{left}..controls z8..{up}z9;
+draw z9--z99--z66;
+endchar;
+
+
+
+
+beginchar(oct"053",1.7*.75em#,cap#,-.3cap#); "The letter pv";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+w:=w/1.7;
+x1=x2=w-x3=w-x4=curve_sidebar;
+y1=d; %
+ y2=y6=y3=good.y h;
+y5=y4=0; %
+ x4-x5=x3-x6=.33w;
+z36=.33[z3,z6]; z34=.3[z3,z4];
+z45=.33[z5,z4]; z56=.3[z5,z6];
+x8=x10=1.7w-curve_sidebar; y8=h; y10=0;
+z8-z7=z10-z9=z4-z5;
+draw z1--z2--z3..z34--z4--z45..controls z5..z56--z6;
+draw z4--z10--z8--z7--z9;
+endchar;
+
+
+
+
+
+
+beginchar(oct"054",1.7*.75em#,cap#,-.3cap#); "The letter pov";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+w:=w/1.7;
+x1=x2=w-x3=w-x4=curve_sidebar;
+y1=d; %
+ y2=y6=y3=good.y h;
+y5=y4=0; %
+ x4-x5=x3-x6=.33w;
+z36=.33[z3,z6]; z34=.3[z3,z4];
+z45=.33[z5,z4]; z56=.3[z5,z6];
+x8=x10=1.7w-curve_sidebar; y8=h; y10=0;
+z8-z7=z10-z9=z4-z5;
+z66=1.4333[z5,z6]; z33=1.4333[z4,z3]; z333=1.1[z4,z3];
+draw z1--z2--z3..z34--z4--z45..controls z5..z56--z6;
+draw z4--z10--z8--z7--z9;
+draw z3--z33--z66{down}..z333;
+endchar;
+
+
+
+
+beginchar(oct"055",1.7*.75em#,cap#,-.3cap#); "The letter prv";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+w:=w/1.7;
+x1=x2=w-x3=w-x4=curve_sidebar;
+y1=d; %
+ y2=y6=y3=good.y h;
+y5=y4=0; %
+ x4-x5=x3-x6=.33w;
+z36=.33[z3,z6]; z34=.3[z3,z4];
+z45=.33[z5,z4]; z56=.3[z5,z6];
+x8=x10=1.7w-curve_sidebar; y8=h; y10=0;
+z8-z7=z10-z9=z4-z5;
+z66=1.4333[z5,z6]; z33=1.4333[z4,z3]; z333=1.1[z4,z3];
+draw z1--z2--z3..z34--z4--z45..controls z5..z56--z6;
+draw z4--z10--z8--z7--z9;
+draw z6--z66--z33;
+endchar;
+
+
+
+
+beginchar(oct"056",1.7*.75em#,cap#,-.3cap#); "The letter pl";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+w:=w/1.7;
+x1=x2=w-x3=w-x4=curve_sidebar;
+y1=d; %
+ y2=y6=y3=good.y h;
+y5=y4=0; %
+ x4-x5=x3-x6=.33w;
+z36=.33[z3,z6]; z34=.3[z3,z4];
+z45=.33[z5,z4]; z56=.3[z5,z6];
+x8=x10=1.7w-curve_sidebar; y8=h; y10=0;
+z8-z7=z10-z9=z4-z5;
+y33=y77=4/3h; x77-x7=x3-x33=.1w;
+draw z1--z2--z3..z34--z4--z45..controls z5..z56--z6;
+draw z9--z10--z8--z7--z9;
+draw z3{up}..z33--z77..{down}z7;
+draw z3--z7;
+endchar;
+
+
+
+
+beginchar(oct"057",1.7*.75em#,cap#,-.3cap#); "The letter pod";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+w:=w/1.7;
+x1=x2=w-x3=w-x4=curve_sidebar;
+y1=d; %
+ y2=y6=y3=good.y h;
+y5=y4=0; %
+ x4-x5=x3-x6=.33w;
+z36=.33[z3,z6]; z34=.3[z3,z4];
+z45=.33[z5,z4]; z56=.3[z5,z6];
+x8=x10=1.7w-curve_sidebar; y8=.4h; y10=0;
+z7-z9=z3-z4; z10-z9=z4-z5; z8-z10=z88-z9;
+z11=1.4333[z4,z3]; z12=1.4333[z5,z6]; z333=1.1[z4,z3];
+draw z1--z2--z3..z34--z4--z45..controls z5..z56--z6;
+draw z3--z7--z9--z10--z8--z88;
+draw z3--z11--z12{down}..z333;
+endchar;
+
+
+
+
+
+beginchar(oct"060",1.6em#,4/3cap#,0); "The letter mlc";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x9=x20=w- x13=w-x14=good.x curve_sidebar;
+y9=.5*3/4h;
+y9=y10=y11=y12=y13;
+z10-z9=z11-z10=z12-z11=z13-z12;
+y1=y2=y5=y6=good.y 0;
+x1=w-x6; x2-x1=x6-x5;
+ x1=.5[x9,x10]; x5=.5[x11,x12];
+z4=.5[z9,z10];
+z3=.5[z10,z11]; z7=.5[z11,z12]; z8=.5[z12,z13];
+z20-z9=z19-z10=z17-z11=z15-z12=z14-z13=(0,3/4h-y9);
+z21-z18=z22-z16;
+z18=.5[z19,z17]; z16=.5[z17,z15]; y21=good.y h;
+x18=x21;
+z199-z19=z155-z15=z177-z17=z21-z18;
+draw z4--z1--z2--z3; draw z7--z5--z6--z8;
+draw z9--z13--z14--z20--cycle; draw z10--z19; draw z11--z17; draw z12--z15;
+draw z19--z199--z155--z15; draw z17--z177;
+z211-z21=z222-z22=.2(z4-z1);
+penpos21(1.4thick,0);
+penpos211(1.4thick,0);
+penpos22(1.4thick,0);
+penpos222(1.4thick,0);
+penstroke z21e--z211e; penstroke z22e--z222e;
+endchar;
+
+
+
+beginchar(oct"061",1.43em#,4/3cap#,0); "The letter lv";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+w:=1.33/1.43w;
+w:=1/1.43w;
+x1=x8=w-x6=w-x7=curve_sidebar;
+x2-x1=x5-x2=x6-x5; y1=y2=y5=y6=0;
+x3=w-x4=.25w;
+y3=y4=good.y h; y8=y7=.75h;
+z8-z1=z23-z2; z7-z6=z54-z5;
+x10=x11=1.43*1.43/1.33w-curve_sidebar; y10=0; y11=3/4h;
+z9-z10=z5-z6; z12-z11=z54-z7;
+draw z5--z6--z7--z8--z1--z2--z23{up}..{dir150}z3--z4{dir-150}..{down}z54--z5;
+draw z6--z10--z11--z12--z9;
+picture lv; lv=currentpicture;
+endchar;
+
+
+
+beginchar(oct"062",1.43em#,4/3cap#,0); "The letter vl";
+transform t;
+t=identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also lv transformed t;
+endchar;
+
+
+
+beginchar(oct"063",1.43em#,4/3cap#,0); "The letter lt";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+w:=1.33/1.43w;
+w:=1/1.43w;
+x1=x8=w-x6=w-x7=curve_sidebar;
+x2-x1=x5-x2=x6-x5; y1=y2=y5=y6=0;
+x3=w-x4=.25w;
+y3=y4=good.y h; y8=y7=.75h;
+z8-z1=z23-z2; z7-z6=z54-z5;
+x10=x11=1.43*1.43/1.33w-curve_sidebar; y10=0; y11=3/4h;
+z9-z10=z5-z6; z12-z11=z54-z7;
+draw z5--z6--z7--z8--z1--z2--z23{up}..{dir150}z3--z4{dir-150}..{down}z54--z5;
+draw z7--z11--z10--z9--z12;
+picture lv; lv=currentpicture;
+endchar;
+
+
+
+beginchar(oct"064",1.43em#,4/3cap#,0); "The letter tl";
+transform t;
+t=identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also lv transformed t;
+endchar;
+
+
+
+
+beginchar(oct"065",1.43em#,4/3cap#,0); "The letter vt";
+transform t;
+t=identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also tv transformed t;
+endchar;
+
+
+
+beginchar(oct"066",1.6em#,4/3cap#,0); "The letter mc";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x9=x20=w- x13=w-x14=good.x curve_sidebar;
+y9=.5*3/4h;
+y9=y10=y11=y12=y13;
+z10-z9=z11-z10=z12-z11=z13-z12;
+y1=y2=y5=y6=good.y 0;
+x1=w-x6; x2-x1=x6-x5;
+ x1=.5[x9,x10]; x5=.5[x11,x12];
+z4=.5[z9,z10];
+z3=.5[z10,z11]; z7=.5[z11,z12]; z8=.5[z12,z13];
+z20-z9=z19-z10=z17-z11=z15-z12=z14-z13=(0,3/4h-y9);
+z21-z18=z22-z16;
+z18=.5[z19,z17]; z16=.5[z17,z15]; y21=good.y h;
+x18=x21;
+draw z4--z1--z2--z3; draw z7--z5--z6--z8;
+draw z9--z13--z14--z20--cycle; draw z10--z19; draw z11--z17; draw z12--z15;
+z21-z211=z222-z22=.5(z22-z21);
+draw z211{right}..{down}z17{up}..{right}z222;
+endchar;
+
+
+
+
+
+
+beginchar(oct"067",em#,1.02cap#,0); "The letter so";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+x1=w-x2=curve_sidebar; bot y1=y2=y3=y4=0; top y7=h; y5=y6=.4h;
+x3-x1=x2-x4=.05w; x7=w/2; z5=whatever[z3,z7]; z6=whatever[z4,z7];
+x8=w-x9=x3; y8=y9=.5(y5+y7); draw z1--z2; draw
+z3--z5{z5-z3}..tension2..{z4-z6}z6--z4; draw
+z5..{up}z8..{right}z7..{down}z9..z6;
+z99=(x9,4/3h); z999=(x9,1.1h);
+z77=(.6w,4/3h);
+draw z9--z99--z77{down}..{right}z999;
+endchar;
+
+
+
+beginchar(oct"070",1.8*.9em#,4/3cap#,0); "The letter am";
+w:=w/1.8;
+grba:=.6;
+autoround:=4;
+x1=x2=.5w; y1=0; y2=h;
+z2- z3= z4-z2=(.16w,0);
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+draw z1..z2;
+draw z3..z4;
+z5=(curve_sidebar,0); z6=(w/2,grba*h); z7=(w-curve_sidebar,0);
+x8=x5; x9=x7; y8=y9=0.55h;
+draw z5{up}--z8; draw z8..z6..z9;
+draw z9--z7;
+w:=1.8w;
+x55=w-curve_sidebar;
+y55=0;
+z0=.5[z7,z55];
+z11=(x0,3/4h); z22=(x55,3/4h);
+draw z9--z11--z0;
+x33=.55[x0,x11]; y33=y9;
+draw z33--z22--z55;
+penlabels(1,2,3,4,5,6,7,8,9);
+endchar;
+
+
+
+
+beginchar(oct"071",.7em#,cap#,0); "The letter ko";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+w-x2=curve_sidebar;
+y1=0; y4=good.y h; z3=(curve_sidebar,.3h); y2=.3h;
+z1=(x2,0);
+x4=.6w;
+x5=x4; y5=4/3h; x55=.3w; y55=y5;
+x555=x4; y555=1.1h;
+draw z1--z2--z3..{up}z4--z5--z55{down}..{right}z555;
+penlabels(1,2,3,4,5);
+endchar;
+
+
+
+beginchar(oct"072",.7em#,cap#,0); "The letter ot";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x4=w-x3=w-x5=w-x6=w-x2=curve_sidebar;
+y4=y3=good.y h; y1=y2=0; y6-y2=y3-y5=.4h;
+draw z6{left}..{down}z1--z2--z3--z4{down}..{right}z5;
+pickup pencircle scaled .3thin;
+x33=x44=x1; x66=x55=x2; x22-x33=x77-x22=x66-x77;
+x22=x11; x77=x88;
+y33=y22=y77=y66=1.18h;
+y44=y11=y88=y55=1.33h;
+draw z11--z22--z33--z44--z55--z66--z77--z88;
+endchar;
+
+
+beginchar(oct"073",1.6em#,4/3cap#,0); "The letter ms";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x9=x20=w- x13=w-x14=good.x curve_sidebar;
+y9=.5*3/4h;
+y9=y10=y11=y12=y13;
+z10-z9=z11-z10=z12-z11=z13-z12;
+y1=y2=y5=y6=good.y 0;
+x1=w-x6; x2-x1=x6-x5;
+ x1=.5[x9,x10]; x5=.5[x11,x12];
+z4=.5[z9,z10];
+z3=.5[z10,z11]; z7=.5[z11,z12]; z8=.5[z12,z13];
+z20-z9=z19-z10=z17-z11=z15-z12=z14-z13=(0,3/4h-y9);
+z21-z18=z22-z16;
+z18=.5[z19,z17]; z16=.5[z17,z15]; y21=good.y h;
+x18=x21;
+z211=.7[z18,z21];
+z222-z16=z211-z18;
+z2122=.5[z21,z22];
+z199-z19=1.5(z211-z18);
+z155-z15=z199-z19;
+z177-z17=1.8(z21-z18);
+draw z4--z1--z2--z3; draw z7--z5--z6--z8;
+draw z9--z13--z14--z20--cycle; draw z10--z19; draw z11--z17; draw z12--z15;
+draw z18--z211{up}..{right}z2122..{down}z222--z16;
+%kut:=35;
+z2111=.8[z18,z211];
+z2222-z16=z2111-z18;
+draw z2111{dir 170}..{up}z199..{right}z177..{down}z155..{dir 190}z2222;
+endchar;
+
+
+
+beginchar(oct"074",1.6em#,4/3cap#,0); "dvokatni uglasti m"; % \mm
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x9=x20=w- x13=w-x14=good.x curve_sidebar;
+y9=.5*3/4h;
+y9=y10=y11=y12=y13;
+z10-z9=z11-z10=z12-z11=z13-z12;
+y1=y2=y5=y6=good.y 0;
+x1=w-x6; x2-x1=x6-x5;
+ x1=.5[x9,x10]; x5=.5[x11,x12];
+z4=.5[z9,z10];
+z3=.5[z10,z11]; z7=.5[z11,z12]; z8=.5[z12,z13];
+z20-z9=z19-z10=z17-z11=z15-z12=z14-z13=(0,3/4h-y9);
+draw z4--z1--z2--z3; draw z7--z5--z6--z8;
+draw z9--z13--z14--z20--cycle; draw z10--z19; draw z11--z17; draw z12--z15;
+endchar;
+
+beginchar(oct"075",1.1em#,cap#,0); "The letter jeje"; % \ee
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=x6=w-x8=w-x10=curve_sidebar;
+x3=x4=.5w; x2=x5=w-x7=w-x9=.5[x6,x4];
+x12-x4=x4-x11=.2w;
+y5=y7=0;; y11=y12=.5h; y2=y9=h;
+y3-y11=y11-y4=.2h;
+y2-y1=y6-y5=y9-y10=y8-y7=.2h;
+draw z1{up}..{right}z2..{down}z3--z4{down}..{left}z5..{up}z6;
+draw z10{up}..{left}z9..{down}z3;
+draw z4{down}..{right}z7..{up}z8;
+draw z11--z12;
+endchar;
+
+beginchar(oct"076",1.2em#,cap#,0); "The letter izze";
+pickup pencircle xscaled 1.3thick yscaled .25thin;
+x11=x12=x16=x15=w-x4=w-x5=w-x9=curve_sidebar;
+x18=x17=x13=x14=.4w;
+x1=x8=.55w; x2-x1=x4-x3=x7-x8=x5-x6=.15w;
+x9-x10=.15w;
+y15=y14=y7=y6=bot 0;
+y11=y18=y2=y3=top h;
+y11-y12=y16-y15=y18-y17=y13-y14=.2h;
+y8-y7=y2-y1=.2h;
+y3-y4=y5-y6=.4h;
+y10=y9=.5h;
+% kut=30;
+z19=(.5w,top h); y20=y21=4/3h;
+x19-x20=x21-x19=.1w;
+z20-z23=z22-z21=z21-z20;
+
+draw z11--z3{right}..{down}z4--z5{down}..z6{left}--z7{left}..{up}z8;
+draw z1{up}..{right}z2;
+draw z10--z9;
+draw z11--z12{down}..{down}z13--z14--z15--z16{up}..{up}z17--z18;
+pickup pencircle xscaled 1.2thick yscaled .25thin;
+draw z23--z20--z19--z21--z22;
+endchar;
+
+
+beginchar(oct"077",1.2em#,cap#,0); "The letter jezze";
+pickup pencircle xscaled 1.3thick yscaled .25thin;
+x11=x12=x16=x15=w-x4=w-x5=w-x9=curve_sidebar;
+x18=x17=x13=x14=.4w;
+x1=x8=.55w; x2-x1=x4-x3=x7-x8=x5-x6=.15w;
+x9-x10=.15w;
+y15=y14=y7=y6=bot 0;
+y11=y18=y2=y3=top h;
+y11-y12=y16-y15=y18-y17=y13-y14=.2h;
+y8-y7=y2-y1=.2h;
+y3-y4=y5-y6=.4h;
+y10=y9=.5h;
+z19=(.5w,top h); y20=y21=4/3h;
+x19-x20=x21-x19=.1w;
+z20-z23=z22-z21=z21-z20;
+
+draw z1{up}..z2{right}--z3{right}..{down}z4--z5{down}..z6{left}--z7{left}..{up}z8;
+draw z10--z9;
+z2-z19=z19-z30;
+
+
+pomak:=x1-x11;
+transform t; t=identity shifted (-pomak,0);
+addto currentpicture also currentpicture transformed t;
+pickup pencircle xscaled 1.2thick yscaled .25thin;
+draw z23--z20--z19--z21--z22;
+draw z2--z30;
+endchar;
+
+
+beginchar(oct"100",.85em#,cap#,0); "The letter krizz";
+pickup pencircle xscaled 1.3thick yscaled .25thin;
+x1=w-x2=curve_sidebar;
+x3=.5w; y1=y2=y3=.5h;
+sbr:=2;
+penpos1(sbr*thick,90);
+penpos2(sbr*thick,90);
+penpos3(sbr*.5thick,90);
+penstroke z1e..z3e..z2e;
+transform t; t=identity rotatedaround (z3,90);
+addto currentpicture also currentpicture transformed t;
+endchar;
+
+
+beginchar(oct"101",1.5em#,cap#,0); "The letter jazze";
+pickup pencircle xscaled 1.3thick yscaled .25thin;
+x2=w-x14=w-x19=w-x13=
+curve_sidebar;
+x1=.14w;
+x10=x17=.65w; x19-x18=.15w;
+x11-x10=x13-x12=x16-x17=x14-x15=.15w;
+
+x4=x5=.5w;
+x3=x8=.5[x2,x4];
+x7=x77=x8+.04w;
+x6=x4-.1w;
+
+x20=.5w; x20-x21=x22-x20=.1w;
+y24=y21=y22=y23=4/3h;
+z21-z24=z23-z22=z22-z21;
+
+y2=y3=y4=y16=y15=bot 0;
+y1=y7=y11=y12=y20=top h;
+y8=y77=y6=y18=y19=.5[y2,y1];
+y6-y5=x5-x6;
+y17-y16=y11-y10=.2h;
+y12-y13=y14-y15=.4h;
+
+z9=.5[z2,z1];
+
+draw z4--z2--z1--z12{right}..{down}z13--z14{down}..{left}z15--z16{left}..
+{up}z17; draw z18--z19; draw z10{up}..{right}z11;
+draw z7--z77; draw z4--z5{up}
+..{left}z6--z9; draw z8--z3;
+
+draw z24--z21--z20--z22--z23;
+endchar;
+
+
+beginchar(oct"102",1.2em#,cap#,0); "The letter komentar";
+pickup pencircle xscaled 1.5thick yscaled .3thin;
+x3=w-x1=w-x5=curve_sidebar;
+y3=.5h; y1=4/3h; y5=-1/3h;
+z22=(.5w,4/3h); z44=(.5w,-1/3h); z88=.5[z22,z44];
+path kr; kr=z1{left}..{down}z3..{right}z5;
+draw kr;
+z4= kr intersectionpoint (z44--z88);
+z2= kr intersectionpoint (z22--z88);
+pickup pencircle xscaled thick yscaled thick;
+penpos2(thick,20);
+penpos4(thick,-20);
+penstroke z2e--z4e;
+pickup pencircle xscaled thick yscaled .3thin;
+z6-z88=z88-z7=.22*(z2-z4);
+z8-z88=1.4(z7-z88) rotated 90;
+draw z6{right}..{down}z8..{left}z7;
+endchar;
+
+
+beginchar(oct"103",1.2em#,cap#,0); "The letter go";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=2x3=w-x4=w-x5=curve_sidebar;
+ x2=.4w; y3=-.05h; y5=0; y1=y2=h; y4=.5h;
+z6=.65[z3,z4]; z7=.45[z2,z3]; x7:=x7+.02w;
+z55=z5-(.69thick,-.15thin);
+kut:=angle(z4-z3);
+kut1:=angle(z3-z2);
+k:=1.4/cosd kut;
+z11=(x1,.1[y7,y1]);
+penpos2(1.4thick,0); penpos3(k*thick,kut);
+penpos6(1.4thick,kut); penpos5(1.4thick,0); penpos4(k*thick,kut);
+penpos55(.3thin,90);
+draw z7{left}..controls z11..{up}z1; draw z1--z2;
+penstroke z2e{dir(kut1+7)}..{dir(kut1-7)}
+z3e;
+
+penpos666((cosd kut)*1.4thick,0); z66=(x6, h); z666=(x5,h);
+penstroke z5e--z666e; penstroke z55e{left}..{dir(90+kut)}z6e;
+
+z8=(x6,.4[y6,y66]); z9=(x4,y8);
+ draw z666--z66{down}..controls z8..{right}z9;
+
+pickup pencircle xscaled 1.4thick yscaled.3thin rotated kut;
+draw z3--z4;
+endchar;
+
+
+
+beginchar(oct"104",1.2em#,cap#,0); "The letter gr";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=2x3=w-x4=w-x5=curve_sidebar;
+ x2=.4w; y3=-.05h; y5=0; y1=y2=h; y4=.5h;
+z6=.65[z3,z4]; z7=.45[z2,z3]; x7:=x7+.02w;
+z55=z5-(.69thick,-.15thin);
+kut:=angle(z4-z3);
+kut1:=angle(z3-z2);
+k:=1.4/cosd kut;
+z11=(x1,.1[y7,y1]);
+penpos2(1.4thick,0); penpos3(k*thick,kut);
+penpos6(1.4thick,kut); penpos5(1.4thick,0); penpos4(k*thick,kut);
+penpos55(.3thin,90);
+draw z7{left}..controls z11..{up}z1; draw z1--z2;
+penstroke z2e{dir(kut1+7)}..{dir(kut1-7)}
+z3e;
+
+penpos66((cosd kut)*1.4thick,0); z66=(x6, h); z666=(x5,h);
+penstroke z4e--z5e; penstroke z55e{left}..{dir(90+kut)}z6e;
+penstroke z6e--z66e; draw z66--z666;
+pickup pencircle xscaled 1.4thick yscaled.3thin rotated kut;
+draw z3--z4;
+endchar;
+
+beginchar(oct"105",1.2em#,cap#,0); "The letter hr";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+2x3=w-x4=w-x5=curve_sidebar;
+ x2=.3w; y3=-.05h; y5=0; y2=h; y4=.5h;
+z6=.65[z3,z4];
+z55=z5-(.69thick,-.15thin);
+kut:=angle(z4-z3);
+kut1:=angle(z3-z2);
+k:=1.4/cosd kut;
+penpos2(1.4thick,0); penpos3(k*thick,kut);
+penpos6(1.4thick,kut); penpos5(1.4thick,0); penpos4(k*thick,kut);
+penpos55(.3thin,90);
+penstroke z2e{dir(kut1+10)}..{dir(kut1-10)}z3e;
+
+penpos66((cosd kut)*1.4thick,0); z66=(x6, h); z666=(x5,h);
+penstroke z6e--z66e; draw z66--z666;
+penstroke z4e--z5e; penstroke z55e{left}..{dir(90+kut)}z6e;
+pickup pencircle xscaled 1.4thick yscaled.3thin rotated kut;
+draw z3--z4;
+endchar;
+
+
+beginchar(oct"106",1.2em#,cap#,0); "The letter ho";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+2x3=w-x4=w-x5=curve_sidebar;
+ x2=.3w; y3=-.05h; y5=0; y2=h; y4=.5h;
+z6=.65[z3,z4];
+z55=z5-(.69thick,-.15thin);
+kut:=angle(z4-z3);
+kut1:=angle(z3-z2);
+k:=1.4/cosd kut;
+penpos2(1.4thick,0); penpos3(k*thick,kut);
+penpos6(1.4thick,kut); penpos5(1.4thick,0); penpos4(k*thick,kut);
+penpos55(.3thin,90);
+penstroke z2e{dir(kut1+10)}..{dir(kut1-10)}z3e;
+
+penpos666((cosd kut)*1.4thick,0); z66=(x6, h); z666=(x5,h);
+%penstroke z6e--z66e;
+draw z66--z666;
+penstroke z5e--z666e; penstroke z55e{left}..{dir(90+kut)}z6e;
+
+z8=(x6,.4[y6,y66]); z9=(x4,y8);
+draw z66{down}..controls z8.. z9;
+pickup pencircle xscaled 1.4thick yscaled.3thin rotated kut;
+draw z3--z4;
+endchar;
+
+beginchar(oct"107",1.6em#,4/3cap#,0); "The letter myl";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x9=x20=w- x13=w-x14=good.x curve_sidebar;
+y9=.5*3/4h;
+y9=y10=y11=y12=y13;
+z10-z9=z11-z10=z12-z11=z13-z12;
+y1=y2=y5=y6=good.y 0;
+x1=w-x6; x2-x1=x6-x5;
+ x1=.5[x9,x10]; x5=.5[x11,x12];
+z4=.5[z9,z10];
+z3=.5[z10,z11]; z7=.5[z11,z12]; z8=.5[z12,z13];
+z20-z9=z19-z10=z17-z11=z15-z12=z14-z13=(0,3/4h-y9);
+z21-z18=z22-z16;
+z18=.5[z19,z17]; z16=.5[z17,z15]; y21=good.y h;
+x18=x21;
+draw z4--z1--z2--z3; draw z7--z5--z6--z8;
+draw z9--z13--z14--z20--cycle; draw z10--z19; draw z11--z17; draw z12--z15;
+draw z18--z21--z22--z16;
+draw z2--z5;
+z.16=.5[z2,z5]; z.166=(x.16,-.3h);
+z.l=(x.16-.1w,y.166); z.r=(x.16+.1w,y.166);
+draw z.16--z.166; draw z.l--z.r;
+endchar;
+
+
+
+beginchar(oct"110",em#,4/3cap#,0); "The letter ly";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=x8=w-x6=w-x7=curve_sidebar;
+%x2-x1=x6-x5=.25w; y1=y2=y5=y6=0;
+x2-x1=x5-x2=x6-x5; y1=y2=y5=y6=0;
+x2-x3=x4-x5=.33(x2-x1);
+y3=y4=good.y h; y8=y7=.75h;
+z8-z1=z23-z2; z7-z6=z54-z5;
+draw z1--z2--z23{up}..{dir150}z3--z4{dir-150}..{down}z54--z5
+--z6--z7--z8--z1;
+draw z1--z6;
+z16=.5[z1,z6]; z166=(x16,-.4*3/4*h);
+z.l=(x16-.1w,y166); z.r=(x16+.1w,y166);
+draw z16--z166; draw z.l--z.r;
+penlabels(1,2,3,4,5,6,7,8);
+endchar;
+
+
diff --git a/language/croatian/fonts/mf/kraj.mf b/language/croatian/fonts/mf/kraj.mf
new file mode 100644
index 0000000000..764c1769ad
--- /dev/null
+++ b/language/croatian/fonts/mf/kraj.mf
@@ -0,0 +1,240 @@
+
+
+beginchar(oct"075",1.1em#,cap#,0); "The letter jeje"; % \jeje
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=x6=w-x8=w-x10=curve_sidebar;
+x3=x4=.5w; x2=x5=w-x7=w-x9=.5[x6,x4];
+x12-x4=x4-x11=.2w;
+y5=y7=0;; y11=y12=.5h; y2=y9=h;
+y3-y11=y11-y4=.2h;
+y2-y1=y6-y5=y9-y10=y8-y7=.2h;
+draw z1{up}..{right}z2..{down}z3--z4{down}..{left}z5..{up}z6;
+draw z10{up}..{left}z9..{down}z3;
+draw z4{down}..{right}z7..{up}z8;
+draw z11--z12;
+endchar;
+
+beginchar(oct"076",1.2em#,cap#,0); "The letter izze";
+pickup pencircle xscaled 1.3thick yscaled .25thin;
+x11=x12=x16=x15=w-x4=w-x5=w-x9=curve_sidebar;
+x18=x17=x13=x14=.4w;
+x1=x8=.55w; x2-x1=x4-x3=x7-x8=x5-x6=.15w;
+x9-x10=.15w;
+y15=y14=y7=y6=bot 0;
+y11=y18=y2=y3=top h;
+y11-y12=y16-y15=y18-y17=y13-y14=.2h;
+y8-y7=y2-y1=.2h;
+y3-y4=y5-y6=.4h;
+y10=y9=.5h;
+% kut=30;
+z19=(.5w,top h); y20=y21=4/3h;
+x19-x20=x21-x19=.1w;
+z20-z23=z22-z21=z21-z20;
+
+draw z11--z3{right}..{down}z4--z5{down}..z6{left}--z7{left}..{up}z8;
+draw z1{up}..{right}z2;
+draw z10--z9;
+draw z11--z12{down}..{down}z13--z14--z15--z16{up}..{up}z17--z18;
+pickup pencircle xscaled 1.2thick yscaled .25thin;
+draw z23--z20--z19--z21--z22;
+endchar;
+
+
+beginchar(oct"077",1.2em#,cap#,0); "The letter jezze";
+pickup pencircle xscaled 1.3thick yscaled .25thin;
+x11=x12=x16=x15=w-x4=w-x5=w-x9=curve_sidebar;
+x18=x17=x13=x14=.4w;
+x1=x8=.55w; x2-x1=x4-x3=x7-x8=x5-x6=.15w;
+x9-x10=.15w;
+y15=y14=y7=y6=bot 0;
+y11=y18=y2=y3=top h;
+y11-y12=y16-y15=y18-y17=y13-y14=.2h;
+y8-y7=y2-y1=.2h;
+y3-y4=y5-y6=.4h;
+y10=y9=.5h;
+z19=(.5w,top h); y20=y21=4/3h;
+x19-x20=x21-x19=.1w;
+z20-z23=z22-z21=z21-z20;
+
+draw z1{up}..z2{right}--z3{right}..{down}z4--z5{down}..z6{left}--z7{left}..{up}z8;
+draw z10--z9;
+z2-z19=z19-z30;
+
+
+pomak:=x1-x11;
+transform t; t=identity shifted (-pomak,0);
+addto currentpicture also currentpicture transformed t;
+pickup pencircle xscaled 1.2thick yscaled .25thin;
+draw z23--z20--z19--z21--z22;
+draw z2--z30;
+endchar;
+
+
+beginchar(oct"100",.85em#,cap#,0); "The letter krizz";
+pickup pencircle xscaled 1.3thick yscaled .25thin;
+x1=w-x2=curve_sidebar;
+x3=.5w; y1=y2=y3=.5h;
+sbr:=2;
+penpos1(sbr*thick,90);
+penpos2(sbr*thick,90);
+penpos3(sbr*.5thick,90);
+penstroke z1e..z3e..z2e;
+transform t; t=identity rotatedaround (z3,90);
+addto currentpicture also currentpicture transformed t;
+endchar;
+
+
+beginchar(oct"101",1.5em#,cap#,0); "The letter jazze";
+pickup pencircle xscaled 1.3thick yscaled .25thin;
+x2=w-x14=w-x19=w-x13=
+curve_sidebar;
+x1=.14w;
+x10=x17=.65w; x19-x18=.15w;
+x11-x10=x13-x12=x16-x17=x14-x15=.15w;
+
+x4=x5=.5w;
+x3=x8=.5[x2,x4];
+x7=x77=x8+.04w;
+x6=x4-.1w;
+
+x20=.5w; x20-x21=x22-x20=.1w;
+y24=y21=y22=y23=4/3h;
+z21-z24=z23-z22=z22-z21;
+
+y2=y3=y4=y16=y15=bot 0;
+y1=y7=y11=y12=y20=top h;
+y8=y77=y6=y18=y19=.5[y2,y1];
+y6-y5=x5-x6;
+y17-y16=y11-y10=.2h;
+y12-y13=y14-y15=.4h;
+
+z9=.5[z2,z1];
+
+draw z4--z2--z1--z12{right}..{down}z13--z14{down}..{left}z15--z16{left}..
+{up}z17; draw z18--z19; draw z10{up}..{right}z11;
+draw z7--z77; draw z4--z5{up}
+..{left}z6--z9; draw z8--z3;
+
+draw z24--z21--z20--z22--z23;
+endchar;
+
+
+beginchar(oct"102",1.2em#,cap#,0); "The letter komentar";
+pickup pencircle xscaled 1.5thick yscaled .3thin;
+x3=w-x1=w-x5=curve_sidebar;
+y3=.5h; y1=4/3h; y5=-1/3h;
+z22=(.5w,4/3h); z44=(.5w,-1/3h); z88=.5[z22,z44];
+path kr; kr=z1{left}..{down}z3..{right}z5;
+draw kr;
+z4= kr intersectionpoint (z44--z88);
+z2= kr intersectionpoint (z22--z88);
+pickup pencircle xscaled thick yscaled thick;
+penpos2(thick,20);
+penpos4(thick,-20);
+penstroke z2e--z4e;
+pickup pencircle xscaled thick yscaled .3thin;
+z6-z88=z88-z7=.22*(z2-z4);
+z8-z88=1.4(z7-z88) rotated 90;
+draw z6{right}..{down}z8..{left}z7;
+endchar;
+
+beginchar(oct"103",1.2em#,cap#,0); "The letter go";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=2x3=w-x4=w-x5=curve_sidebar;
+ x2=.4w; y3=-.05h; y5=0; y1=y2=h; y4=.5h;
+z6=.65[z3,z4]; z7=.45[z2,z3]; x7:=x7+.02w;
+z55=z5-(.69thick,-.15thin);
+kut:=angle(z4-z3);
+kut1:=angle(z3-z2);
+k:=1.4/cosd kut;
+z11=(x1,.1[y7,y1]);
+penpos2(1.4thick,0); penpos3(k*thick,kut);
+penpos6(1.4thick,kut); penpos5(1.4thick,0); penpos4(k*thick,kut);
+penpos55(.3thin,90);
+draw z7{left}..controls z11..{up}z1; draw z1--z2;
+penstroke z2e{dir(kut1+7)}..{dir(kut1-7)}
+z3e;
+
+penpos666((cosd kut)*1.4thick,0); z66=(x6, h); z666=(x5,h);
+penstroke z5e--z666e; penstroke z55e{left}..{dir(90+kut)}z6e;
+
+z8=(x6,.4[y6,y66]); z9=(x4,y8);
+ draw z666--z66{down}..controls z8..{right}z9;
+
+pickup pencircle xscaled 1.4thick yscaled.3thin rotated kut;
+draw z3--z4;
+endchar;
+
+
+beginchar(oct"104",1.2em#,cap#,0); "The letter gr";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=2x3=w-x4=w-x5=curve_sidebar;
+ x2=.4w; y3=-.05h; y5=0; y1=y2=h; y4=.5h;
+z6=.65[z3,z4]; z7=.45[z2,z3]; x7:=x7+.02w;
+z55=z5-(.69thick,-.15thin);
+kut:=angle(z4-z3);
+kut1:=angle(z3-z2);
+k:=1.4/cosd kut;
+z11=(x1,.1[y7,y1]);
+penpos2(1.4thick,0); penpos3(k*thick,kut);
+penpos6(1.4thick,kut); penpos5(1.4thick,0); penpos4(k*thick,kut);
+penpos55(.3thin,90);
+draw z7{left}..controls z11..{up}z1; draw z1--z2;
+penstroke z2e{dir(kut1+7)}..{dir(kut1-7)}
+z3e;
+
+penpos66((cosd kut)*1.4thick,0); z66=(x6, h); z666=(x5,h);
+penstroke z4e--z5e; penstroke z55e{left}..{dir(90+kut)}z6e;
+penstroke z6e--z66e; draw z66--z666;
+pickup pencircle xscaled 1.4thick yscaled.3thin rotated kut;
+draw z3--z4;
+endchar;
+
+beginchar(oct"105",1.2em#,cap#,0); "The letter hr";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+2x3=w-x4=w-x5=curve_sidebar;
+ x2=.3w; y3=-.05h; y5=0; y2=h; y4=.5h;
+z6=.65[z3,z4];
+z55=z5-(.69thick,-.15thin);
+kut:=angle(z4-z3);
+kut1:=angle(z3-z2);
+k:=1.4/cosd kut;
+penpos2(1.4thick,0); penpos3(k*thick,kut);
+penpos6(1.4thick,kut); penpos5(1.4thick,0); penpos4(k*thick,kut);
+penpos55(.3thin,90);
+penstroke z2e{dir(kut1+10)}..{dir(kut1-10)}z3e;
+
+penpos66((cosd kut)*1.4thick,0); z66=(x6, h); z666=(x5,h);
+penstroke z6e--z66e; draw z66--z666;
+penstroke z4e--z5e; penstroke z55e{left}..{dir(90+kut)}z6e;
+pickup pencircle xscaled 1.4thick yscaled.3thin rotated kut;
+draw z3--z4;
+endchar;
+
+
+beginchar(oct"106",1.2em#,cap#,0); "The letter ho";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+2x3=w-x4=w-x5=curve_sidebar;
+ x2=.3w; y3=-.05h; y5=0; y2=h; y4=.5h;
+z6=.65[z3,z4];
+z55=z5-(.69thick,-.15thin);
+kut:=angle(z4-z3);
+kut1:=angle(z3-z2);
+k:=1.4/cosd kut;
+penpos2(1.4thick,0); penpos3(k*thick,kut);
+penpos6(1.4thick,kut); penpos5(1.4thick,0); penpos4(k*thick,kut);
+penpos55(.3thin,90);
+penstroke z2e{dir(kut1+10)}..{dir(kut1-10)}z3e;
+
+penpos666((cosd kut)*1.4thick,0); z66=(x6, h); z666=(x5,h);
+%penstroke z6e--z66e;
+draw z66--z666;
+penstroke z5e--z666e; penstroke z55e{left}..{dir(90+kut)}z6e;
+
+z8=(x6,.4[y6,y66]); z9=(x4,y8);
+draw z66{down}..controls z8.. z9;
+pickup pencircle xscaled 1.4thick yscaled.3thin rotated kut;
+draw z3--z4;
+endchar;
+
+
diff --git a/language/croatian/fonts/mf/kur.mf b/language/croatian/fonts/mf/kur.mf
new file mode 100644
index 0000000000..cb85954896
--- /dev/null
+++ b/language/croatian/fonts/mf/kur.mf
@@ -0,0 +1,81 @@
+
+% Cursive Croatian Glagolitic, 1994, darko.zubrinic@etf.hr
+
+
+
+mode_setup;
+ u#:=4/3*.8pt#; font_quad= 30u#;
+ font_normal_space= 10u#; %umjesto 8
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=4/3*10pt#; cap#:=4/3*7pt#;
+ thin#:=2/3pt#; thick#:=1.15*5/6pt#;
+ o#:=4/3*1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:= round 1.1*1/10em;
+currenttransform := identity slanted 1/4;
+
+input kurzivv % velika slova
+
+
+
+mode_setup;
+u#:=3/4u#;
+em#:=3/4em#; cap#:=3/4cap#;
+ thick#:=1/1.15thick#;
+o#:=3/4o#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+%curve_sidebar:=3/4curve_sidebar;
+
+currenttransform := identity slanted 1/4;
+
+input kurzivm % mala slova
+
+
+input glz % znakovi
+
+
+
+
+
+ligtable "c": "c" =: oct"013", "h" =: oct"011";
+ligtable "s": "s" =: oct"014"; %umjesto sh
+ligtable "z": "h" =: oct"015", "z" =: oct"015"; % "o" kern -.5u#,
+ % "u" kern -.5u#;
+ligtable "y": "a" =: oct"176", "e" =: oct"176", "u" =: oct"177";
+%ligtable "l": "l" =: oct"017";
+ligtable "-": "-" =: oct"173";
+%ligtable "e": "i" kern -.5u#;
+%ligtable "f": "o" kern -u#, "u" kern -u#, "i" kern -.5u#, "g" kern-.5u#;
+%ligtable "i": "f" kern -.5u#;
+%ligtable "r": "k" kern -.5u#;
+%ligtable "n": "a" kern -.5u#;
+%ligtable "y": "a" kern -.5u#;
+
+u#:=4/3u#;
+
+
+
+ligtable "C": "c" =: oct"023", "C" =: oct "023", "H" =:
+ oct"021", "h" =: oct"021";
+ligtable "S": "S" =: oct"024", "s" =: oct"024";
+ligtable "Z": "h" =: oct"025", "Z" =: oct"025", "z"=: oct"025",
+ "H" =: oct"025"; % "O" kern -.5u#,
+ %"u" kern -.5u#;
+
+ligtable "Y": "a" =: oct"136", "A" =: oct"136", "e" =: oct"136",
+ "E" =: oct"136", "u" =: oct"137", "U" =: oct"137";
+
+%ligtable "L": "l" =: oct"027", "L" =: oct"027";
+%ligtable "E": "I" kern -.5u#;
+%ligtable "F": "O" kern -u#, "U" kern -u#, "I" kern -.5u#, "G" kern-.5u#;
+%ligtable "I": "F" kern -.5u#;
+%ligtable "R": "K" kern -.5u#;
+%ligtable "N": "A" kern -.5u#;
+
+
+
+end.
+
diff --git a/language/croatian/fonts/mf/kurzivm.mf b/language/croatian/fonts/mf/kurzivm.mf
new file mode 100644
index 0000000000..b86770b317
--- /dev/null
+++ b/language/croatian/fonts/mf/kurzivm.mf
@@ -0,0 +1,432 @@
+% oct"074" = drugi s (s trokutichem)
+% oct"074" = drugi s (s trokutichem)
+
+beginchar("a",.8em#,cap#,0); "The letter a";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x4=w-x2=w-x3=curve_sidebar; x5=x6=.5w;
+bot y1=bot y5=bot y2= 0; y3=y4=.5h; top y6= h;
+draw z1--z4--z3--z2; draw z5--z6;
+endchar;
+
+beginchar("b",.9em#,.5cap#,.6cap#); "The letter b";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x7=w-1.07x5=curve_sidebar; x6=x4=.51w; x2=.2w;
+bot y3=bot y4=bot y5= 0; top y1=top y6=top y7= h;
+y2=-d; z3=whatever[z1,z2];
+draw z1--z2; draw z3--z5--z7; draw z4--z6;
+endchar;
+
+beginchar("d",.9em#,1.2cap#,0); "The letter d";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=curve_sidebar;
+x3=.4w;
+ x2=x4=.5[x1,x3]; x5=.5w;
+y1=y3=x2-x1; y4=2y1; bot y2=0; top y5= h;
+draw z1{down}..{right}z2..{up}z3..{left}z4..cycle; z13=.5[z1,z3];
+kut:=10;
+z33-z13=(z3-z13) rotated kut;
+draw z33{dir (kut+90)}..{right}z5;
+z66=(w-x33,y33);
+z6=(w-x1,y1);
+z7=(w-x2,y2);
+z8=(w-x3,y3);
+z9=(w-x4,y4);
+draw z8{down}..{right}z7..{up}z6..{left}z9..cycle;
+draw z66{dir (90-kut)}..{left}z5;
+picture slovo_d; slovo_d=currentpicture;
+endchar;
+
+
+
+beginchar("g",.9em#,1.2cap#,0); "The letter g";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+mm:=.25w-.5curve_sidebar;
+transform sa; sa=identity rotatedabout ((.5w+1/4mm,mm),180);
+addto currentpicture also slovo_d transformed sa;
+endchar;
+
+
+
+beginchar("e",.4em#,.5cap#,0); "The letter e";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x3=w-x2=curve_sidebar; bot y3=0; y2=.5h; top y1= h;
+draw z1{right}.. {down}z2..{left}z3;
+endchar;
+
+beginchar("z",em#,1.2cap#,.7cap#); "The letter z";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x2=w-x7=curve_sidebar;
+rb:=.22h;
+x4=.38w; x3=x1=.5[x2,x4]; x9=x7-2rb;
+x6=x8=.5[x9,x7];
+y1=h;
+y2=y4=y6=2rb;
+bot y8=0; y9=y7=.5[y6,y8];
+y3=-d;
+bot z22=(x2,0); bot z44=(x4,0);
+kut:=55;
+draw z22--z2{up}..{dir kut}z1{dir(-kut)}..{down}z4--z44{down}..tension1.5..
+%{dir(180+kut)}z3{dir(180-kut)}
+{left}z3
+..tension1.5.. {up}z22;
+draw z2--z6{right}..{down}z7..{left}z8..{up}z9..{right}z6;
+endchar;
+
+beginchar("8",em#,cap#,0); "The letter dz";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=
+w-x4=w-x5=w-1.2x8=w-1.2x7=curve_sidebar;
+x3=x6=x10=.5w;
+x12=.2w; x9=x11=.5[x12,x10];
+bot y2=bot y3=bot y4=0; y1=y5=.5h; y6=.47h;
+y9=.75h; y11-y9=x10-x12; y10=y12=.5[y9,y11];
+y9-y8=.07h; y8-y7=.07h;
+z100=(x10,y7);
+draw z1--z2--z4--z5; draw z3--z6;
+pickup pencircle xscaled 1.1thick yscaled .2thin;
+draw z100--z10{up}..{left}z11..{down}z12..{right}z9..{down}z8--z7;
+endchar;
+
+
+
+
+beginchar("i",.9em#,.5cap#,0); "The letter i";
+pickup pencircle xscaled 1.3thick yscaled .25thin;
+x2=w-x6=curve_sidebar;
+x1=x3=w-x7=w-x5=.3w;
+x4=.5w;
+bot y3=bot y7= 0; top y1=top y5= h; y2=y4=y6=.5h;
+draw z1{left}..{down}z2..{right}z3..z4..{right}z5..{down}z6..{left}z7;
+endchar;
+
+beginchar("j",1.1em#,.5cap#,.5cap#); "The letter j";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x6=w-x4=curve_sidebar;
+x3=x7=.6w; x2=x8=.5[x1,x3];
+x1-x5=x4-x3;
+top y1=top y2=top y3= h;
+y6+.1h=y8=y7-.1h= 0;
+-y5=y4=.6h;
+z9=(x1,-d);
+draw z1--z3{right}..{down}z4
+..tension 1.3..{dir angle(z6-z7)}z7--z6{dir angle(z6-z7)}..tension1.3..
+{down}z5..tension1.3..
+{dir angle(z7-z6)}z9;
+z66=(x6,-.5d);
+z88=(x8,-.5d);
+z77=(x7,-.5d);
+draw z1--z66; draw z2--z88; draw z3--z77;
+endchar;
+
+
+beginchar("y",.9em#,.5cap#,.8cap#); "The letter izze-10";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x6=.9x9=w-x3=w-x4=w-.9x10=w-.9x11=curve_sidebar;
+x5=x2=x7=.5w;
+x8=.5[x9,x7];
+y6=y5=y4=h; bot y1=bot y2=bot y3= 0;
+y7=-.4d; y9=y10=.5[y7,y8];
+y8=-d; y11=-.9d;
+draw z5--z6--z1--z3--z4--z5--z7{down}..{left}z8..{up}z9..
+%{right}z7..
+tension3..
+{down}z10--z11;
+endchar;
+
+
+
+beginchar("k",.4em#,.5cap#,.7cap#); "The letter k";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x3=w-x2=w-x4=w-x5=curve_sidebar;
+x6-x5=x2-x1=x7-x6;
+top y1= h; y2=.5h; bot y3=0; y4=-.33d; y6=-d;
+y5-y6=y7-y6=x6-x5;
+draw z1{right}..{down}z2..{left}z3{right}..{down}z4--z5{down}
+..z6{right}..{up}z7;
+endchar;
+
+
+
+
+beginchar("m",.9em#,.5cap#,0); "The letter m";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=w-x8=w-x9=curve_sidebar;
+x3=x2=.25w; x5=x6=.5[x3,x9];
+x4=.5[x3,x6]; x7=.5[x6,x9];
+top y1=top y4=top y7= h; y2=y5=y8=.5h;
+bot y3=bot y6=bot y9=0;
+draw z1{right}..{down}z2--z3;
+draw z2{up}..{right}z4..{down}z5--z6;
+draw z5{up}..{right}z7..{down}z8--z9;
+endchar;
+
+
+beginchar("n",.5em#,.5cap#,.7cap#); "The letter n";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x4=curve_sidebar; y1=h; y2=-d; x2=2curve_sidebar; y3=0; z3= whatever[z1,z2];
+y4=.5h;
+draw z1--z2; draw z1{right}..{dir(angle(z2-z1))}z4..{left}z3;
+endchar;
+
+beginchar("o",.65em#,.5cap#,.8cap#); "The letter o";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x3=x7=w-x8=curve_sidebar;
+x1=.7w; x2-x3=x4-x3=x1-x2;;
+x5=.8w; x6=.5w;
+bot y2=bot y8=0; y1=y3=.5h; top y4= h;
+y5=-.3d; y6=-d; y7=-.85d;
+draw z1{down}..{left}z2..{up}z3..{right}z4..{dir(-90+15)}z1..{down}z5
+..{left}z6..z7{up}..{dir(20)}z8;
+endchar;
+
+
+beginchar("p",.75em#,.5cap#,.5cap#); "The letter p";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x3=w-x6=curve_sidebar;
+x5=.5w; x4=.5[x5,x6];
+y1=-d; bot y4=0; y5=y6=.5h; top y2=top y3= h;
+draw z1--z2--z3--z6{down}..{left}z4..{up}z5;
+endchar;
+
+
+
+beginchar("r",.55em#,1.2cap#,0); "The letter r";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x6=x3=w-x5=curve_sidebar;
+x1=w; x2=.65w;
+x4=x7=.5w;
+bot y4=0; top y2= h; y1=.8h;
+y3=.5h/1.2;
+y6=y5=.25h/1.2;
+y7=.5h/1.2;
+draw z1{up}
+%{dir(90+15)}
+..{left}z2..
+{down}z3..{down}z6..{right}z4..{up}z5..{left}z7;
+pickup pencircle xscaled .3thick yscaled .3thin;
+draw z7{left}..{down}z6;
+endchar;
+
+beginchar("s",.7em#,cap#,0); "The letter s";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x4=w-x5=curve_sidebar;
+x3=x6=.5w; top y6= h;
+y3=.4h;
+y4=y5=.78h;
+y1=y7=.5y3;
+x1=w-x7=.3w; bot z2=(.5w,0);
+draw z1{up}..z3{dir (30)}..{up}z5..{left}z6..{down}z4..{dir(-30)}z3..
+{down}z7..{left}z2..cycle;
+endchar;
+
+
+
+beginchar(oct"074",.7em#,cap#,0); "The letter drugi s";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x4=w-x5=w-x2=curve_sidebar;
+x3=x6=.5w; bot y1=bot y2=0; top y6= h;
+y3=.3h;
+y4=y5=.78h;
+draw z1--z2--z3{dir (angle(z3-z2))}..{up}z4..{right}z6..{down}z5..
+{dir(angle(z1-z3))}z3--z1;
+endchar;
+
+
+
+beginchar(oct"014",.8em#,.5cap#,0); "The letter ss";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x2=w-x4=w-x5=curve_sidebar; x3=x6=.5w;
+y1=y5=h; y6=.95h; y2=y3=y4=0;
+draw z1--z2--z3--z4--z5; draw z3--z6;
+endchar;
+
+beginchar("c",.85em#,1.2cap#,.7cap#); "The letter c";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=w-x6=curve_sidebar;
+x8-x6=x6-x3;
+x3=.55w; x2=x4=.5[x1,x3]; x5=.5[x3,x6]; x7=.5[x6,x8];
+y1=y3=y6=.25h/1.2; y2=0; y4-y3=y3-y2;
+top y7=h; y8=.7h; y5=-d;
+draw z1{down}..z2{right}..{up}z3..{left}z4..cycle;
+draw z3{down} %..tension1.3
+..{right}z5 %..tension1.2
+..{dir (angle(z7-z5)+18)}
+z6
+..{right}z7..%tension1.4..
+{down}z8;
+endchar;
+
+
+
+beginchar("q",em#,.5cap#,.5cap#); "The letter ot";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x5=w-x6=curve_sidebar;
+x3=x7=w-x4=w-x8=.37w; x7-x9=x10-x8=.15w;
+top y1=top y3=top y4=top y5= h;
+bot y2=bot y6=0; y9=y7=y8=y10=-d;
+z37=(x3,.7h);
+z48=(x4,.7h);
+draw z7--z37{up}..{left}z1--z2--z6--z5{left}..{down}z48--z8;
+draw z9--z10;
+endchar;
+
+
+beginchar(oct"013",.55em#,.5cap#,.7cap#); "The letter cc";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x8=x2=w-x5=w-x4=w-x6=curve_sidebar;
+x3=.5[x1,x5]; bot y3=0; y1=y5=h;
+y2=y4=.33h;
+y7=-d;
+y6=-.52d; y8=y9=.5[y7,y6];
+x9-x6=x6-x8;
+x7=.5w;
+z66=(x6,-.45d); z99=(x9,-.9d);
+draw z1--z2{down}..{right}z3..{up}z4;
+draw z5--z6{down} ..{left}z7..{up}z8..{right}z66..{down}z9--z99;
+endchar;
+
+beginchar("u",.5em#,.5cap#,.4cap#); "The letter u";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=x5=w-x3=w-x6=curve_sidebar;
+x2=x4=.5w;
+y2=.2h+d; top y1=top y6=h+d; bot y4=0; y5=y3=.5[y4,y2];
+draw z1{down}..z2..{down}z3..{left}z4..{up}z5..z2..{up}z6;
+endchar;
+
+
+
+
+
+beginchar("v",.95em#,.5cap#,0); "The letter v";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x7=w-x8=curve_sidebar;
+x1-x7=x9-x4=x3-x10=x8-x2=.05w;
+x9=w-x10=.37w; x5=w-x6=.5[x1,x4];
+bot y1=bot y4=bot y3=bot y2=0;
+top y5=top y6=h; y7=y9=y10=y8=.5h;
+draw z1..z7{up}..{right}z5..{down}z9..z4;
+draw z1--z2;
+draw z2..z8{up}..{left}z6..{down}z10..z3;
+picture slovo_v; slovo_v=currentpicture;
+endchar;
+
+beginchar("t",.95em#,.5cap#,0); "The letter t";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+transform s; s=identity rotatedabout ((.5w+1/4*.5h,.5h),180);
+addto currentpicture also slovo_v transformed s;
+endchar;
+
+beginchar("l",.95em#,cap#,0); "The letter l";
+transform t; t=identity rotatedabout ((.5w+1/4*.25h,.25h),180);
+addto currentpicture also slovo_v transformed t;
+pickup pencircle xscaled .8thick yscaled .3thin;
+x10=w-2curve_sidebar;
+rr:=.13h;
+x40=x60=.5w;
+x40-x50=x30-x40=rr;
+x20=x50;
+h:=1.2h;
+top y10=top y20= h; y50=y30=.75h;
+y50-y40=y60-y50=rr;
+draw z50{down}..z40{right}..{up}z30..{left}z60..cycle;
+draw z30{up}..{left}z20--z10;
+endchar;
+
+
+
+beginchar(oct"015",.95em#,.5cap#,0); "The letter zz";
+pickup pencircle xscaled 1.3thick yscaled .2thin;
+transform s; s=identity rotatedabout ((.5w+1/4*.5h,.5h),180); %.25
+addto currentpicture also slovo_v transformed s;
+x1=w-x3=.25w; y1=y3=1.6h;
+top z2=(.5w,h);
+draw z1{right}..{down}z2{up}..{right}z3;
+endchar;
+
+beginchar(oct"011",.8em#,.5cap#,.7cap#); "The letter ch";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+x5=.5w;
+top y1=top 1.1y5=top y4= h;
+bot y2=bot y3= 0;
+x6=.5w; x8=w-x9=w-x99=0;
+x7=.45[x6,x8];
+y7=-d;
+y6=-.52d; y8=.5[y7,y6]; y9=.6[y8,-d]; y99=-d;
+draw z1--z2--z3--z4;
+%pickup pencircle xscaled thick yscaled .3thin;
+draw z5--z6{down}..{left}z7..{up}z8...{right}z6...
+{down}z9--z99;
+endchar;
+
+
+
+
+beginchar(oct"022",.8em#,.5cap#,.5cap#); "druga varijanta ch";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+x5=x6=.5w; x9=.8w;
+x7-x6=x9-x8=1/4(x9-x6);
+top y1=top y5=top y4= h;
+bot y2=bot y3=0;
+y9=-d; y6=y8=.-1/3d; y7=y10=-2/3d;
+x10=x9; x78=.5[x7,x8]; y78=.5[y7,y8];
+draw z1--z2--z3--z4;
+pickup pencircle xscaled thick yscaled .3thin;
+draw z5--z6{down}..{right}z7..z78..
+{right}z8..{down}z10--z9;
+endchar;
+
+beginchar("f",.85em#,1.2cap#,.7cap#); "The letter f";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x2=curve_sidebar; x4=x11=.5w;
+x1=x3=.5[x2,x4];
+x13=.8w; x12-x11=x13-x12;
+y3=0; y2=y4=x3-x2=.5y1; y12=h; y12-y11=y12-y13=x12-x11;
+z5=(w-x1,y1); z6=(w-x2,y2); z7=(w-x3,y3); z8=(x11,-d+(y12-y11));
+z9=(w-x12,-d); z10=(w-x13,-d+(y12-y13));
+draw z1{left}..{down}z2..{right}z3..{up}z4--z11{up}..{right}z12..{down}z13;
+draw z7{right}..{up}z6..{left}z5..{down}z4--z8{down}..{left}z9..{up}z10;
+endchar;
+
+
+
+beginchar("h",.6em#,1.2cap#,.7cap#); "The letter h";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=x6=w-x4=curve_sidebar;
+x3=x5=.5[x1,x4]; x8=.75w; x7=.5[x1,x8];
+y1=-d; bot y2=bot y5= 0; y3= .5h/1.2; y4=.5 y3;
+top y7= h; y6=y8=.8h;
+draw z1--z6{up}..{right}z7..{down}z8;
+draw z2{up}..{right}z3..{down}z4..{left}z5;
+endchar;
+
+
+
+beginchar(oct"176",.9em#,1.2cap#,0); "The letter jat";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x5=w-x4=curve_sidebar;
+x3=.55w; x2-x1=.5(x3-x1); x6=.65w;
+bot y1=bot y3=bot y4=0; y5=.25h/1.2;
+y7=y6=.5h/1.2; top y2=h;
+z7=whatever[z1,z2];
+draw z1--z2--z3; draw z7--z6{right}..{down}z5--z4--z1;
+endchar;
+
+beginchar(oct"177",.8em#,.5cap#,.5cap#); "The letter ju";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x6=w-x4=curve_sidebar;
+x3=x7=.5w;
+x1-x5=x4-x3;
+top y1=top y3= h;
+y6+.1h=y7-.1h= 0;
+-y5=y4=.6h;
+z9=(x1,-d);
+draw z1--z3{right}..{down}z4
+..tension 1.3..{dir angle(z6-z7)}z7--z6{dir angle(z6-z7)}..tension1.3..
+{down}z5..%tension1.1..
+{dir angle(z7-z6)}z9;
+draw z1--z6; draw z3--z7;
+endchar;
+
+
diff --git a/language/croatian/fonts/mf/kurzivv.mf b/language/croatian/fonts/mf/kurzivv.mf
new file mode 100644
index 0000000000..ce0102bbda
--- /dev/null
+++ b/language/croatian/fonts/mf/kurzivv.mf
@@ -0,0 +1,429 @@
+% oct"076" = drugi s (s trokutichem)
+% oct"076" = drugi s (s trokutichem)
+
+beginchar("A",.8em#,cap#,0); "The letter A";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x4=w-x2=w-x3=curve_sidebar; x5=x6=.5w;
+bot y1=bot y5=bot y2= 0; y3=y4=.5h; top y6= h;
+draw z1--z4--z3--z2; draw z5--z6;
+endchar;
+
+beginchar("B",.9em#,.5cap#,.6cap#); "The letter B";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x7=w-1.07x5=curve_sidebar; x6=x4=.51w;; x2=.2w;
+bot y3=bot y4=bot y5= 0; top y1=top y6=top y7= h;
+y2=-d; z3=whatever[z1,z2];
+draw z1--z2; draw z3--z5--z7; draw z4--z6;
+endchar;
+
+beginchar("D",.9em#,1.2cap#,0); "The letter D";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=curve_sidebar;
+x3=.4w;
+ x2=x4=.5[x1,x3]; x5=.5w;
+y1=y3=x2-x1; y4=2y1; bot y2=0; top y5= h;
+draw z1{down}..{right}z2..{up}z3..{left}z4..cycle; z13=.5[z1,z3];
+kut:=10;
+z33-z13=(z3-z13) rotated kut;
+draw z33{dir (kut+90)}..{right}z5;
+z66=(w-x33,y33);
+z6=(w-x1,y1);
+z7=(w-x2,y2);
+z8=(w-x3,y3);
+z9=(w-x4,y4);
+draw z8{down}..{right}z7..{up}z6..{left}z9..cycle;
+draw z66{dir (90-kut)}..{left}z5;
+picture slovo_D; slovo_D=currentpicture;
+endchar;
+
+
+
+beginchar("G",.9em#,1.2cap#,0); "The letter G";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+mm:=.25w-.5curve_sidebar;
+transform sa; sa=identity rotatedabout ((.5w+1/4*.25mm,mm),180);
+addto currentpicture also slovo_D transformed sa;
+endchar;
+
+
+beginchar("E",.4em#,.5cap#,0); "The letter E";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x3=w-x2=curve_sidebar; bot y3=0; y2=.5h; top y1= h;
+draw z1{right}.. {down}z2..{left}z3;
+endchar;
+
+beginchar("Z",em#,1.2cap#,.7cap#); "The letter Z";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x2=w-x7=curve_sidebar;
+rb:=.22h;
+x4=.38w; x3=x1=.5[x2,x4]; x9=x7-2rb;
+x6=x8=.5[x9,x7];
+y1=h;
+y2=y4=y6=2rb;
+bot y8=0; y9=y7=.5[y6,y8];
+y3=-d;
+bot z22=(x2,0); bot z44=(x4,0);
+kut:=55;
+draw z22--z2{up}..{dir kut}z1{dir(-kut)}..{down}z4--z44{down}..tension1.5..
+%{dir(180+kut)}z3{dir(180-kut)}
+{left}z3
+..tension1.5.. {up}z22;
+draw z2--z6{right}..{down}z7..{left}z8..{up}z9..{right}z6;
+endchar;
+
+beginchar("9",em#,cap#,0); "The letter Dz";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=
+w-x4=w-x5=w-1.2x8=w-1.2x7=curve_sidebar;
+x3=x6=x10=.5w;
+x12=.2w; x9=x11=.5[x12,x10];
+bot y2=bot y3=bot y4=0; y1=y5=.5h; y6=.47h;
+y9=.75h; y11-y9=x10-x12; y10=y12=.5[y9,y11];
+y9-y8=.07h; y8-y7=.07h;
+z100=(x10,y7);
+draw z1--z2--z4--z5; draw z3--z6;
+pickup pencircle xscaled 1.1thick yscaled .2thin;
+draw z100--z10{up}..{left}z11..{down}z12..{right}z9..{down}z8--z7;
+endchar;
+
+
+
+
+beginchar("I",.9em#,.5cap#,0); "The letter I";
+pickup pencircle xscaled 1.3thick yscaled .25thin;
+x2=w-x6=curve_sidebar;
+x1=x3=w-x7=w-x5=.3w;
+x4=.5w;
+bot y3=bot y7= 0; top y1=top y5= h; y2=y4=y6=.5h;
+draw z1{left}..{down}z2..{right}z3..z4..{right}z5..{down}z6..{left}z7;
+endchar;
+
+beginchar("J",1.1em#,.5cap#,.5cap#); "The letter J";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x6=w-x4=curve_sidebar;
+x3=x7=.6w; x2=x8=.5[x1,x3];
+x1-x5=x4-x3;
+top y1=top y2=top y3= h;
+y6+.1h=y8=y7-.1h= 0;
+-y5=y4=.6h;
+z9=(x1,-d);
+draw z1--z3{right}..{down}z4
+..tension 1.3..{dir angle(z6-z7)}z7--z6{dir angle(z6-z7)}..tension1.3..
+{down}z5..tension1.3..
+{dir angle(z7-z6)}z9;
+z66=(x6,-.5d);
+z88=(x8,-.5d);
+z77=(x7,-.5d);
+draw z1--z66; draw z2--z88; draw z3--z77;
+endchar;
+
+
+beginchar("Y",.9em#,.5cap#,.8cap#); "The letter Izze-10";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x6=.9x9=w-x3=w-x4=w-.9x10=w-.9x11=curve_sidebar;
+x5=x2=x7=.5w;
+x8=.5[x9,x7];
+y6=y5=y4=h; bot y1=bot y2=bot y3= 0;
+y7=-.4d; y9=y10=.5[y7,y8];
+y8=-d; y11=-.9d;
+draw z5--z6--z1--z3--z4--z5--z7{down}..{left}z8..{up}z9..
+%{right}z7..
+tension3..
+{down}z10--z11;
+endchar;
+
+
+
+beginchar("K",.4em#,.5cap#,.7cap#); "The letter K";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x3=w-x2=w-x4=w-x5=curve_sidebar;
+x6-x5=x2-x1=x7-x6;
+top y1= h; y2=.5h; bot y3=0; y4=-.33d; y6=-d;
+y5-y6=y7-y6=x6-x5;
+draw z1{right}..{down}z2..{left}z3{right}..{down}z4--z5{down}
+..z6{right}..{up}z7;
+endchar;
+
+
+
+
+beginchar("M",.9em#,.5cap#,0); "The letter M";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=w-x8=w-x9=curve_sidebar;
+x3=x2=.25w; x5=x6=.5[x3,x9];
+x4=.5[x3,x6]; x7=.5[x6,x9];
+top y1=top y4=top y7= h; y2=y5=y8=.5h;
+bot y3=bot y6=bot y9=0;
+draw z1{right}..{down}z2--z3;
+draw z2{up}..{right}z4..{down}z5--z6;
+draw z5{up}..{right}z7..{down}z8--z9;
+endchar;
+
+
+beginchar("N",.5em#,.5cap#,.7cap#); "The letter N";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x4=curve_sidebar; y1=h; y2=-d; x2=2curve_sidebar; y3=0; z3= whatever[z1,z2];
+y4=.5h;
+draw z1--z2; draw z1{right}..{dir(angle(z2-z1))}z4..{left}z3;
+endchar;
+
+beginchar("O",.65em#,.5cap#,.8cap#); "The letter O";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x3=x7=w-x8=curve_sidebar;
+x1=.7w; x2-x3=x4-x3=x1-x2;;
+x5=.8w; x6=.5w;
+bot y2=bot y8=0; y1=y3=.5h; top y4= h;
+y5=-.3d; y6=-d; y7=-.85d;
+draw z1{down}..{left}z2..{up}z3..{right}z4..{dir(-90+15)}z1..{down}z5
+..{left}z6..z7{up}..{dir(20)}z8;
+endchar;
+
+
+beginchar("P",.75em#,.5cap#,.5cap#); "The letter P";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x3=w-x6=curve_sidebar;
+x5=.5w; x4=.5[x5,x6];
+y1=-d; bot y4=0; y5=y6=.5h; top y2=top y3= h;
+draw z1--z2--z3--z6{down}..{left}z4..{up}z5;
+endchar;
+
+
+
+beginchar("R",.55em#,1.2cap#,0); "The letter R";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x6=x3=w-x5=curve_sidebar;
+x1=w; x2=.65w;
+x4=x7=.5w;
+bot y4=0; top y2= h; y1=.8h;
+y3=.5h/1.2;
+y6=y5=.25h/1.2;
+y7=.5h/1.2;
+draw z1{up}
+%{dir(90+15)}
+..{left}z2..
+{down}z3..{down}z6..{right}z4..{up}z5..{left}z7;
+pickup pencircle xscaled .3thick yscaled .3thin;
+draw z7{left}..{down}z6;
+endchar;
+
+beginchar("S",.7em#,cap#,0); "The letter S";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x4=w-x5=curve_sidebar;
+x3=x6=.5w; top y6=h;
+y3=.4h;
+y4=y5=.78h;
+y1=y7=.5y3;
+x1=w-x7=.3w; bot z2=(.5w,0);
+draw z1{up}..z3{dir (30)}..{up}z5..{left}z6..{down}z4..{dir(-30)}z3..
+{down}z7..{left}z2..cycle;
+endchar;
+
+
+
+beginchar(oct"076",.7em#,cap#,0); "The letter drugi S";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x4=w-x5=w-x2=curve_sidebar;
+x3=x6=.5w; bot y1=bot y2=0; top y6=h;
+y3=.3h;
+y4=y5=.78h;
+draw z1--z2--z3{dir (angle(z3-z2))}..{up}z4..{right}z6..{down}z5..
+{dir(angle(z1-z3))}z3--z1;
+endchar;
+
+
+
+beginchar(oct"024",.8em#,.5cap#,0); "The letter Ss";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x2=w-x4=w-x5=curve_sidebar; x3=x6=.5w;
+y1=y5=h; y6=.95h; y2=y3=y4=0;
+draw z1--z2--z3--z4--z5; draw z3--z6;
+endchar;
+
+beginchar("C",.85em#,1.2cap#,.7cap#); "The letter C";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=w-x6=curve_sidebar;
+x8-x6=x6-x3;
+x3=.55w; x2=x4=.5[x1,x3]; x5=.5[x3,x6]; x7=.5[x6,x8];
+y1=y3=y6=.25h/1.2; y2=0; y4-y3=y3-y2;
+top y7= h; y8=.7h; y5=-d;
+draw z1{down}..z2{right}..{up}z3..{left}z4..cycle;
+draw z3{down} %..tension1.3
+..{right}z5 %..tension1.2
+..{dir (angle(z7-z5)+18)}
+z6
+..{right}z7..%tension1.4..
+{down}z8;
+endchar;
+
+
+
+
+beginchar("Q",em#,.5cap#,.5cap#); "The letter Ot";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x5=w-x6=curve_sidebar;
+x3=x7=w-x4=w-x8=.37w; x7-x9=x10-x8=.15w;
+top y1=top y3=top y4=top y5=h;
+bot y2=bot y6=0; y9=y7=y8=y10=-d;
+z37=(x3,.7h);
+z48=(x4,.7h);
+draw z7--z37{up}..{left}z1--z2--z6--z5{left}..{down}z48--z8;
+draw z9--z10;
+endchar;
+
+
+beginchar(oct"023",.55em#,.5cap#,.7cap#); "The letter Cc";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x8=x2=w-x5=w-x4=w-x6=curve_sidebar;
+x3=.5[x1,x5]; bot y3=0; y1=y5=h;
+y2=y4=.33h;
+y7=-d;
+y6=-.52d; y8=y9=.5[y7,y6];
+x9-x6=x6-x8;
+x7=.5w;
+z66=(x6,-.45d); z99=(x9,-.9d);
+draw z1--z2{down}..{right}z3..{up}z4;
+draw z5--z6{down} ..{left}z7..{up}z8..{right}z66..{down}z9--z99;
+endchar;
+
+
+beginchar("U",.5em#,.5cap#,.4cap#); "The letter U";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=x5=w-x3=w-x6=curve_sidebar;
+x2=x4=.5w;
+y2=.2h+d; top y1=top y6= h+d; bot y4=0; y5=y3=.5[y4,y2];
+draw z1{down}..z2..{down}z3..{left}z4..{up}z5..z2..{up}z6;
+endchar;
+
+
+beginchar("V",.95em#,.5cap#,0); "The letter V";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x7=w-x8=curve_sidebar;
+x1-x7=x9-x4=x3-x10=x8-x2=.05w;
+x9=w-x10=.37w; x5=w-x6=.5[x1,x4];
+bot y1=bot y4=bot y3=bot y2=0;
+top y5=top y6= h; y7=y9=y10=y8=.5h;
+draw z1..z7{up}..{right}z5..{down}z9..z4;
+draw z1--z2;
+draw z2..z8{up}..{left}z6..{down}z10..z3;
+picture slovo_V; slovo_V=currentpicture;
+endchar;
+
+beginchar("T",.95em#,.5cap#,0); "The letter T";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+transform s; s=identity rotatedabout ((.5w+1/4*.5h,.5h),180);
+addto currentpicture also slovo_V transformed s;
+endchar;
+
+beginchar("L",.95em#,cap#,0); "The letter L";
+transform t; t=identity rotatedabout ((.5w+1/4*.25h,.25h),180);
+addto currentpicture also slovo_V transformed t;
+pickup pencircle xscaled .8thick yscaled .3thin;
+x10=w-2curve_sidebar;
+rr:=.13h;
+x40=x60=.5w;
+x40-x50=x30-x40=rr;
+x20=x50;
+h:=1.2h;
+top y10=top y20= h; y50=y30=.75h;
+y50-y40=y60-y50=rr;
+draw z50{down}..z40{right}..{up}z30..{left}z60..cycle;
+draw z30{up}..{left}z20--z10;
+endchar;
+
+
+
+beginchar(oct"025",.95em#,.5cap#,0); "The letter Zz";
+pickup pencircle xscaled 1.3thick yscaled .2thin;
+transform s; s=identity rotatedabout ((.5w+1/4*.5h,.5h),180);
+addto currentpicture also slovo_V transformed s;
+x1=w-x3=.25w; y1=y3=1.6h;
+top z2=(.5w, h);
+draw z1{right}..{down}z2{up}..{right}z3;
+endchar;
+
+beginchar(oct"021",.8em#,.5cap#,.7cap#); "The letter Ch";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+x5=.5w;
+top y1=top 1.1y5=top y4= h;
+bot y2=bot y3= 0;
+x6=.5w; x8=w-x9=w-x99=0;
+x7=.45[x6,x8];
+y7=-d;
+y6=-.52d; y8=.5[y7,y6]; y9=.6[y8,-d]; y99=-d;
+draw z1--z2--z3--z4;
+%pickup pencircle xscaled thick yscaled .3thin;
+draw z5--z6{down}..{left}z7..{up}z8...{right}z6...
+{down}z9--z99;
+endchar;
+
+
+
+beginchar(oct"032",.8em#,.5cap#,.5cap#); "druga varijanta Ch";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=w-x3=w-x4=curve_sidebar;
+x5=x6=.5w; x9=.8w;
+x7-x6=x9-x8=1/4(x9-x6);
+top y1=top y5=top y4= h;
+bot y2=bot y3= 0;
+y9=-d; y6=y8=.-1/3d; y7=y10=-2/3d;
+x10=x9; x78=.5[x7,x8]; y78=.5[y7,y8];
+draw z1--z2--z3--z4;
+pickup pencircle xscaled thick yscaled .3thin;
+draw z5--z6{down}..{right}z7..z78..
+{right}z8..{down}z10--z9;
+endchar;
+
+beginchar("F",.85em#,1.2cap#,.7cap#); "The letter F";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x2=curve_sidebar; x4=x11=.5w;
+x1=x3=.5[x2,x4];
+x13=.8w; x12-x11=x13-x12;
+y3=0; y2=y4=x3-x2=.5y1; y12=h; y12-y11=y12-y13=x12-x11;
+z5=(w-x1,y1); z6=(w-x2,y2); z7=(w-x3,y3); z8=(x11,-d+(y12-y11));
+z9=(w-x12,-d); z10=(w-x13,-d+(y12-y13));
+draw z1{left}..{down}z2..{right}z3..{up}z4--z11{up}..{right}z12..{down}z13;
+draw z7{right}..{up}z6..{left}z5..{down}z4--z8{down}..{left}z9..{up}z10;
+endchar;
+
+
+
+beginchar("H",.6em#,1.2cap#,.7cap#); "The letter H";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x2=x6=w-x4=curve_sidebar;
+x3=x5=.5[x1,x4]; x8=.75w; x7=.5[x1,x8];
+y1=-d; bot y2=bot y5= 0; y3= .5h/1.2; y4=.5 y3;
+top y7= h; y6=y8=.8h;
+draw z1--z6{up}..{right}z7..{down}z8;
+draw z2{up}..{right}z3..{down}z4..{left}z5;
+endchar;
+
+
+
+beginchar(oct"136",.9em#,1.2cap#,0); "The letter Jat";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x5=w-x4=curve_sidebar;
+x3=.55w; x2-x1=.5(x3-x1); x6=.65w;
+bot y1=bot y3=bot y4=0; y5=.25h/1.2;
+y7=y6=.5h/1.2; top y2= h;
+z7=whatever[z1,z2];
+draw z1--z2--z3; draw z7--z6{right}..{down}z5--z4--z1;
+endchar;
+
+beginchar(oct"137",.8em#,.5cap#,.5cap#); "The letter Ju";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=x6=w-x4=curve_sidebar;
+x3=x7=.5w;
+x1-x5=x4-x3;
+top y1=top y3= h;
+y6+.1h=y7-.1h= 0;
+-y5=y4=.6h;
+z9=(x1,-d);
+draw z1--z3{right}..{down}z4
+..tension 1.3..{dir angle(z6-z7)}z7--z6{dir angle(z6-z7)}..tension1.3..
+{down}z5..%tension1.1..
+{dir angle(z7-z6)}z9;
+draw z1--z6; draw z3--z7;
+endchar;
+
+
diff --git a/language/croatian/fonts/mf/lom.mf b/language/croatian/fonts/mf/lom.mf
new file mode 100644
index 0000000000..0fcefa945a
--- /dev/null
+++ b/language/croatian/fonts/mf/lom.mf
@@ -0,0 +1,39 @@
+
+% Croatian Glagolitic
+% Baromich broken ligatures (1493-94),
+% 1995, darko.zubrinic@etf.hr
+
+mode_setup;
+ font_size 10pt#;
+ u#:=.8pt#; font_quad= 24u#;
+ font_normal_space= 9u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 2u#;
+ em#:=10pt#; cap#:=7pt#;
+ thin#:=2/3pt#; thick#:=.9*5/6pt#;
+ o#:=1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:=round 1.1*1/10em;
+
+
+input lomv % velika slova
+
+mode_setup;
+u#:=3/4u#;
+em#:=3/4em#; cap#:=3/4cap#;
+ thick#:=3/4thick#;
+o#:=3/4o#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+%curve_sidebar:=3/4curve_sidebar;
+input lomm % mala slova
+
+
+ligtable "z": "z" =: oct"015";
+
+u#:=4/3u#;
+ligtable "Z": "z" =: oct"025", "Z" =: oct"025";
+
+
+end.
diff --git a/language/croatian/fonts/mf/lomm.mf b/language/croatian/fonts/mf/lomm.mf
new file mode 100644
index 0000000000..c99053d42a
--- /dev/null
+++ b/language/croatian/fonts/mf/lomm.mf
@@ -0,0 +1,66 @@
+
+beginchar("a",.5em#,4/3cap#,0); "The letter a";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=x3=x2=w-x4=w-x5=curve_sidebar;
+y2=y4=0;
+y1=h; y3=.6h;
+y5=3/4y3;
+draw z1--z2; draw z4--z5{up}..{left}z3;
+endchar;
+
+beginchar("d",.7em#,cap#,0); "The letter d";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=w-x3=w-x4=curve_sidebar;
+x2=x5=x6=.4[x1,x3];
+y2=y3=0; y1=y6=h; y4=y5=.45h;
+draw z1--z6--z2--z3--z4--z5;
+endchar;
+
+beginchar(oct"015",.6em#,cap#,0); "The letter zz";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=w-x2=w-x3=curve_sidebar;
+x4=x5=.4[x1,x2];
+y5=y3=0; y1=y4=y2=h;
+draw z1--z2--z3--z5--z4;
+x8=.7[x5,x3]; x6=.5[x1,x4];
+x6-x7=x8-x6; y6=h;
+y7=y8=1.27h;
+draw z6{up}..{left}z7; draw z6{up}..{right}z8;
+endchar;
+
+
+
+beginchar("l",.7em#,cap#,0); "The letter l";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=w-x3=w-x4=curve_sidebar;
+x2=x5=.45[x1,x3];
+x6=.5[x5,x4];
+x1-x7=x6-x2;
+y1=y2=y3=h; y7=y6=4/3h; y4=y5=0;
+draw z1--z3--z4--z5--z2{up}..z6--z7; draw z1{up}..z7;
+endchar;
+
+
+
+beginchar("t",.6em#,cap#,0); "The letter t";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=w-x2=w-x3=curve_sidebar;
+x4=x5=.4[x1,x2];
+y5=y3=0; y1=y4=y2=h;
+draw z1--z2--z3--z5--z4;
+picture slovo; slovo=currentpicture;
+endchar;
+
+beginchar("v",.6em#,cap#,0); "The letter v";
+transform t; t=identity reflectedabout ((0,.5h),(w,.5h))
+shifted (0,.5thin);
+addto currentpicture also slovo transformed t;
+endchar;
+
+
+beginchar("z",.6em#,cap#,0); "The letter z lazzni (za zz)";
+transform t; t=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also slovo transformed t;
+endchar;
+
+
diff --git a/language/croatian/fonts/mf/lomv.mf b/language/croatian/fonts/mf/lomv.mf
new file mode 100644
index 0000000000..79572b04b1
--- /dev/null
+++ b/language/croatian/fonts/mf/lomv.mf
@@ -0,0 +1,66 @@
+
+beginchar("A",.5em#,4/3cap#,0); "The letter A";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=x3=x2=w-x4=w-x5=curve_sidebar;
+y2=y4=0;
+y1=h; y3=.6h;
+y5=3/4y3;
+draw z1--z2; draw z4--z5{up}..{left}z3;
+endchar;
+
+beginchar("D",.7em#,cap#,0); "The letter D";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=w-x3=w-x4=curve_sidebar;
+x2=x5=x6=.4[x1,x3];
+y2=y3=0; y1=y6=h; y4=y5=.45h;
+draw z1--z6--z2--z3--z4--z5;
+endchar;
+
+beginchar(oct"025",.6em#,cap#,0); "The letter ZZ";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=w-x2=w-x3=curve_sidebar;
+x4=x5=.4[x1,x2];
+y5=y3=0; y1=y4=y2=h;
+draw z1--z2--z3--z5--z4;
+x8=.7[x5,x3]; x6=.5[x1,x4];
+x6-x7=x8-x6; y6=h;
+y7=y8=1.27h;
+draw z6{up}..{left}z7; draw z6{up}..{right}z8;
+endchar;
+
+
+
+beginchar("L",.7em#,cap#,0); "The letter L";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=w-x3=w-x4=curve_sidebar;
+x2=x5=.45[x1,x3];
+x6=.5[x5,x4];
+x1-x7=x6-x2;
+y1=y2=y3=h; y7=y6=4/3h; y4=y5=0;
+draw z1--z3--z4--z5--z2{up}..z6--z7; draw z1{up}..z7;
+endchar;
+
+
+
+beginchar("T",.6em#,cap#,0); "The letter T";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x1=w-x2=w-x3=curve_sidebar;
+x4=x5=.4[x1,x2];
+y5=y3=0; y1=y4=y2=h;
+draw z1--z2--z3--z5--z4;
+picture slovo; slovo=currentpicture;
+endchar;
+
+beginchar("V",.6em#,cap#,0); "The letter V";
+transform t; t=identity reflectedabout ((0,.5h),(w,.5h))
+shifted (0,.5thin);
+addto currentpicture also slovo transformed t;
+endchar;
+
+beginchar("Z",.6em#,cap#,0); "The letter Z lazzni (za ZZ)";
+transform t; t=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also slovo transformed t;
+endchar;
+
+
+
diff --git a/language/croatian/fonts/mf/obl.mf b/language/croatian/fonts/mf/obl.mf
new file mode 100644
index 0000000000..8bdb4f978d
--- /dev/null
+++ b/language/croatian/fonts/mf/obl.mf
@@ -0,0 +1,91 @@
+
+% Croatian Glagolitic
+% Round glagolitic, 1994, darko.zubrinic@etf.hr
+
+
+Pt#:=4/3pt#;
+
+mode_setup;
+ u#:=.8Pt#; font_quad= 24u#;
+ font_normal_space= 8u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=10Pt#; cap#:=7Pt#;
+ thin#:=2/3Pt#; thick#:=.9*5/6Pt#;
+ o#:=1/5Pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:= round 1.1*1/10em;
+
+\input oblv % velika slova
+
+
+%mode_setup;
+%Pt#:=3/4Pt#;
+%u#:=3/4u#;
+%em#:=3/4em#; cap#:=3/4cap#;
+% thick#:=3/4thick#;
+%o#:=3/4o#;
+%define_pixels(em,cap);
+%define_blacker_pixels(thin,thick);
+%curve_sidebar:=3/4curve_sidebar;
+
+mode_setup;
+Pt#:=3/4Pt#;
+ u#:=.8Pt#; font_quad= 24u#;
+ font_normal_space= 8u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=10Pt#; cap#:=7Pt#;
+ thin#:=2/3Pt#; thick#:=.9*5/6Pt#;
+ o#:=1/5Pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+
+
+input oblm % mala slova
+
+
+input glz % znakovi
+
+
+
+ligtable "c": "c" =: oct"013", "h" =: oct"011";
+ligtable "s": "s" =: oct"014"; %umjesto sh
+ligtable "z": "z" =: oct"015", "o" kern -.5u#,
+ "u" kern -.5u#;
+%ligtable "d": "d" =: oct"016"; % "d" =: oct"012";
+ligtable "y": "a" =: "w", "e" =: "w", "u" =: "5";
+ligtable "-": "-" =: oct"173";
+%ligtable "e": "i" kern -.5u#;
+%ligtable "f": "o" kern -u#, "u" kern -u#, "i" kern -.5u#, "g" kern-.5u#;
+%ligtable "i": "f" kern -.5u#;
+%ligtable "r": "k" kern -.5u#;
+%ligtable "n": "a" kern -.5u#;
+%ligtable "j": "a" kern -.5u#;
+
+u#:=4/3u#;
+
+
+
+ligtable "C": "c" =: oct"023", "C" =: oct "023", "H" =:
+ oct"021", "h" =: oct"021";
+ligtable "S": "S" =: oct"024", "s" =: oct"024";
+ligtable "Z": "Z" =: oct"025", "z"=: oct"025",
+ "O" kern -.5u#,
+ "u" kern -.5u#;
+%ligtable "D": "d" =: oct"026", "D" =: oct"026"; % "d" =: oct"022";
+ligtable "Y": "a" =: "W", "A" =: "W", "u" =: "2", "U" =: "2";
+%ligtable "E": "I" kern -.5u#;
+%ligtable "F": "O" kern -u#, "U" kern -u#, "I" kern -.5u#, "G" kern-.5u#;
+%ligtable "I": "F" kern -.5u#;
+%ligtable "R": "K" kern -.5u#;
+%ligtable "N": "A" kern -.5u#;
+
+
+
+
+end.
+
+
+
diff --git a/language/croatian/fonts/mf/obl10.mf b/language/croatian/fonts/mf/obl10.mf
new file mode 100644
index 0000000000..93a5a4410c
--- /dev/null
+++ b/language/croatian/fonts/mf/obl10.mf
@@ -0,0 +1,86 @@
+
+% Croatian Glagolitic
+% round glagolitic, 1994, darko.zubrinic@etf.hr
+
+
+
+mode_setup;
+ u#:=.8pt#; font_quad= 24u#;
+ font_normal_space= 8u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=10pt#; cap#:=7pt#;
+ thin#:=2/3pt#; thick#:=.9*5/6pt#;
+ o#:=1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:= round 1.1*1/10em;
+input oblv % velika slova
+
+
+
+%mode_setup;
+%pt#:=3/4pt#;
+%u#:=3/4u#;
+%em#:=3/4em#; cap#:=3/4cap#;
+% thick#:=3/4thick#;
+%o#:=3/4o#;
+%define_pixels(em,cap);
+%define_blacker_pixels(thin,thick);
+%curve_sidebar:=3/4curve_sidebar;
+
+mode_setup;
+pt#:=3/4pt#;
+ u#:=.8pt#; font_quad= 24u#;
+ font_normal_space= 8u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=10pt#; cap#:=7pt#;
+ thin#:=2/3pt#; thick#:=.9*5/6pt#;
+ o#:=1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+
+
+input oblm % mala slova
+
+
+input glz % znakovi
+
+
+
+ligtable "c": "c" =: oct"013", "h" =: oct"011";
+ligtable "s": "s" =: oct"014"; %umjesto sh
+ligtable "z": "z" =: oct"015", "o" kern -.5u#,
+ "u" kern -.5u#;
+%ligtable "d": "d" =: oct"016"; % "d" =: oct"012";
+ligtable "y": "a" =: "w", "e" =: "w", "u" =: "5";
+ligtable "-": "-" =: oct"173";
+%ligtable "e": "i" kern -.5u#;
+%ligtable "f": "o" kern -u#, "u" kern -u#, "i" kern -.5u#, "g" kern-.5u#;
+%ligtable "i": "f" kern -.5u#;
+%ligtable "r": "k" kern -.5u#;
+%ligtable "n": "a" kern -.5u#;
+%ligtable "j": "a" kern -.5u#;
+
+u#:=4/3u#;
+
+
+
+ligtable "C": "c" =: oct"023", "C" =: oct "023", "H" =:
+ oct"021", "h" =: oct"021";
+ligtable "S": "S" =: oct"024", "s" =: oct"024";
+ligtable "Z": "Z" =: oct"025", "z"=: oct"025",
+ "O" kern -.5u#,
+ "u" kern -.5u#;
+%ligtable "D": "d" =: oct"026", "D" =: oct"026"; % "d" =: oct"022";
+ligtable "Y": "a" =: "W", "A" =: "W", "u" =: "2", "U" =: "2";
+%ligtable "E": "I" kern -.5u#;
+%ligtable "F": "O" kern -u#, "U" kern -u#, "I" kern -.5u#, "G" kern-.5u#;
+%ligtable "I": "F" kern -.5u#;
+%ligtable "R": "K" kern -.5u#;
+%ligtable "N": "A" kern -.5u#;
+
+
+end.
+
diff --git a/language/croatian/fonts/mf/oblm.mf b/language/croatian/fonts/mf/oblm.mf
new file mode 100644
index 0000000000..5919acbc1a
--- /dev/null
+++ b/language/croatian/fonts/mf/oblm.mf
@@ -0,0 +1,960 @@
+% x = az, y = izze, w=jat, q = ot, \m = dvokatni uglasti m, oct ? staviti u i.mf
+% 0 = tvrdi znak (assemani), 1 = meki znak (assemani)
+% 3 = tvrdi znak, 6 = meki znak
+% 5 = ju, 8 = dz,
+% oct"000" = izze2 (\y)
+% oct"002" = en
+% oct"004" = jen
+% oct"006" = on
+% oct"011" = ch
+% oct"012" = jon
+% oct"013" = cc
+% oct"014" = ss
+% oct"015" = zz
+% oct"076" = paukasti h,
+% oct"176" = tilda
+
+beginchar("a",.7em#,cap#,0); "The letter a";
+pickup pencircle xscaled 1.3thick yscaled .2thin;
+x1=w-x2=curve_sidebar; y1=y2=h/2;
+x3=x4=w/2; y3=0; y4=h;
+z1-z5=z2-z6=(0,.2h);
+draw z5--z1--z2--z6; draw z3--z4;
+endchar;
+
+
+
+beginchar("b",0.7em#,cap#,0); "The letter b";
+pickup pencircle xscaled 1.3thick yscaled .2thin;
+smoothing:=4;
+k:=.5;
+x1=w-x2=curve_sidebar; y1=y2=0;
+x3=x4=w-x7=w-x8=curve_sidebar;
+y3=y5=y7=k*w;
+y4=y6=y8=h;
+x5=x6=w/2;
+%z3=0*[z9,z7];
+draw z4--z1--z2;
+draw z3--z7--z8;
+draw z5--z6;
+penlabels(1,2,3,4,5,6,7,8);
+endchar;
+
+
+beginchar("g",.8em#,cap#,0); "The letter g";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+%pickup pencircle scaled .3thin;
+x1=w-x8=curve_sidebar;
+r:=.2h;
+x2=x4=x5=x1+r;
+ y1=y5=h-r;
+top y2=h; y4=y2-2r;
+kut:=20;
+z3-z5=(z4-z5) rotated (90-kut);
+bot y6=0; (z6-z3)dotprod(z3-z5)=0; % x6
+x9=x7=x8-r; x10=x8-2r;
+y9=y6; y8=y10=r; y7=2r;
+
+q:=.5(thick-.3thin)*cosd kut;
+x3'=x3+q; x6'=x6+q;
+y3'=y3; y6'=y6;
+x66=x6'+.5(thick-.3thin); bot y66=0;
+penpos1(thick,0);
+penpos2(.3thin,-90);
+penpos3(.3thin,180-kut);
+penpos4(.3thin,90);
+penpos3'(cosd kut*thick,180-kut);
+penpos6'(1.2thick,180);
+penpos66 (.3thin,180);
+penpos7(.3thin,90);
+penpos8 (thick,0);
+penpos9 (.5thin,-90);
+penpos10 (.4thin,180);
+drawdot z6';
+penstroke z3e{dir(-kut-90)}
+..{left}z4e..
+z1e{up}..{right}z2e;
+penstroke z6'e--z3'e{dir(-kut+90)}..{left}z2e;
+penstroke z66e{dir (angle(z3-z6))}..{right}z7e..{down}z8e..{left}z9e..{up}z10e
+..{right}z7e;
+endchar;
+
+
+
+beginchar("d",em#,cap#,0); "The letter d";
+pickup pencircle scaled .01thin; %xscaled 1.3thick yscaled .2thin;
+x1=w-x2=.25w;
+d:=2x1-2curve_sidebar;
+y1=y2=.5d;
+top z3=(.5w, h);
+x4=w-x5=x1;
+y4=y5=.7h;
+z6=(x1+.5d,y1); x7=w-x6; y7=y6;
+bot z8-z1=(z6-z1) rotated -90; % z8
+z9-z1=(z8-z1) rotated -90; % z9
+z10-z1=(z9-z1) rotated -90; %z10
+penpos9 (thick,0);
+penpos10 (.4thin,-90);
+penpos8 (.4thin,90);
+penpos6 (.3thin,180);
+penstroke z8e{left}..z9e{up}..z10e{right}..z6e{down}..cycle;
+bot z11-z2=(z7-z2) rotated 90; % z11
+z12-z2=(z11-z2) rotated 90; % z12
+z13-z2=(z12-z2) rotated 90; %z13
+penpos7 (.3thin,0);
+penpos11 (.4thin,90);
+penpos12 (thick,180);
+penpos13 (.4thin,-90);
+penstroke z11e{left}..z7e{up}..z13e{right}..z12e{down}..cycle;
+penpos4 (.3thin,180);
+penpos5 (1.4thick,0);
+penpos3 (.4thick,90);
+penstroke z6e{up}..z4e{up}..z3e{right}..z5e{down}..{down}z7e;
+picture slovod; slovod=currentpicture;
+endchar;
+
+
+beginchar("v",em#,cap#,0); "The symbol v";
+transform t;
+t=identity rotatedabout ((.5w,.5h),180);
+addto currentpicture also slovod transformed t;
+endchar;
+
+
+
+
+
+
+beginchar("e",.67em#,cap#,0); "The letter e";
+pickup pencircle xscaled 1.3thick yscaled .2thin;
+x1=x5=w-x3=curve_sidebar; y1=h-y5=.1h; y3=h/2;
+x2=x4=.42w; y2=0; y4=h;
+draw z5..{right}z4..{down}z3..{left}z2..z1;
+pickup pencircle xscaled 1.2thin yscaled .2thin;
+a:=.01;
+x8=x9=.35w; x6=x7=w-curve_sidebar-a* w;
+y8-y3=y7-y3=y3-y9=y3-y6=.1h;
+draw z8--z7; draw z9--z6;
+picture slovoe; slovoe=currentpicture;
+endchar;
+
+beginchar(oct"015",em#,1.1cap#,0); "The letter zz";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=.25w; x5=w-x6=.27w;
+x11=w-x21=curve_sidebar;
+x1-x11=x51-x5=x6-x61;
+y1=y2=y5=y6=.8h; y11=y21=y51=y61=.5[y1,y3];
+y3=y4=.47h; x3=w-x4=.5[x1,x5];
+z56=.5[z5,z6];
+y52=y62=h; x52-x11=x21-x62=.15w;
+penpos1 (.3thin,-90);
+penpos11 (1.2thick,0);
+penpos3 (.5thin,90);
+penpos51 (.3thin,180);
+penpos5 (.2thin,180);
+penpos2 (.3thin,90);
+penpos21 (1.2thick,0);
+penpos4 (.5thin,-90);
+penpos61 (.3thin,180);
+penpos6 (.2thin,180);
+draw z1-- z2;
+penstroke
+z1e{left}..z11e{down}..z3e{right}..{up}z51e..{left}z5e;
+penstroke
+z2e{right}..z21e{down}..z4e{left}..{up}z61e..{right}z6e;
+draw z52{dir -10}..{dir-70}z56{dir 70}..{dir10}z62;
+endchar;
+
+
+
+
+beginchar("8",.7em#,cap#,0); "The letter dz->8";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=w-x2=curve_sidebar; y1=y2=.5h;
+r:=.2h; x5=.5w; x6=x5+r; y5=y6=h-r; x3=w-x4=.42w;
+bot y3=bot y4=0;
+z6-z5=(z7-z5) rotated(90-angle(z2-z4)); % z7
+z7-z8=whatever*(z2-z4); z8=whatever[z1,z3]; % z8
+z5=.5[z10,z6]; % z10
+z9-z5=(z6-z5)rotated 90;
+z5=.5[z11,z9];
+penpos6 (.3thin,0);
+penpos9 (.5thin,90);
+penpos10 (thick,180);
+penpos11 (.4thin,-90);
+penpos7 (.3thin,angle(z7-z5));
+penpos8 (.3thin,angle(z7-z5));
+draw z1--z2--z4--z3--cycle;
+penstroke z8e--z7e{dir(angle(z7-z8))}..
+z6e{up}..{left}z9e..{down}z10e..{right}z11e..
+{dir (angle(z7-z8))}z7e;
+picture dz; dz=currentpicture;
+endchar;
+
+
+
+
+beginchar("z",.9em#,cap#,0); "The letter z";
+a:=42;
+pickup pencircle xscaled 1.2thick yscaled .3thin rotated a;
+x1=w-x3=curve_sidebar; y1=y3=h/2;;
+z2=.6[z1,z3]; z5=.3[z2,z3];
+x4=x6=.5[x1,x2]; y4=h; y6=0;
+x7=.5[x5,x3]; y7=.1h;
+draw z4{dir(180+a)}..{down}z1..{dir-a}z6{dir a}..{up}z2..{dir(180-a)}z4;
+pickup pencircle xscaled thick yscaled .3thin;
+b:=1.3;
+x1:=x1+.3thick;
+draw z1--z3;
+penpos3 (thick,0);
+penpos7 (.5thin,-90);
+penpos5 (.3thin,180);
+penstroke z3e{down}..tension b..{left}z7e..tension b..{up}z5e;
+endchar;
+
+
+
+beginchar("y",em#,cap#,0); "The letter izze<-y";
+pickup pencircle xscaled thick yscaled .2thin;
+%pickup pencircle scaled .3thin;
+x1=w-x2=curve_sidebar;
+r:=.2h; y1=y2=h-r;
+z3=(x1+r, h-r);
+z4=(x2-r,y3);
+kut:=30;
+z9-z3=(z1-z3) rotated(180+kut);
+z10=(w-x9,y9);
+(x7-x9,y7-y9)dotprod(x9-x3,y9-y3)=0;
+(z9-z3)dotprod(z6-z9)=0;
+ z5=(w-x6,0);
+top y7=h; bot y6=0;
+z11=z3+(z1-z3)rotated-90;
+z12=(w-x11,y11);
+z3=.5[z11,z13];
+z4=.5[z12,z14];
+penpos1 (thick,0);
+penpos11 (.2thin,-90);
+penpos9 (.2thin,180+kut);
+penpos13 (.5thin,90);
+penpos2 (thick,0);
+penpos12 (.2thin,90);
+penpos10 (.2thin,180-kut);
+penpos14 (.5thin,-90);
+penstroke z1e{up}..{right}z11e..{dir(kut-90)}z9e..{left}z13e..cycle;
+penstroke z2e{up}..{left}z12e..{dir (angle(z5-z10))}z10e..{right}z14e..cycle;
+x9'=x9+.5(thick-.2thin)*cosd kut; y10'=y10; y9'=y9;
+x10'=w-x9';
+top y7'=h; bot y6'=0;
+(x7'-x9',y7'-y9')dotprod(x9'-x3,y9'-y3)=0;
+(z9'-z3)dotprod(z6'-z9')=0;
+bot z5'=(w-x6',0);
+top z8'=(w-x7',h);
+draw z9'--z6'--z5'--z10';
+z11'=(x11+.5*1.2thick,y11); penpos11' (1.2thick,0);
+penpos9' (thick,0);
+z10'=(w-x9',y9');
+z12'=(w-x11',y11');
+penpos10' (thick,0);
+penpos12' (1.2thick,0);
+penstroke z11'e{right}..{dir(angle(z6'-z9'))}z9'e;
+penstroke z12'e{left}..{dir(angle(z5'-z10'))}z10'e;
+draw z11--z12;
+endchar;
+
+
+
+beginchar("j",.95em#,cap#,0); "The letter dd<-j";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x4=w-x7=curve_sidebar;
+x3=.5[x1,x4];
+x2=.5[x1,x3];
+x5=.35[x3,x7];
+x6=.5[x5,x7];
+bot y1=bot y3=bot y4=0; top y2=top y6=h;
+h-y5=h-y7=x7-x6;
+kut:=40; %angle(z2-z3)-90;
+kor:=15;
+z57=.5[z5,z7];
+z77-z57=(z7-z57)rotated (-kut); %z77
+z55-z57=(z5-z57)rotated (kut-kor); %z55
+x4:=x4-.7thick;
+z2'=z2;
+z3'=z3;
+ y2:=h-.5*1.3thick* sind63+.5*.3thin; y2':=y2;
+penpos1 (thick,0);
+penpos2 (.3thin,0);
+penpos2' (1.3thick,65);
+penpos3 (1.3thick,0);
+penpos3' (.3thin,180);
+penpos4 (1.3thick,0);
+penpos5 (1.3thick,0);
+penpos55 (1.3thick,kut-kor);
+penpos6 (.5thin,-90);
+penpos7 (.3thin,180);
+penpos77 (.3thin,180-kut);
+penstroke z1e{dir83}..{dir65}z2e;
+penstroke z2'e{dir-65}..{dir-83}z3e;
+penstroke z4e
+..z55e{dir(90+kut-kor)}..z5e{up}..z6e{right}..{down}z7e
+..z77e{dir(-90-kut)}..{dir(180+80)}z3'e;
+drawdot z4; drawdot z3;
+pickup pencircle xscaled thick yscaled .3thin; drawdot z1;
+pickup pencircle xscaled 1.3thick yscaled .3thin rotated 65; drawdot z2;
+endchar;
+
+
+
+
+beginchar("k",.45em#,cap#,0); "The letter k";
+pickup pencircle xscaled 1.2thick yscaled .2thin;
+x1=x2=x5=x6=
+w-x3=w-x4=curve_sidebar;
+y6=0; y4=y5=h/3; y2=y3=2h/3;y1=h;
+draw z1--z2--z3--z4; draw z5--z6;
+endchar;
+
+
+beginchar("l",em#,cap#,0); "The letter l";
+pickup pencircle scaled .01thin; %xscaled 1.3thick yscaled .2thin;
+x1=w-x2=.25w;
+d:=2x1-2curve_sidebar;
+y1=y2=.5d;
+top z3=(.5w, h);
+x4=w-x5=x1;
+y4=y5=.7h;
+z6=(x1+.5d,y1); x7=w-x6; y7=y6;
+bot z8-z1=(z6-z1) rotated -90; % z8
+z9-z1=(z8-z1) rotated -90; % z9
+z10-z1=(z9-z1) rotated -90; %z10
+penpos9 (thick,0);
+penpos10 (.4thin,-90);
+penpos8 (.4thin,90);
+penpos6 (.3thin,180);
+bot z11-z2=(z7-z2) rotated 90; % z11
+z12-z2=(z11-z2) rotated 90; % z12
+z13-z2=(z12-z2) rotated 90; %z13
+penpos7 (.3thin,0);
+penpos11 (.4thin,90);
+penpos12 (thick,180);
+penpos13 (.4thin,-90);
+penpos4 (.3thin,180);
+penpos5 (1.4thick,0);
+penpos3 (.4thick,90);
+kut:=10;
+z10'-z1=(z10-z1) rotated -kut;
+z13'-z2=(z13-z2) rotated kut;
+penpos10' (.3thin,-90+kut);
+penpos13' (.3thin,-90-kut);
+penstroke z6e{down}..z8e{left}..z9e{up}..z10'e{dir kut}..{dir-kut}z13'e..
+z12e{down}..z11e{left}..z7e{up}..z5e{up}..z3e{left}..z4e{down}..cycle;
+endchar;
+
+
+
+
+beginchar("m",1.3em#,cap#,0); "The letter m";
+pickup pencircle xscaled 1.2thick yscaled .2thin;
+x1=w-x2=curve_sidebar; y1=y2=h;
+z4-z1=z2-z5=(.25w,0);
+h-y6=h-y7=.6(x4-x1); x6=.5[x1,x4]; x7=.5[x5,x2];
+draw z1--z2; draw z1{down}.. z6{right}..{up}z4; draw z5{down}..{right}z7
+..{up}z2;
+r:=0.33h;
+y91=y92=.17h; %radius
+x91=.27w; x92=w-x91;
+z3=.5[z1,z2];
+z3-z31=z32-z3=(.5*1.4 thick,0); %(.04w,0);
+z100=(.5w,.6h);
+z200=(.5w,.8y100);
+%x81=.8[x91,x31]; x82=w-x81;
+%y81=y82=.5h ;% 1.2x100;
+x41=x31; x42=x32; y41=y42=.7h;
+pickup pencircle xscaled .9thick yscaled 0.15thin;
+%pickup pencircle scaled (.1thin +blacker);
+kut:=angle(z91-z100)+15;
+kutt:=-kut;
+kut1:=angle(z100-z91);
+fill z31--z41{down}..tension 1.5..{dir kut}z91{dir kut1} %..cycle;
+..tension 1.5..{right}z200..tension 1.5..{dir -kut1}z92{dir kutt}..
+tension1.5..{up}z42--z32-- cycle;
+erase fill fullcircle scaled r shifted z91;
+erase fill fullcircle scaled r shifted z92;
+draw fullcircle scaled r shifted z91;
+draw fullcircle scaled r shifted z92;
+endchar;
+
+
+
+
+beginchar("n",.7em#,cap#,0); "The letter n";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=x2=w-x4=curve_sidebar;
+x8=1.5curve_sidebar;
+x7=x6=.37w; x3=x5=.5w;
+y8=y7=0; y6=y5=h; y2=y3=.5h; y4=.5[y3,y5];
+y1=y2-.1h;
+draw z1--z2--z3{right}..{up}z4..{left}z5--z6--z7--z8;
+endchar;
+
+
+
+beginchar("o",.55em#,cap#,0); "The letter o";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+rr:=.25w;
+sr:=rr;
+%s:=.15h;
+x1=x2=w-x6=curve_sidebar;
+x8=x9=x5=x3=x1+rr;
+y1=h-y2=sr; y6=.5h; y8=0; y3=h; y9=h-y5=2sr;
+kut:=70;
+z35=.5[z5,z3];
+z89=.5[z8,z9];
+(z3-z35)=(z4-z35) rotated 30; % z4
+(z7-z89)=(z8-z89) rotated 30; % z7
+penpos1 (thick,0); penpos2 (thick,0);
+penpos3 (.4thin,-90);
+penpos5 (.3thin,90);
+penpos9 (.3thin,-90);
+penpos8 (.4thin,90);
+kut1:=angle(z35-z4);
+kut2:=angle(z89-z7);
+penpos4 (.4thin,kut1);
+penpos7 (.4thin,kut2) ;
+penpos6 (1.3thick,180);
+kut4:=angle(z4-z35)-90;
+kut7:=angle(z7-z89)+90;
+penstroke z4e{dir kut4}..z5e{left}..{up}z2e..{right}z3e..z4e{dir kut4}..{down}z6e;
+penstroke z7e{dir kut7}..z9e{left}..{down}z1e..{right}z8e..z7e{dir
+kut7}..{up}z6e;
+picture slovoo; slovoo=currentpicture;
+endchar;
+
+beginchar("i",.8em#,1.02*cap#,0); "The letter i"; %.76
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x4=w-x2=curve_sidebar;
+x1=x3=x5=.5w;
+x1-x7=.2w;
+.5[x7,x6]=x1;
+bot y1=0; top y7=top y6=h;
+y3=.7h; y2=y4=y5=.5[y1,y3];
+draw z1{left}..z4{up}..{right}z3..{down}z2..cycle;
+pickup pencircle scaled .4thin;
+erase fill z5--z6--z7--cycle;
+draw z5--z6--z7--cycle;
+picture i; i=currentpicture;
+endchar;
+
+
+
+beginchar("p",.7em#,cap#,0); "The letter p";
+pickup pencircle xscaled 1.3thick yscaled .2thin;
+autoround:=4;
+x1=.6curve_sidebar; x2=x3=x7=.26w; w-x6=curve_sidebar; x5=.33[x7,x6]; x4=.5[x5,x6];
+y3=0; y1=y2=.5h; y4=.55h; y7=y6=y5=h;
+penpos6 (1.3thick,0);
+penpos4 (.5thin,-90);
+penpos5 (.3thin,180);
+draw z3--z7--z6;
+penstroke z6e{down}..{left}z4e..{up}z5e;
+pickup pencircle yscaled thick xscaled .2thin;
+draw z1--z2;
+endchar;
+
+
+
+beginchar("r",.6em#,cap#,0); "The letter r";
+pickup pencircle xscaled 1.3thick yscaled .2thin;
+x1=x2=x4=w-x3=curve_sidebar;
+y1=h; y2=0; y4=.55h; y3=.5[y2,y4];
+draw z1--z2{right}..{up}z3..{left}z4;
+endchar;
+
+
+
+beginchar("s",.8em#,cap#,0); "The letter s";
+pickup pencircle xscaled 1.2thick yscaled .2thin;
+transform t;
+t= identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also i transformed t;
+endchar;
+
+
+
+beginchar("t",.9em#,cap#,0); "The letter t";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar;
+x5-x1=x2-x6=.28w; y1=y2=y5=y6=h;
+y3=y4=.4h; x3=w-x4=.5[x1,x5];
+penpos1 (1.3thick,0);
+penpos3 (.5thin,90);
+penpos5 (.3thin,180);
+penpos2 (1.3thick,0);
+penpos4 (.5thin,-90);
+penpos6 (.3thin,180);
+draw z1--z2;
+penstroke z1e{down}..z3e{right}..{up}z5e;
+penstroke z2e{down}..z4e{left}..{up}z6e;
+endchar;
+
+
+
+beginchar(oct"014",.8em#,cap#,0); "The letter ss"; %ss
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x2=w-x4=w-x5=curve_sidebar; x3=x6=.5w;
+y1=y5=h; y6=.98h; y2=y3=y4=.5h;
+draw z1--z2--z4--z5; draw z3--z6;
+endchar;
+
+
+
+beginchar("c",.85em#,cap#,0); "The letter c";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+smoothing:=4;
+x23=x3=w-x7=curve_sidebar; bot x5=.55w; x6=.82w; y6=.5h;
+y23=.5[y2,y3];
+y5=0; top z4=(.42w,good.y h); top y3=y4; top y7=h; z1=.45[z4,z5]; x1:=x1-.04w;
+z2-z3=z1-z4;
+z12=.5[z1,z2]; z34=.5[z3,z4];
+penpos6(thick,0); penpos7(1.4thick,0);
+kut:=-10;
+draw z1--z12{left}..{dir angle(z4-z5)}z23..{right}z34--z4{dir (angle(z5-z4)+kut)}
+..{dir (angle(z5-z4)-kut)}z5;
+x55=x5+.4*thick; y55=0; penpos55(.7thick,0);
+penstroke z55e..z6e..z7e;
+endchar;
+
+
+
+
+
+beginchar(oct"013",.9em#,cap#,0); "The letter cc";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+x1=w-x2=curve_sidebar; x3=x5=w-x4=w-x6=.3w;
+x7=w-x8=.5(x3-x1); x11=.5w; x10=w-x9=.5(x7+x11);
+y1=y2=y3=y4=0; y5=y6=y7=y8=y11=.5h; y9=y10=h;
+z12=.3[z10,z7]; z13=.3[z9,z8];
+z14=.5[z12,z13];
+x12:=.2[x12,x14]; x13:=.2[x13,x14];
+draw z10..z12..z7; draw z7--z8; draw z8..z13..z9;
+pickup pencircle xscaled thick yscaled .2thin;
+draw z11--z14;
+draw z12--z13;
+d:=y11; z=(.5w,0); z0=.5[z,z11];
+draw fullcircle scaled d shifted z0;
+endchar;
+
+
+
+beginchar(oct"011",.8em#,cap#,0); "The letter ch"; %ch, ssch
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x2=w-x4=w-x5=curve_sidebar; x3=x6=.5w;
+y1=y5=h; y6=.98h; y2=y3=y4=.5h;
+z7=(x3,.5y3); d:=y3;
+draw z1--z2--z4--z5; draw z3--z6;
+pickup pencircle xscaled 1.2thick yscaled .2thin;
+draw fullcircle scaled d shifted z7;
+endchar;
+
+
+
+
+beginchar("u",2*.55em#,cap#,0); "The letter u";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+w:=.5w;
+rr:=.25w;
+sr:=rr;
+%s:=.15h;
+x1=x2=w-x6=curve_sidebar;
+x8=x9=x5=x3=x1+rr;
+y1=h-y2=sr; y6=.5h; y8=0; y3=h; y9=h-y5=2sr;
+kut:=70;
+z35=.5[z5,z3];
+z89=.5[z8,z9];
+(z3-z35)=(z4-z35) rotated 30; % z4
+(z7-z89)=(z8-z89) rotated 30; % z7
+penpos1 (thick,0); penpos2 (thick,0);
+penpos3 (.4thin,-90);
+penpos5 (.3thin,90);
+penpos9 (.3thin,-90);
+penpos8 (.4thin,90);
+kut1:=angle(z35-z4);
+kut2:=angle(z89-z7);
+penpos4 (.4thin,kut1);
+penpos7 (.4thin,kut2) ;
+penpos6 (1.3thick,180);
+kut4:=angle(z4-z35)-90;
+kut7:=angle(z7-z89)+90;
+penstroke z4e{dir kut4}..z5e{left}..{up}z2e..{right}z3e..z4e{dir kut4}..{down}z6e;
+penstroke z7e{dir kut7}..z9e{left}..{down}z1e..{right}z8e..z7e{dir
+kut7}..{up}z6e;
+d:=w-.15w;
+x1':=x1+d;
+x2':=x2+d;
+x3':=x3+d;
+x4':=x4+d;
+x5':=x5+d;
+x6':=x6+d;
+x7':=x7+d;
+x8':=x8+d;
+x9':=x9+d;
+x35':=x35+d;
+x89':=x89+d;
+y1'=h-y2'=sr; y6'=.5h; y8'=0; y3'=h; y9'=h-y5'=2sr;
+%kut:=70;
+z35'=.5[z5',z3'];
+z89'=.5[z8',z9'];
+(z3'-z35')=(z4'-z35') rotated 30; % z4
+(z7'-z89')=(z8'-z89') rotated 30; % z7
+penpos1' (thick,0); penpos2' (thick,0);
+penpos3' (.4thin,-90);
+penpos5' (.3thin,90);
+penpos9' (.3thin,-90);
+penpos8' (.4thin,90);
+%kut1:=angle(z35-z4);
+%kut2:=angle(z89-z7);
+penpos4' (.4thin,kut1);
+penpos7' (.4thin,kut2) ;
+penpos6' (1.3thick,180);
+%kut4:=angle(z4-z35)-90;
+%kut7:=angle(z7-z89)+90;
+penstroke z4'e{dir kut4}..z5'e{left}..{up}z2'e..{right}z3'e..z4'e{dir kut4}..{down}z6'e;
+penstroke z7'e{dir kut7}..z9'e{left}..{down}z1'e..{right}z8'e..z7'e{dir
+kut7}..{up}z6'e;
+z10=(2w-.6curve_sidebar,.5h);
+pickup pencircle yscaled .5thin;
+draw z6'--z10;
+endchar;
+
+
+beginchar("f",1.5em#,cap#,0); "The letter thita=f";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=w-x2=curve_sidebar; y1=y2=.5h;
+z3-z1=z2-z4=.2(z2-z1);
+x5=x7=w-x6=w-x8=.42w; y5=y6=0; y7=y8=h;
+x9=w-x10=.5(x1+x3); y9=y10=.2h;
+draw z3{down}..z9..{up}z1--z2{down}..z10..{up}z4;
+draw z5--z6--z8--z7--cycle;
+endchar;
+
+
+
+
+beginchar("h",.7em#,cap#,0); "The letter h";
+%pickup pencircle xscaled 1.4thick yscaled .3thin;
+%pickup pencircle scaled .3thin;
+x1=w-x5=curve_sidebar;
+x2=x3=.1w+curve_sidebar;
+rr:=.22w;
+x6=x4=x5-r; x7=x5-2rr;
+bot y1=bot y6=0; y2=2.3rr; top y3=h; y7=y5=rr;
+y4=2rr;
+penpos1 (.1thin,0);
+penpos2 (1.3thick,0);
+penpos3 (1.3thick,0);
+penpos4 (.5thin,-90);
+penpos5 (1.1thick,180);
+penpos6 (.5thin,90);
+penpos7 (.3thin,0);
+penstroke z3e---z2e..z1e;
+penstroke z4e{left}..{dir(180+60)}z1e;
+penstroke z4e{left}..z7e{down}..z6e{right}..{up}z5e.. cycle;
+endchar;
+
+
+beginchar("q",.8em#,cap#,.3em#); "The letter dz->q";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x4=w-x2=curve_sidebar;
+y4=y2=.5h;
+bot z1=(.5w,0); top z3=(.5w,h);
+rr:=.15h;
+z5=(x3,y3-rr);
+z6=(x1-r,y1+1.5rr);
+z7=(x1+rr,y1-1.5rr);
+draw superellipse(z2,z3,z4,z1,.75);
+pickup pencircle scaled .3thin;
+draw fullcircle scaled 2rr shifted z5;
+pickup pencircle xscaled thick yscaled .3thin;
+draw z6{right}..{dir(180+45)}z1..{right}z7;
+endchar;
+
+
+
+
+beginchar("w",.9em#,cap#,0); "The letter w->ja";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar; y1=y2=0;
+z8=.5[z1,z2];
+x8-x3=x4-x8=.03w;
+%x3=x4=w/2;
+y3=y4=h;
+z5=.4[z1,z3]; z6=.4[z2,z4]; x5:=x5+.03w; x6:=x6-.03w;
+z7=.5[z5,z6];
+kut:=8;
+draw z1--z2{dir (angle(z4-z2)+kut)}..{dir (angle(z4-z2)-kut)}z4--
+z3{dir (angle(z1-z3)+kut)}..{dir(angle(z1-z3)-kut)}z1;
+draw z5--z6; draw z8--z7;
+endchar;
+
+
+beginchar("x",.7em#,cap#,0); "The letter x->az (Bassch)";
+pickup pencircle xscaled 1.2thick yscaled .2thin;
+c:=curve_sidebar;
+x1=x2=x3=
+w-x4=
+w-x5=
+w-x6=
+w-x7=
+w-x8=c;
+y3=y4=0; y2=y7=.5h; y1=y5=h;
+y6-y7=y7-y8=.1h;
+draw z6--z1--z3--z8; draw z2--z7; draw z4--z5;
+endchar;
+
+
+
+beginchar("5",.9em#,cap#,.3em#); "The letter ju->5";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+%pickup pencircle scaled .3thin;
+x1=x2=w-x6=curve_sidebar; top y1=top y4=top y9=h;
+rr:=.22h;
+y6=y7=h-rr; y8=h-2rr;
+x7=x6-2rr; x8=x9=x6-rr;
+bot y2=0;
+x4=x5=.4w;
+y5=.5h;
+x3=0; y3=-.15h;
+penpos1 (1.2thick,0);
+penpos2 (1.2thick,0);
+penpos3 (.1thin,0);
+penpos4 (1.2thick,0);
+penpos5 (1.2thick,0);
+penstroke z1e--z2e{down}..z3e;
+penstroke z4e--z5e{down}..z3e;
+draw z1--z9{right}..{down}z6;
+penpos6 (1.2thick,0);
+penpos8 (.7thin,-90);
+penpos7 (.5thin,180);
+penpos9 (.3thin,90);
+penstroke z6e{down}..{left}z8e..{up}z7e..{right}z9e;
+endchar;
+
+
+
+beginchar(oct"000",em#,cap#,0); "The letter izze2";
+pickup pencircle scaled .3thin;
+rr:=.2h;
+x10=w-x12=curve_sidebar; y10=y12=y5=y6=h-rr;
+x5=x3=w-x6=w-x4=x10+rr;
+top y3=top y4=h;
+z5=.5[z9,z3]; % z9
+z6=.5[z11,z4]; % z11
+z5=.5[z10,z10']; % z10'
+z6=.5[z12,z12']; % z12'
+bot z1=(.5w,0);
+z2=(.5w,.5h);
+kut := 35;
+kutt:=7;
+z3'=z5+(z3-z5)rotated kutt;
+z4'=z6+(z4-z6)rotated -kutt;
+z7-z5=(z10'-z5)rotated kut;
+z8-z6=(z12'-z6)rotated -kut;
+penpos1 (1.4thick,0);
+penpos2 (.4thin,0);
+penpos7 (.3thin,kut);
+penpos3 (.3thin,90);
+penpos3' (.3thin,90+kutt);
+penpos10 (thick,180);
+penpos9 (.5thin,-90);
+penpos8 (.3thin,-kut);
+penpos4 (.3thin,-90);
+penpos4' (.3thin,-90-kutt);
+penpos12 (thick,180);
+penpos11 (.5thin,90);
+penstroke z1e..z2e{up}..{dir(kut+90)}z7e..
+z3'e{dir(180+kutt)}..{down}z10e..{right}z9e..{dir(kut+90)}z7e;
+penstroke z1e..z2e{up}..{dir(90-kut)}z8e
+..z4'e{dir(-kutt)}..{down}z12e..{left}z11e..{dir(90-kut)}z8e;
+draw z3'{dir kutt}..{dir -kutt}z4';
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+drawdot z1;
+endchar;
+
+
+
+beginchar("6",.8em#,cap#,-.2cap#); "meki znak 6";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+%pickup pencircle scaled .3thin;
+x8=w-x1=curve_sidebar;
+x5=.8w; bot y1=d; top y5=h; y8=.5(y1+y5);
+k:=.28;
+z4=k[z5,z1];
+z2=k[z1,z5]; z3=.5[z1,z5];
+z9-z8=.7(z2-z3);
+z6=(x5-.43w,y5);
+z66-z6=z4-z5;
+z7-z1=z6-z5; % z7
+z77-z7=.5(z2-z1);
+draw z2{left}..{down}z77..{right}z1--z5--z6{down}..controls z66
+..{right}z4;
+draw z8--z3;
+x9:=x9-.5*1.3thick;
+z10=z8+(.5*1.3thick,0);
+x8:=x8-.5*1.3thick;
+fill z8--z9{dir40}..{up}z10--cycle;
+endchar;
+
+
+beginchar("3",.8em#,cap#,-.2cap#); "tvrdi znak 3";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+%pickup pencircle scaled .3thin;
+x8=w-x1=curve_sidebar;
+x5=.8w; bot y1=d; top y5=h; %y8=.5(y1+y5);
+k:=.28;
+z4=k[z5,z1];
+z2=k[z1,z5]; z3=.55[z1,z5]; y8=y3;
+z6=(x5-.43w,y5);
+z66-z6=z4-z5;
+z7-z1=z6-z5; % z7
+z77-z7=.5(z2-z1);
+draw z2{left}..{down}z77..{right}z1--z5--z6{down}..controls z66
+..{right}z4;
+rr:=.15h;
+pickup pencircle xscaled .8thick yscaled .3thin;
+x8:=x8+rr; draw z8--z3; y8:=y8-rr;
+draw fullcircle scaled 2rr shifted z8;
+endchar;
+
+
+
+k:=.1;
+beginchar(oct"174",(.67+2k)*em#,cap#,0); "priprema en"; %002
+pickup pencircle xscaled 1.3thick yscaled .2thin;
+w:=.67/(.67+2k) *w;
+x1=x5=w-x3=curve_sidebar; y1=h-y5=.1h; y3=h/2;
+x2=x4=.42w; y2=0; y4=h;
+draw z5..{right}z4..{down}z3..{left}z2..z1;
+pickup pencircle xscaled 1.2thin yscaled .2thin;
+a:=.01;
+x8=.35w; x7=w-curve_sidebar-a*w;
+y8=y7=y3;
+draw z8--z7;
+w:=(.67+2k)/.67 *w;
+rr:=k*w;
+z6=(w-curve_sidebar-rr+.3thin,.5h); %centar kruzznice
+pickup pencircle scaled .3thin;
+draw fullcircle scaled 2rr shifted z6;
+picture e; e=currentpicture ;
+endchar;
+
+beginchar(oct"002",(.67+2k)*em#,cap#,0); "The letter en";
+%pickup pencircle xscaled 1.3thick yscaled .2thin;
+transform rot; rot=identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also e transformed rot;
+picture en; en=currentpicture;
+endchar;
+
+
+
+beginchar(oct"004",1.4*em#,cap#,0); "The letter jen";
+pickup pencircle scaled .3thin;
+transform t; t=identity;
+transform s; s= identity shifted ((.59)/(1.34+2k)*w,0);
+addto currentpicture also slovoe transformed t;
+addto currentpicture also en transformed s;
+endchar;
+
+beginchar(oct"006",1.3*em#,cap#,0); "The letter on";
+pickup pencircle scaled .3thin;
+transform t; t=identity;
+transform s; s= identity shifted ((.5)/(1.34+2k)*w,0);
+addto currentpicture also slovoo transformed t;
+addto currentpicture also en transformed s;
+endchar;
+
+beginchar(oct"136",.7em#,cap#,0); "zrcaljeni dz->8"; %priprema 012
+transform ref; ref=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also dz transformed ref;
+picture dz; dz=currentpicture;
+endchar;
+
+beginchar(oct"012",1.43*em#,cap#,0); "The letter izze2";
+transform t; t=identity;
+transform s; s= identity shifted ((.6)/(1.34+2k)*w,0);
+addto currentpicture also dz transformed t;
+addto currentpicture also en transformed s;
+endchar;
+
+
+beginchar("0",.8em#,cap#,0); "tvrdi znak (assemani) 0";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=x2=curve_sidebar;
+ee:=.01;
+re:=(.25+ee)*h;
+se:=(.25-ee)*h;
+x3=x4=x5=w-re-x1;
+y2=y4=(.5+2ee)*h; top y5=h; bot y3=0;
+z1-z2=(0,-.1h);
+draw z1--z2--z4;
+draw fullcircle scaled 2re shifted .5[z3,z4];
+draw fullcircle scaled 2se shifted .5[z5,z4];
+endchar;
+
+beginchar("1",.85em#,cap#,0); "meki znak (assemani) 1";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+ef:=.01;
+rf:=(.25+ef)*h;
+sf:=(.25-ef)*h;
+u:=.1h;
+x1=curve_sidebar+u; % u = polumjer male kruzznice
+y1=y2-u;
+x3=x4=x5=w-rf-curve_sidebar;
+y2=y4=(.5+2ef)*h; top y5=h; bot y3=0;
+z1-z2=(0,-.1h);
+draw fullcircle scaled 2rf shifted .5[z3,z4];
+draw fullcircle scaled 2sf shifted .5[z5,z4];
+pickup pencircle scaled .3thin;
+draw z2--z4;
+draw fullcircle scaled 2u shifted z1;
+endchar;
+
+
+beginchar(oct"176",.65em#,.1cap#,0); "tilda";
+pickup pencircle scaled .1thin ;
+x1=w-x2=curve_sidebar;
+x3=w-x6=.2w;
+x4=w-x5=.3w;
+bot y4=bot y6=0; top y3=top y5=h; y1=y2=.5h;
+penpos1 (.1thin,0);
+penpos4 (.2thin,90);
+penpos5 (.2thin,90);
+penpos2 (.1thin,0);
+penpos3 (.1thin,-90);
+penpos6 (.1thin,-90);
+filldraw z3l{left}...z1l{down}...{right}z4l...{right}z5l...{down}z2l
+...{left}z6l--z6r{right}...z2r{up}...
+z5r{left}...z4r{left}...z1r{up}...z3r{right}--cycle;
+endchar;
+
+beginchar(oct"076",.7em#,cap#,0); "The letter pauk(h)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x3=curve_sidebar;
+y1=y3=.5h;
+x2=.5w; y1-y2=x2-x1;
+z4=(.3w,-.1h);
+x5=.5w; y4=.5[y5,y2];
+path p; p= z2{dir(270-60)}..
+{down}z4..
+{dir(270+60)}z5;
+draw z1{down}..{right}z2..{up}z3;
+pickup pencircle xscaled 1.1thick yscaled .2thin;
+z7=.5[z1,z3];
+path pq; pq= p rotatedaround (z7,-30);
+draw pq;
+path qq; qq= p rotatedaround (z7,30);
+draw qq;
+transform rot; rot=identity rotatedaround (z7, 180);
+addto currentpicture also currentpicture transformed rot;
+%picture slovoo; slovoo=currentpicture;
+endchar;
+
diff --git a/language/croatian/fonts/mf/oblv.mf b/language/croatian/fonts/mf/oblv.mf
new file mode 100644
index 0000000000..5a85190ab1
--- /dev/null
+++ b/language/croatian/fonts/mf/oblv.mf
@@ -0,0 +1,950 @@
+% X = Az, Y = Izze, W=Jat, Q = OT, \m = dvokatni uglasti m,
+% oct"010" = meki znak, oct"020" = tvrdi znak (assemanijev)
+% 2 = JU, 9 = Dz,
+% 4 = Tvrdi znak, 7 = Meki znak
+% oct"001" = Izze2 (\Y)
+% oct"003" = En
+% oct"005" = Jen
+% oct"007" = On
+% oct"021" = Ch
+% oct"022" = Jon
+% oct"023" = Cc
+% oct"024" = Ss
+% oct"025" = Zz
+% oct"074" = Paukasti H,
+% oct"177" = Tilda
+
+
+
+beginchar("A",.7em#,cap#,0); "The letter A";
+pickup pencircle xscaled 1.3thick yscaled .2thin;
+x1=w-x2=curve_sidebar; y1=y2=h/2;
+x3=x4=w/2; y3=0; y4=h;
+z1-z5=z2-z6=(0,.2h);
+draw z5--z1--z2--z6; draw z3--z4;
+endchar;
+
+
+
+beginchar("B",0.7em#,cap#,0); "The letter B";
+pickup pencircle xscaled 1.3thick yscaled .2thin;
+smoothing:=4;
+k:=.5;
+x1=w-x2=curve_sidebar; y1=y2=0;
+x3=x4=w-x7=w-x8=curve_sidebar;
+y3=y5=y7=k*w;
+y4=y6=y8=h;
+x5=x6=w/2;
+%z3=0*[z9,z7];
+draw z4--z1--z2;
+draw z3--z7--z8;
+draw z5--z6;
+penlabels(1,2,3,4,5,6,7,8);
+endchar;
+
+beginchar("G",.8em#,cap#,0); "The letter G";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+%pickup pencircle scaled .3thin;
+x1=w-x8=curve_sidebar;
+r:=.2h;
+x2=x4=x5=x1+r;
+ y1=y5=h-r;
+top y2=h; y4=y2-2r;
+kut:=20;
+z3-z5=(z4-z5) rotated (90-kut);
+bot y6=0; (z6-z3)dotprod(z3-z5)=0; % x6
+x9=x7=x8-r; x10=x8-2r;
+y9=y6; y8=y10=r; y7=2r;
+
+q:=.5(thick-.3thin)*cosd kut;
+x3'=x3+q; x6'=x6+q;
+y3'=y3; y6'=y6;
+x66=x6'+.5(thick-.3thin); bot y66=0;
+penpos1(thick,0);
+penpos2(.3thin,-90);
+penpos3(.3thin,180-kut);
+penpos4(.3thin,90);
+penpos3'(cosd kut*thick,180-kut);
+penpos6'(1.2thick,180);
+penpos66 (.3thin,180);
+penpos7(.3thin,90);
+penpos8 (thick,0);
+penpos9 (.5thin,-90);
+penpos10 (.4thin,180);
+drawdot z6';
+penstroke z3e{dir(-kut-90)}
+..{left}z4e..
+z1e{up}..{right}z2e;
+penstroke z6'e--z3'e{dir(-kut+90)}..{left}z2e;
+penstroke z66e{dir (angle(z3-z6))}..{right}z7e..{down}z8e..{left}z9e..{up}z10e
+..{right}z7e;
+endchar;
+
+
+
+beginchar("D",em#,cap#,0); "The letter D";
+pickup pencircle scaled .01thin; %xscaled 1.3thick yscaled .2thin;
+x1=w-x2=.25w;
+d:=2x1-2curve_sidebar;
+y1=y2=.5d;
+top z3=(.5w, h);
+x4=w-x5=x1;
+y4=y5=.7h;
+z6=(x1+.5d,y1); x7=w-x6; y7=y6;
+bot z8-z1=(z6-z1) rotated -90; % z8
+z9-z1=(z8-z1) rotated -90; % z9
+z10-z1=(z9-z1) rotated -90; %z10
+penpos9 (thick,0);
+penpos10 (.4thin,-90);
+penpos8 (.4thin,90);
+penpos6 (.3thin,180);
+penstroke z8e{left}..z9e{up}..z10e{right}..z6e{down}..cycle;
+bot z11-z2=(z7-z2) rotated 90; % z11
+z12-z2=(z11-z2) rotated 90; % z12
+z13-z2=(z12-z2) rotated 90; %z13
+penpos7 (.3thin,0);
+penpos11 (.4thin,90);
+penpos12 (thick,180);
+penpos13 (.4thin,-90);
+penstroke z11e{left}..z7e{up}..z13e{right}..z12e{down}..cycle;
+penpos4 (.3thin,180);
+penpos5 (1.4thick,0);
+penpos3 (.4thick,90);
+penstroke z6e{up}..z4e{up}..z3e{right}..z5e{down}..{down}z7e;
+picture slovoD; slovoD=currentpicture;
+endchar;
+
+
+beginchar("V",em#,cap#,0); "The symbol V";
+transform t;
+t=identity rotatedabout ((.5w,.5h),180);
+addto currentpicture also slovoD transformed t;
+endchar;
+
+
+
+
+
+beginchar("E",.67em#,cap#,0); "The letter E";
+pickup pencircle xscaled 1.2thick yscaled .2thin;
+x1=x5=w-x3=curve_sidebar; y1=h-y5=.1h; y3=h/2;
+x2=x4=.42w; y2=0; y4=h;
+draw z5..{right}z4..{down}z3..{left}z2..z1;
+pickup pencircle xscaled 1.2thin yscaled .2thin;
+a:=.01;
+x8=x9=.35w; x6=x7=w-curve_sidebar-a* w;
+y8-y3=y7-y3=y3-y9=y3-y6=.1h;
+draw z8--z7; draw z9--z6;
+picture slovoE; slovoE=currentpicture;
+endchar;
+
+beginchar(oct"025",em#,1.1cap#,0); "The letter Zz";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=.25w; x5=w-x6=.27w;
+x11=w-x21=curve_sidebar;
+x1-x11=x51-x5=x6-x61;
+y1=y2=y5=y6=.8h; y11=y21=y51=y61=.5[y1,y3];
+y3=y4=.47h; x3=w-x4=.5[x1,x5];
+z56=.5[z5,z6];
+y52=y62=h; x52-x11=x21-x62=.15w;
+penpos1 (.3thin,-90);
+penpos11 (1.2thick,0);
+penpos3 (.5thin,90);
+penpos51 (.3thin,180);
+penpos5 (.2thin,180);
+penpos2 (.3thin,90);
+penpos21 (1.2thick,0);
+penpos4 (.5thin,-90);
+penpos61 (.3thin,180);
+penpos6 (.2thin,180);
+draw z1-- z2;
+penstroke
+z1e{left}..z11e{down}..z3e{right}..{up}z51e..{left}z5e;
+penstroke
+z2e{right}..z21e{down}..z4e{left}..{up}z61e..{right}z6e;
+draw z52{dir -10}..{dir-70}z56{dir 70}..{dir10}z62;
+endchar;
+
+
+
+beginchar("9",.7em#,cap#,0); "The letter Dz->9";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=w-x2=curve_sidebar; y1=y2=.5h;
+r:=.2h; x5=.5w; x6=x5+r; y5=y6=h-r; x3=w-x4=.42w;
+bot y3=bot y4=0;
+z6-z5=(z7-z5) rotated(90-angle(z2-z4)); % z7
+z7-z8=whatever*(z2-z4); z8=whatever[z1,z3]; % z8
+z5=.5[z10,z6]; % z10
+z9-z5=(z6-z5)rotated 90;
+z5=.5[z11,z9];
+penpos6 (.3thin,0);
+penpos9 (.5thin,90);
+penpos10 (thick,180);
+penpos11 (.4thin,-90);
+penpos7 (.3thin,angle(z7-z5));
+penpos8 (.3thin,angle(z7-z5));
+draw z1--z2--z4--z3--cycle;
+penstroke z8e--z7e{dir(angle(z7-z8))}..
+z6e{up}..{left}z9e..{down}z10e..{right}z11e..
+{dir (angle(z7-z8))}z7e;
+picture Dz; Dz=currentpicture;
+endchar;
+
+
+
+beginchar("Z",.9em#,cap#,0); "The letter Z";
+a:=42;
+pickup pencircle xscaled 1.2thick yscaled .3thin rotated a;
+x1=w-x3=curve_sidebar; y1=y3=h/2;;
+z2=.6[z1,z3]; z5=.3[z2,z3];
+x4=x6=.5[x1,x2]; y4=h; y6=0;
+x7=.5[x5,x3]; y7=.1h;
+draw z4{dir(180+a)}..{down}z1..{dir-a}z6{dir a}..{up}z2..{dir(180-a)}z4;
+pickup pencircle xscaled thick yscaled .3thin;
+b:=1.3;
+x1:=x1+.3thick;
+draw z1--z3;
+penpos3 (thick,0);
+penpos7 (.5thin,-90);
+penpos5 (.3thin,180);
+penstroke z3e{down}..tension b..{left}z7e..tension b..{up}z5e;
+endchar;
+
+
+beginchar("Y",em#,cap#,0); "The letter Izze<-Y";
+pickup pencircle xscaled thick yscaled .2thin;
+%pickup pencircle scaled .3thin;
+x1=w-x2=curve_sidebar;
+r:=.2h; y1=y2=h-r;
+z3=(x1+r, h-r);
+z4=(x2-r,y3);
+kut:=30;
+z9-z3=(z1-z3) rotated(180+kut);
+z10=(w-x9,y9);
+(x7-x9,y7-y9)dotprod(x9-x3,y9-y3)=0;
+(z9-z3)dotprod(z6-z9)=0;
+ z5=(w-x6,0);
+top y7=h; bot y6=0;
+z11=z3+(z1-z3)rotated-90;
+z12=(w-x11,y11);
+z3=.5[z11,z13];
+z4=.5[z12,z14];
+penpos1 (thick,0);
+penpos11 (.2thin,-90);
+penpos9 (.2thin,180+kut);
+penpos13 (.5thin,90);
+penpos2 (thick,0);
+penpos12 (.2thin,90);
+penpos10 (.2thin,180-kut);
+penpos14 (.5thin,-90);
+penstroke z1e{up}..{right}z11e..{dir(kut-90)}z9e..{left}z13e..cycle;
+penstroke z2e{up}..{left}z12e..{dir (angle(z5-z10))}z10e..{right}z14e..cycle;
+x9'=x9+.5(thick-.2thin)*cosd kut; y10'=y10; y9'=y9;
+x10'=w-x9';
+top y7'=h; bot y6'=0;
+(x7'-x9',y7'-y9')dotprod(x9'-x3,y9'-y3)=0;
+(z9'-z3)dotprod(z6'-z9')=0;
+bot z5'=(w-x6',0);
+top z8'=(w-x7',h);
+draw z9'--z6'--z5'--z10';
+z11'=(x11+.5*1.2thick,y11); penpos11' (1.2thick,0);
+penpos9' (thick,0);
+z10'=(w-x9',y9');
+z12'=(w-x11',y11');
+penpos10' (thick,0);
+penpos12' (1.2thick,0);
+penstroke z11'e{right}..{dir(angle(z6'-z9'))}z9'e;
+penstroke z12'e{left}..{dir(angle(z5'-z10'))}z10'e;
+draw z11--z12;
+endchar;
+
+
+
+
+beginchar("J",.95em#,cap#,0); "The letter Dderv<-J";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x4=w-x7=curve_sidebar;
+x3=.5[x1,x4];
+x2=.5[x1,x3];
+x5=.35[x3,x7];
+x6=.5[x5,x7];
+bot y1=bot y3=bot y4=0; top y2=top y6=h;
+h-y5=h-y7=x7-x6;
+kut:=40; %angle(z2-z3)-90;
+kor:=15;
+z57=.5[z5,z7];
+z77-z57=(z7-z57)rotated (-kut); %z77
+z55-z57=(z5-z57)rotated (kut-kor); %z55
+x4:=x4-.7thick;
+z2'=z2;
+z3'=z3;
+ y2:=h-.5*1.3thick* sind63+.5*.3thin; y2':=y2;
+penpos1 (thick,0);
+penpos2 (.3thin,0);
+penpos2' (1.3thick,65);
+penpos3 (1.3thick,0);
+penpos3' (.3thin,180);
+penpos4 (1.3thick,0);
+penpos5 (1.3thick,0);
+penpos55 (1.3thick,kut-kor);
+penpos6 (.5thin,-90);
+penpos7 (.3thin,180);
+penpos77 (.3thin,180-kut);
+penstroke z1e{dir83}..{dir65}z2e;
+penstroke z2'e{dir-65}..{dir-83}z3e;
+penstroke z4e
+..z55e{dir(90+kut-kor)}..z5e{up}..z6e{right}..{down}z7e
+..z77e{dir(-90-kut)}..{dir(180+80)}z3'e;
+drawdot z4; drawdot z3;
+pickup pencircle xscaled thick yscaled .3thin; drawdot z1;
+pickup pencircle xscaled 1.3thick yscaled .3thin rotated 65; drawdot z2;
+endchar;
+
+
+
+beginchar("K",.45em#,cap#,0); "The letter K";
+pickup pencircle xscaled 1.2thick yscaled .2thin;
+x1=x2=x5=x6=
+w-x3=w-x4=curve_sidebar;
+y6=0; y4=y5=h/3; y2=y3=2h/3;y1=h;
+draw z1--z2--z3--z4--z5--z6;
+endchar;
+
+
+beginchar("L",em#,cap#,0); "The letter L";
+pickup pencircle scaled .01thin; %xscaled 1.3thick yscaled .2thin;
+x1=w-x2=.25w;
+d:=2x1-2curve_sidebar;
+y1=y2=.5d;
+top z3=(.5w, h);
+x4=w-x5=x1;
+y4=y5=.7h;
+z6=(x1+.5d,y1); x7=w-x6; y7=y6;
+bot z8-z1=(z6-z1) rotated -90; % z8
+z9-z1=(z8-z1) rotated -90; % z9
+z10-z1=(z9-z1) rotated -90; %z10
+penpos9 (thick,0);
+penpos10 (.4thin,-90);
+penpos8 (.4thin,90);
+penpos6 (.3thin,180);
+bot z11-z2=(z7-z2) rotated 90; % z11
+z12-z2=(z11-z2) rotated 90; % z12
+z13-z2=(z12-z2) rotated 90; %z13
+penpos7 (.3thin,0);
+penpos11 (.4thin,90);
+penpos12 (thick,180);
+penpos13 (.4thin,-90);
+penpos4 (.3thin,180);
+penpos5 (1.4thick,0);
+penpos3 (.4thick,90);
+kut:=10;
+z10'-z1=(z10-z1) rotated -kut;
+z13'-z2=(z13-z2) rotated kut;
+penpos10' (.3thin,-90+kut);
+penpos13' (.3thin,-90-kut);
+penstroke z6e{down}..z8e{left}..z9e{up}..z10'e{dir kut}..{dir-kut}z13'e..
+z12e{down}..z11e{left}..z7e{up}..z5e{up}..z3e{left}..z4e{down}..cycle;
+endchar;
+
+
+
+beginchar("M",1.2em#,cap#,0); "The letter M";
+pickup pencircle xscaled 1.2thick yscaled .2thin;
+x1=w-x2=curve_sidebar; y1=y2=h;
+z4-z1=z2-z5=(.25w,0);
+h-y6=h-y7=.6(x4-x1); x6=.5[x1,x4]; x7=.5[x5,x2];
+draw z1--z2; draw z1{down}.. z6{right}..{up}z4; draw z5{down}..{right}z7
+..{up}z2;
+r:=0.33h;
+y91=y92=.17h; %radius
+x91=.27w; x92=w-x91;
+z3=.5[z1,z2];
+z3-z31=z32-z3=(.5*1.4 thick,0); %(.04w,0);
+z100=(.5w,.6h);
+z200=(.5w,.8y100);
+%x81=.8[x91,x31]; x82=w-x81;
+%y81=y82=.5h ;% 1.2x100;
+x41=x31; x42=x32; y41=y42=.7h;
+pickup pencircle xscaled .9thick yscaled 0.15thin;
+%pickup pencircle scaled (.1thin +blacker);
+kut:=angle(z91-z100)+15;
+kutt:=-kut;
+kut1:=angle(z100-z91);
+fill z31--z41{down}..tension 1.5..{dir kut}z91{dir kut1} %..cycle;
+..tension 1.5..{right}z200..tension 1.5..{dir -kut1}z92{dir kutt}..
+tension1.5..{up}z42--z32-- cycle;
+erase fill fullcircle scaled r shifted z91;
+erase fill fullcircle scaled r shifted z92;
+draw fullcircle scaled r shifted z91;
+draw fullcircle scaled r shifted z92;
+endchar;
+
+
+
+
+beginchar("N",.7em#,cap#,0); "The letter N";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=x2=w-x4=curve_sidebar;
+x8=1.5curve_sidebar;
+x7=x6=.37w; x3=x5=.5w;
+y8=y7=0; y6=y5=h; y2=y3=.5h; y4=.5[y3,y5];
+y1=y2-.1h;
+draw z1--z2--z3{right}..{up}z4..{left}z5--z6--z7--z8;
+endchar;
+
+
+beginchar("O",.55em#,cap#,0); "The letter O";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+r:=.25w;
+s:=r;
+%s:=.15h;
+x1=x2=w-x6=curve_sidebar;
+x8=x9=x5=x3=x1+r;
+y1=h-y2=s; y6=.5h; y8=0; y3=h; y9=h-y5=2s;
+kut:=70;
+z35=.5[z5,z3];
+z89=.5[z8,z9];
+(z3-z35)=(z4-z35) rotated 30; % z4
+(z7-z89)=(z8-z89) rotated 30; % z7
+penpos1 (thick,0); penpos2 (thick,0);
+penpos3 (.4thin,-90);
+penpos5 (.3thin,90);
+penpos9 (.3thin,-90);
+penpos8 (.4thin,90);
+kut1:=angle(z35-z4);
+kut2:=angle(z89-z7);
+penpos4 (.4thin,kut1);
+penpos7 (.4thin,kut2) ;
+penpos6 (1.3thick,180);
+kut4:=angle(z4-z35)-90;
+kut7:=angle(z7-z89)+90;
+penstroke z4e{dir kut4}..z5e{left}..{up}z2e..{right}z3e..z4e{dir kut4}..{down}z6e;
+penstroke z7e{dir kut7}..z9e{left}..{down}z1e..{right}z8e..z7e{dir
+kut7}..{up}z6e;
+picture slovoO; slovoO=currentpicture;
+endchar;
+
+
+beginchar("I",.8em#,1.02*cap#,0); "The letter I"; %.76
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x4=w-x2=curve_sidebar;
+x1=x3=x5=.5w;
+x1-x7=.2w;
+.5[x7,x6]=x1;
+bot y1=0; top y7=top y6=h;
+y3=.7h; y2=y4=y5=.5[y1,y3];
+draw z1{left}..z4{up}..{right}z3..{down}z2..cycle;
+pickup pencircle scaled .4thin;
+erase fill z5--z6--z7--cycle;
+draw z5--z6--z7--cycle;
+picture I; I=currentpicture;
+endchar;
+
+
+
+
+
+beginchar("P",.7em#,cap#,0); "The letter P";
+pickup pencircle xscaled 1.3thick yscaled .2thin;
+autoround:=4;
+x1=.6curve_sidebar; x2=x3=x7=.26w; w-x6=curve_sidebar; x5=.33[x7,x6]; x4=.5[x5,x6];
+y3=0; y1=y2=.5h; y4=.55h; y7=y6=y5=h;
+penpos6 (1.3thick,0);
+penpos4 (.5thin,-90);
+penpos5 (.3thin,180);
+draw z3--z7--z6;
+penstroke z6e{down}..{left}z4e..{up}z5e;
+pickup pencircle yscaled thick xscaled .2thin;
+draw z1--z2;
+endchar;
+
+
+
+
+beginchar("R",.6em#,cap#,0); "The letter R";
+pickup pencircle xscaled 1.3thick yscaled .2thin;
+x1=x2=x4=w-x3=curve_sidebar;
+y1=h; y2=0; y4=.55h; y3=.5[y2,y4];
+draw z1--z2{right}..{up}z3..{left}z4;
+endchar;
+
+
+beginchar("S",.8em#,cap#,0); "The letter S";
+pickup pencircle xscaled 1.2thick yscaled .2thin;
+transform t;
+t= identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also I transformed t;
+endchar;
+
+
+
+beginchar("T",.9em#,cap#,0); "The letter T";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar;
+x5-x1=x2-x6=.28w; y1=y2=y5=y6=h;
+y3=y4=.4h; x3=w-x4=.5[x1,x5];
+penpos1 (1.3thick,0);
+penpos3 (.5thin,90);
+penpos5 (.3thin,180);
+penpos2 (1.3thick,0);
+penpos4 (.5thin,-90);
+penpos6 (.3thin,180);
+draw z1--z2;
+penstroke z1e{down}..z3e{right}..{up}z5e;
+penstroke z2e{down}..z4e{left}..{up}z6e;
+endchar;
+
+
+
+beginchar(oct"024",.8em#,cap#,0); "The letter Ss";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x2=w-x4=w-x5=curve_sidebar; x3=x6=.5w;
+y1=y5=h; y6=.98h; y2=y3=y4=.5h;
+draw z1--z2--z4--z5; draw z3--z6;
+endchar;
+
+
+beginchar("C",.85em#,cap#,0); "The letter C";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+smoothing:=4;
+x23=x3=w-x7=curve_sidebar; bot x5=.55w; x6=.82w; y6=.5h;
+y23=.5[y2,y3];
+y5=0; top z4=(.42w,good.y h); top y3=y4; top y7=h; z1=.45[z4,z5]; x1:=x1-.04w;
+z2-z3=z1-z4;
+z12=.5[z1,z2]; z34=.5[z3,z4];
+penpos6(thick,0); penpos7(1.4thick,0);
+kut:=-10;
+draw z1--z12{left}..{dir angle(z4-z5)}z23..{right}z34--z4{dir (angle(z5-z4)+kut)}
+..{dir (angle(z5-z4)-kut)}z5;
+x55=x5+.4*thick; y55=0; penpos55(.7thick,0);
+penstroke z55e..z6e..z7e;
+endchar;
+
+
+
+
+
+
+beginchar(oct"023",.9em#,cap#,0); "The letter Cc";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+autoround:=4;
+x1=w-x2=curve_sidebar; x3=x5=w-x4=w-x6=.3w;
+x7=w-x8=.5(x3-x1); x11=.5w; x10=w-x9=.5(x7+x11);
+y1=y2=y3=y4=0; y5=y6=y7=y8=y11=.5h; y9=y10=h;
+z12=.3[z10,z7]; z13=.3[z9,z8];
+z14=.5[z12,z13];
+x12:=.2[x12,x14]; x13:=.2[x13,x14];
+draw z10..z12..z7; draw z7--z8; draw z8..z13..z9;
+pickup pencircle xscaled thick yscaled .2thin;
+draw z11--z14;
+draw z12--z13;
+d:=y11; z=(.5w,0); z0=.5[z,z11];
+draw fullcircle scaled d shifted z0;
+endchar;
+
+
+
+
+beginchar(oct"021",.8em#,cap#,0); "The letter Ch"; %ch, ssch
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=x2=w-x4=w-x5=curve_sidebar; x3=x6=.5w;
+y1=y5=h; y6=.98h; y2=y3=y4=.5h;
+z7=(x3,.5y3); d:=y3;
+draw z1--z2--z4--z5; draw z3--z6;
+pickup pencircle xscaled 1.2thick yscaled .2thin;
+draw fullcircle scaled d shifted z7;
+endchar;
+
+
+
+beginchar("U",2*.55em#,cap#,0); "The letter U";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+w:=.5w;
+r:=.25w;
+s:=r;
+%s:=.15h;
+x1=x2=w-x6=curve_sidebar;
+x8=x9=x5=x3=x1+r;
+y1=h-y2=s; y6=.5h; y8=0; y3=h; y9=h-y5=2s;
+kut:=70;
+z35=.5[z5,z3];
+z89=.5[z8,z9];
+(z3-z35)=(z4-z35) rotated 30; % z4
+(z7-z89)=(z8-z89) rotated 30; % z7
+penpos1 (thick,0); penpos2 (thick,0);
+penpos3 (.4thin,-90);
+penpos5 (.3thin,90);
+penpos9 (.3thin,-90);
+penpos8 (.4thin,90);
+kut1:=angle(z35-z4);
+kut2:=angle(z89-z7);
+penpos4 (.4thin,kut1);
+penpos7 (.4thin,kut2) ;
+penpos6 (1.3thick,180);
+kut4:=angle(z4-z35)-90;
+kut7:=angle(z7-z89)+90;
+penstroke z4e{dir kut4}..z5e{left}..{up}z2e..{right}z3e..z4e{dir kut4}..{down}z6e;
+penstroke z7e{dir kut7}..z9e{left}..{down}z1e..{right}z8e..z7e{dir
+kut7}..{up}z6e;
+d:=w-.15w;
+x1':=x1+d;
+x2':=x2+d;
+x3':=x3+d;
+x4':=x4+d;
+x5':=x5+d;
+x6':=x6+d;
+x7':=x7+d;
+x8':=x8+d;
+x9':=x9+d;
+x35':=x35+d;
+x89':=x89+d;
+y1'=h-y2'=s; y6'=.5h; y8'=0; y3'=h; y9'=h-y5'=2s;
+%kut:=70;
+z35'=.5[z5',z3'];
+z89'=.5[z8',z9'];
+(z3'-z35')=(z4'-z35') rotated 30; % z4
+(z7'-z89')=(z8'-z89') rotated 30; % z7
+penpos1' (thick,0); penpos2' (thick,0);
+penpos3' (.4thin,-90);
+penpos5' (.3thin,90);
+penpos9' (.3thin,-90);
+penpos8' (.4thin,90);
+%kut1:=angle(z35-z4);
+%kut2:=angle(z89-z7);
+penpos4' (.4thin,kut1);
+penpos7' (.4thin,kut2) ;
+penpos6' (1.3thick,180);
+%kut4:=angle(z4-z35)-90;
+%kut7:=angle(z7-z89)+90;
+penstroke z4'e{dir kut4}..z5'e{left}..{up}z2'e..{right}z3'e..z4'e{dir kut4}..{down}z6'e;
+penstroke z7'e{dir kut7}..z9'e{left}..{down}z1'e..{right}z8'e..z7'e{dir
+kut7}..{up}z6'e;
+z10=(2w-.6curve_sidebar,.5h);
+pickup pencircle yscaled .5thin;
+draw z6'--z10;
+endchar;
+
+
+
+beginchar("F",1.5em#,cap#,0); "The letter Thita=F";
+pickup pencircle xscaled 1.4thick yscaled .2thin;
+x1=w-x2=curve_sidebar; y1=y2=.5h;
+z3-z1=z2-z4=.2(z2-z1);
+x5=x7=w-x6=w-x8=.42w; y5=y6=0; y7=y8=h;
+x9=w-x10=.5(x1+x3); y9=y10=.2h;
+draw z3{down}..z9..{up}z1--z2{down}..z10..{up}z4;
+draw z5--z6--z8--z7--cycle;
+endchar;
+
+
+
+beginchar("H",.7em#,cap#,0); "The letter H";
+%pickup pencircle xscaled 1.4thick yscaled .3thin;
+%pickup pencircle scaled .3thin;
+x1=w-x5=curve_sidebar;
+x2=x3=.1w+curve_sidebar;
+r:=.22w;
+x6=x4=x5-r; x7=x5-2r;
+bot y1=bot y6=0; y2=2.3r; top y3=h; y7=y5=r;
+y4=2r;
+penpos1 (.1thin,0);
+penpos2 (1.3thick,0);
+penpos3 (1.3thick,0);
+penpos4 (.5thin,-90);
+penpos5 (1.1thick,180);
+penpos6 (.5thin,90);
+penpos7 (.3thin,0);
+penstroke z3e---z2e..z1e;
+penstroke z4e{left}..{dir(180+60)}z1e;
+penstroke z4e{left}..z7e{down}..z6e{right}..{up}z5e.. cycle;
+endchar;
+
+
+
+
+beginchar("Q",.8em#,cap#,.3em#); "The letter OT->Q";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+x4=w-x2=curve_sidebar;
+y4=y2=.5h;
+bot z1=(.5w,0); top z3=(.5w,h);
+r:=.15h;
+z5=(x3,y3-r);
+z6=(x1,y1+r);
+draw superellipse(z2,z3,z4,z1,.75);
+pickup pencircle scaled .3thin;
+draw fullcircle scaled 2r shifted z5;
+draw fullcircle scaled 2r shifted z6;
+endchar;
+
+
+
+beginchar("W",.9em#,cap#,0); "The letter W->ja";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x2=curve_sidebar; y1=y2=0;
+z8=.5[z1,z2];
+x8-x3=x4-x8=.03w;
+%x3=x4=w/2;
+y3=y4=h;
+z5=.4[z1,z3]; z6=.4[z2,z4]; x5:=x5+.03w; x6:=x6-.03w;
+z7=.5[z5,z6];
+kut:=8;
+draw z1--z2{dir (angle(z4-z2)+kut)}..{dir (angle(z4-z2)-kut)}z4--
+z3{dir (angle(z1-z3)+kut)}..{dir(angle(z1-z3)-kut)}z1;
+draw z5--z6; draw z8--z7;
+endchar;
+
+beginchar("X",.7em#,cap#,0); "The letter X->az (Bassch)";
+pickup pencircle xscaled 1.2thick yscaled .2thin;
+c:=curve_sidebar;
+x1=x2=x3=
+w-x4=
+w-x5=
+w-x6=
+w-x7=
+w-x8=c;
+y3=y4=0; y2=y7=.5h; y1=y5=h;
+y6-y7=y7-y8=.1h;
+draw z6--z1--z3--z8; draw z2--z7; draw z4--z5;
+endchar;
+
+
+
+beginchar("2",.9em#,cap#,.3em#); "The letter JU->2";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+%pickup pencircle scaled .3thin;
+x1=x2=w-x6=curve_sidebar; top y1=top y4=top y9=h;
+r:=.22h;
+y6=y7=h-r; y8=h-2r;
+x7=x6-2r; x8=x9=x6-r;
+bot y2=0;
+x4=x5=.4w;
+y5=.5h;
+x3=0; y3=-.15h;
+penpos1 (1.2thick,0);
+penpos2 (1.2thick,0);
+penpos3 (.1thin,0);
+penpos4 (1.2thick,0);
+penpos5 (1.2thick,0);
+penstroke z1e--z2e{down}..z3e;
+penstroke z4e--z5e{down}..z3e;
+draw z1--z9{right}..{down}z6;
+penpos6 (1.2thick,0);
+penpos8 (.7thin,-90);
+penpos7 (.5thin,180);
+penpos9 (.3thin,90);
+penstroke z6e{down}..{left}z8e..{up}z7e..{right}z9e;
+endchar;
+
+
+beginchar(oct"001",em#,cap#,0); "The letter Izze2";
+pickup pencircle scaled .3thin;
+r:=.2h;
+x10=w-x12=curve_sidebar; y10=y12=y5=y6=h-r;
+x5=x3=w-x6=w-x4=x10+r;
+top y3=top y4=h;
+z5=.5[z9,z3]; % z9
+z6=.5[z11,z4]; % z11
+z5=.5[z10,z10']; % z10'
+z6=.5[z12,z12']; % z12'
+bot z1=(.5w,0);
+z2=(.5w,.5h);
+kut := 35;
+kutt:=7;
+z3'=z5+(z3-z5)rotated kutt;
+z4'=z6+(z4-z6)rotated -kutt;
+z7-z5=(z10'-z5)rotated kut;
+z8-z6=(z12'-z6)rotated -kut;
+penpos1 (1.4thick,0);
+penpos2 (.4thin,0);
+penpos7 (.3thin,kut);
+penpos3 (.3thin,90);
+penpos3' (.3thin,90+kutt);
+penpos10 (thick,180);
+penpos9 (.5thin,-90);
+penpos8 (.3thin,-kut);
+penpos4 (.3thin,-90);
+penpos4' (.3thin,-90-kutt);
+penpos12 (thick,180);
+penpos11 (.5thin,90);
+penstroke z1e..z2e{up}..{dir(kut+90)}z7e..
+z3'e{dir(180+kutt)}..{down}z10e..{right}z9e..{dir(kut+90)}z7e;
+penstroke z1e..z2e{up}..{dir(90-kut)}z8e
+..z4'e{dir(-kutt)}..{down}z12e..{left}z11e..{dir(90-kut)}z8e;
+draw z3'{dir kutt}..{dir -kutt}z4';
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+drawdot z1;
+endchar;
+
+
+beginchar("7",.8em#,cap#,-.2cap#); "Meki znak 7";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+%pickup pencircle scaled .3thin;
+x8=w-x1=curve_sidebar;
+x5=.8w; bot y1=d; top y5=h; y8=.5(y1+y5);
+k:=.28;
+z4=k[z5,z1];
+z2=k[z1,z5]; z3=.5[z1,z5];
+z9-z8=.7(z2-z3);
+z6=(x5-.43w,y5);
+z66-z6=z4-z5;
+z7-z1=z6-z5; % z7
+z77-z7=.5(z2-z1);
+draw z2{left}..{down}z77..{right}z1--z5--z6{down}..controls z66
+..{right}z4;
+draw z8--z3;
+x9:=x9-.5*1.3thick;
+z10=z8+(.5*1.3thick,0);
+x8:=x8-.5*1.3thick;
+fill z8--z9{dir40}..{up}z10--cycle;
+endchar;
+
+beginchar("4",.8em#,cap#,-.2cap#); "Tvrdi znak 4";
+pickup pencircle xscaled 1.4thick yscaled .3thin;
+%pickup pencircle scaled .3thin;
+x8=w-x1=curve_sidebar;
+x5=.8w; bot y1=d; top y5=h; %y8=.5(y1+y5);
+k:=.28;
+z4=k[z5,z1];
+z2=k[z1,z5]; z3=.55[z1,z5]; y8=y3;
+%z9-z8=.7(z2-z3);
+z6=(x5-.43w,y5);
+z66-z6=z4-z5;
+z7-z1=z6-z5; % z7
+z77-z7=.5(z2-z1);
+draw z2{left}..{down}z77..{right}z1--z5--z6{down}..controls z66
+..{right}z4;
+r:=.15h;
+pickup pencircle xscaled .8thick yscaled .3thin;
+x8:=x8+r; draw z8--z3; y8:=y8-r;
+draw fullcircle scaled 2r shifted z8;
+endchar;
+
+k:=.1;
+beginchar(oct"175",(.67+2k)*em#,cap#,0); "priprema En"; %003
+pickup pencircle xscaled 1.3thick yscaled .2thin;
+w:=.67/(.67+2k) *w;
+x1=x5=w-x3=curve_sidebar; y1=h-y5=.1h; y3=h/2;
+x2=x4=.42w; y2=0; y4=h;
+draw z5..{right}z4..{down}z3..{left}z2..z1;
+pickup pencircle xscaled 1.2thin yscaled .2thin;
+a:=.01;
+x8=.35w; x7=w-curve_sidebar-a* w;
+y8=y7=y3;
+draw z8--z7;
+w:=(.67+2k)/.67 *w;
+r:=k*w;
+z6=(w-curve_sidebar-r+.3thin,.5h); %centar kruzznice
+pickup pencircle scaled .3thin;
+draw fullcircle scaled 2r shifted z6;
+%draw (0,0)--(w,0);
+picture E; E=currentpicture ;
+endchar;
+
+beginchar(oct"003",(.67+2k)*em#,cap#,0); "The letter En";
+transform rot; rot=identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also E transformed rot;
+picture En; En=currentpicture;
+endchar;
+
+
+
+beginchar(oct"005",1.4*em#,cap#,-.2cap#); "The letter Jen";
+transform t; t=identity;
+transform s; s= identity shifted ((.59)/(1.34+2k)*w,0);
+addto currentpicture also slovoE transformed t;
+addto currentpicture also En transformed s;
+endchar;
+
+beginchar(oct"007",1.3*em#,cap#,0); "The letter On";
+transform t; t=identity;
+transform s; s= identity shifted ((.5)/(1.34+2k)*w,0);
+addto currentpicture also slovoO transformed t;
+addto currentpicture also En transformed s;
+endchar;
+
+
+beginchar(oct"137",.7em#,cap#,0); "zrcaljeni Dz"; % privremeni 022
+transform ref; ref=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also Dz transformed ref;
+picture Dz; Dz=currentpicture;
+endchar;
+
+beginchar(oct"022",1.43*em#,cap#,0); "The letter Jon";
+transform t; t=identity;
+transform s; s= identity shifted ((.6)/(1.34+2k)*w,0);
+addto currentpicture also Dz transformed t;
+addto currentpicture also En transformed s;
+endchar;
+
+beginchar(oct"010",.8em#,cap#,0); "Tvrdi znak (assemani)";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+x1=x2=curve_sidebar;
+ee:=.01;
+re:=(.25+ee)*h;
+se:=(.25-ee)*h;
+x3=x4=x5=w-re-x1;
+y2=y4=(.5+2ee)*h; top y5=h; bot y3=0;
+z1-z2=(0,-.1h);
+draw z1--z2--z4;
+draw fullcircle scaled 2re shifted .5[z3,z4];
+draw fullcircle scaled 2se shifted .5[z5,z4];
+endchar;
+
+beginchar(oct"020",.85em#,cap#,0); "Meki znak (assemani)";
+pickup pencircle xscaled 1.2thick yscaled .3thin;
+ee:=.01;
+re:=(.25+ee)*h;
+se:=(.25-ee)*h;
+u:=.1h;
+x1=curve_sidebar+u; % u = polumjer male kruzznice
+y1=y2-u;
+x3=x4=x5=w-re-curve_sidebar;
+y2=y4=(.5+2ee)*h; top y5=h; bot y3=0;
+z1-z2=(0,-.1h);
+draw fullcircle scaled 2re shifted .5[z3,z4];
+draw fullcircle scaled 2se shifted .5[z5,z4];
+pickup pencircle scaled .3thin;
+draw z2--z4;
+draw fullcircle scaled 2u shifted z1;
+endchar;
+
+
+beginchar(oct"177",.65em#,.1cap#,0); "Tilda";
+pickup pencircle scaled .1thin ;
+x1=w-x2=curve_sidebar;
+x3=w-x6=.2w;
+x4=w-x5=.3w;
+bot y4=bot y6=0; top y3=top y5=h; y1=y2=.5h;
+penpos1 (.1thin,0);
+penpos4 (.2thin,90);
+penpos5 (.2thin,90);
+penpos2 (.1thin,0);
+penpos3 (.1thin,-90);
+penpos6 (.1thin,-90);
+filldraw z3l{left}...z1l{down}...{right}z4l...{right}z5l...{down}z2l
+...{left}z6l--z6r{right}...z2r{up}...
+z5r{left}...z4r{left}...z1r{up}...z3r{right}--cycle;
+endchar;
+
+beginchar(oct"074",.7em#,cap#,0); "The letter pauk(H)";
+pickup pencircle xscaled 1.3thick yscaled .3thin;
+x1=w-x3=curve_sidebar;
+y1=y3=.5h;
+x2=.5w; y1-y2=x2-x1;
+z4=(.3w,-.1h);
+x5=.5w; y4=.5[y5,y2];
+path pr; pr= z2{dir(270-60)}..
+{down}z4..
+{dir(270+60)}z5;
+draw z1{down}..{right}z2..{up}z3;
+pickup pencircle xscaled 1.1thick yscaled .2thin;
+z7=.5[z1,z3];
+path qr; qr= pr rotatedaround (z7,-30);
+draw qr;
+path qs; qs= pr rotatedaround (z7,30);
+draw qs;
+transform rot; rot=identity rotatedaround (z7, 180);
+addto currentpicture also currentpicture transformed rot;
+%picture slovoo; slovoo=currentpicture;
+endchar;
+
diff --git a/language/croatian/fonts/mf/ple.mf b/language/croatian/fonts/mf/ple.mf
new file mode 100644
index 0000000000..b5563054d7
--- /dev/null
+++ b/language/croatian/fonts/mf/ple.mf
@@ -0,0 +1,89 @@
+
+% Croatian Wattle Patterns
+% Circular wattle pattern, 1994, darko.zubrinic@etf.hr
+
+mode_setup;
+ font_size 10pt#;
+ u#:=.8pt#; font_quad= 24u#;
+ font_normal_space= 9u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 2u#;
+ em#:=10pt#; cap#:=7pt#;
+ thin#:=2/3pt#; thick#:=.9*5/6pt#;
+ o#:=1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:=round 1.1*1/10em;
+
+
+beginchar("a",10cap#,5cap#,5cap#); "veliki, gusti pleter"; %10
+pickup pencircle scaled .2thick;
+n:=20; % 20
+kuts:=360/(2n);
+z0=(.5w,0);
+r:=.7*.5w; % .7
+R:=.5w;
+.5[x7,x6]=.5[w-(R-r),w];
+x8-x7=x7-x6=x6-x5=1.41*1/7*(R-r); % def z5,...,z8
+y5=y6=y7=y8=0;
+z1=(w,0) rotatedaround (z0,kuts);
+z4=(w-3*1/7*(R-r),0) rotatedaround (z0,kuts);
+z1-z2=z2-z3=z3-z4; % def z1,...,z4
+z9=(w-(R-r),0) rotatedaround (z0,-kuts);
+z12=(w-(R-r)+3*1/7*(R-r),0) rotatedaround (z0,-kuts);
+z12-z11=z11-z10=z10-z9; % def z9,...,z12
+
+path p[]; path q[];
+path qq[]; path pp[];
+path p$[]; path q$[];
+path qq$[]; path pp$[];
+
+for l=1 upto 5:
+kutt[l]:=(2l-1)*360/(2n);
+kuttt[l]:=kutt[l]-360/n;
+
+for k=1 upto 12: z'[k][l]=z[k] rotatedaround (z0,kutt[l]); endfor
+kut[l]=angle (z'[9][l]-z'[1][l]); %-10;
+p[l]= z'[1][l]{dir (kutt[l]-90)}..tension1.1..
+ {dir(kut[l])}z'[8][l]..{dir (kuttt[l]-90)}z'[12][l];
+q[l]= z'[2][l]{dir(kutt[l]-90)}..{dir(kut[l])}z'[7][l]..
+ {dir(kuttt[l]-90)}z'[11][l];
+qq[l]= z'[3][l]{dir(kutt[l]-90)}..{dir(kut[l])}z'[6][l]..
+ {dir(kuttt[l]-90)}z'[10][l];
+pp[l]= z'[4][l]{dir(kutt[l]-90)}..{dir(kut[l])}z'[5][l]..
+ {dir(kuttt[l]-90)}z'[9][l];
+
+p$[l]= p[l] reflectedabout (z0,z'[8][l]);
+q$[l]= q[l] reflectedabout (z0,z'[8][l]);
+qq$[l]= qq[l] reflectedabout (z0,z'[8][l]);
+pp$[l]= pp[l] reflectedabout (z0,z'[8][l]);
+
+pickup pencircle scaled .2thick;
+draw p[l];
+pickup pencircle scaled .1thick;
+draw q[l]; draw qq[l];
+pickup pencircle scaled .2thick;
+draw pp[l];
+draw p$[l];
+pickup pencircle scaled .1thick;
+draw q$[l]; draw qq$[l];
+pickup pencircle scaled .2thick;
+draw pp$[l];
+
+unfill z'[1][l]--z'[4][l]{dir(kutt[l]-90)}..{dir(kut[l])}z'[5][l]..
+{dir(kuttt[l]-90)}z'[9][l]--z'[12][l]{dir(90+kuttt[l])}..
+{dir(kut[l]-180)}z'[8][l]..{dir(90+kutt[l])}z'[1][l]..cycle;
+draw p[l];
+pickup pencircle scaled .1thick;
+draw q[l]; draw qq[l];
+pickup pencircle scaled .2thick;
+draw pp[l];
+endfor
+transform s; s=identity rotatedaround (z0,90);
+addto currentpicture also currentpicture transformed s;
+addto currentpicture also currentpicture transformed (s transformed s);
+endchar;
+
+
+end.
+
diff --git a/language/croatian/fonts/mf/plet.mf b/language/croatian/fonts/mf/plet.mf
new file mode 100644
index 0000000000..80b9c22632
--- /dev/null
+++ b/language/croatian/fonts/mf/plet.mf
@@ -0,0 +1,580 @@
+
+% Croatian Wattle Pattern, 1994,
+% darko.zubrinic@etf.hr
+
+% o mmmm p (slozzeni pleter, jednostruki)
+
+mode_setup;
+ font_size 10pt#;
+ u#:=.8pt#; font_quad= 24u#;
+ font_normal_space= 9u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 2u#;
+ em#:=10pt#; cap#:=7pt#;
+ thin#:=2/3pt#; thick#:=.9*5/6pt#;
+ o#:=1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:=round 1.1*1/10em;
+
+
+beginchar("m",5em#,5cap#,0); "drugi pleter";
+pickup pencircle scaled .6thick;
+db:=.08w; %.09w
+r:=.2db;
+rr:=r+db;
+kut:=-35;
+kutt:=10;
+x1=x2=0; x9=.5w-r; x8=x9-1.5db; x10=x7=.5w;
+x5=w-curve_sidebar;
+x6=x5-1.8db; %1.9
+x4=x6; % -.15w;
+x3=x4-db*cosd kut;
+y2-.5h=.5h-y1=1.2*.5db/cosd kut;
+y3=y5=-.1db; y4=y6=db; y8=y9=.5h; y10=.5h-r; y7=y10-rr;
+draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9;
+draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8;
+
+transform t; t=identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also currentpicture transformed t;
+
+%brisanje na krugu
+path p; p= z6{dir(90+1.3kutt)}..
+tension1.5..{left}z7..{up}z8--z9{down}..{right}z10..{dir(-90+kutt)}z5--cycle;
+%path q; q=p transformed t;
+
+erase fill p;
+draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9;
+draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8;
+
+%brisanje na lijevom kraku
+path pp; pp= z7{right}..tension1.5..{dir(-90+1.3kutt)}z6;
+path p; p= subpath (.2,1) of pp;
+%draw p;
+path ss; ss=z5{dir(90+kutt)}..{left}z10;
+path q; q=subpath (0,.55) of ss;
+%draw q;
+path ar; ar=z6--z5; %draw r;
+path ok; ok= point 0 of p{left} & p & ar & q.. cycle;
+path okk; okk= ok reflectedabout ((.5w,0),(.5w,h));
+erase fill okk;
+draw q reflectedabout ((.5w,0),(.5w,h));
+draw p reflectedabout ((.5w,0),(.5w,h));
+
+%brisanje dolje
+path p; p= z1{dir(kut)}..{right}z3;
+path pp; pp= subpath (.45,1) of p; %.5
+path q; q= z4{left}..{dir(180+kut)}z2;
+path qq; qq= subpath (0,.4) of q;
+path qr; qr= pp & z3--z4 & qq--cycle;
+%pickup pencircle scaled .3thick;
+erase fill qr;
+draw pp; draw qq;
+
+%brisanje desno
+%pickup pencircle scaled .3thick;
+path zpp; zpp = subpath (0,.45) of p reflectedabout ((.5w,0),(.5w,h));
+path zqq; zqq = subpath (.4,1) of q reflectedabout ((.5w,0),(.5w,h));
+z.1=z1 reflectedabout ((.5w,0),(.5w,h));
+z.2=z2 reflectedabout ((.5w,0),(.5w,h));
+path zqr; zqr = zqq & z.2--z.1 & zpp --cycle;
+erase fill zqr;
+draw zpp; draw zqq;
+
+%brisanje na lijevom rubu
+path qu; qu= q reflectedabout ((0,.5h),(w,.5h));
+numeric t,u; (t,u)= qu intersectiontimes q;
+%pickup pencircle scaled .3thick;
+path quu; quu= subpath (t,1) of qu;
+undraw quu;
+undraw quu;
+%pickup pencircle scaled .1thick;
+draw point t of qu; draw z1;
+
+transform s; s=identity rotatedaround ((.5w,.5h),180);
+addto currentpicture also currentpicture transformed s;
+endchar;
+
+
+beginchar("o",5em#,5cap#,0); "drugi pleter, lijevi";
+pickup pencircle scaled .6thick;
+db:=.08w; %.09w
+r:=.2db;
+rr:=r+db;
+kut:=-35;
+kutt:=10;
+x1=x2=0; x9=.5w-r; x8=x9-1.5db; x10=x7=.5w;
+x5=w-curve_sidebar;
+x6=x5-1.8db; %1.9
+x4=x6; % -.15w;
+x3=x4-db*cosd kut;
+y2-.5h=.5h-y1=1.2*.5db/cosd kut;
+y3=y5=-.1db; y4=y6=db; y8=y9=.5h; y10=.5h-r; y7=y10-rr;
+draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9;
+draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8;
+
+transform t; t=identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also currentpicture transformed t;
+
+%brisanje na krugu
+path p; p= z6{dir(90+1.3kutt)}..
+tension1.5..{left}z7..{up}z8--z9{down}..{right}z10..{down}z5--cycle;
+%path q; q=p transformed t;
+
+erase fill p;
+draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9;
+draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8;
+
+%brisanje na lijevom kraku
+path pp; pp= z7{right}..tension1.5..{dir(-90+1.3kutt)}z6;
+path p; p= subpath (.2,1) of pp;
+%draw p;
+path ss; ss=z5{dir(90+kutt)}..{left}z10;
+path q; q=subpath (0,.55) of ss;
+%draw q;
+path ar; ar=z6--z5; %draw r;
+path ok; ok= point 0 of p{left} & p & ar & q.. cycle;
+path okk; okk= ok reflectedabout ((.5w,0),(.5w,h));
+erase fill okk;
+draw q reflectedabout ((.5w,0),(.5w,h));
+draw p reflectedabout ((.5w,0),(.5w,h));
+
+%brisanje dolje
+path p; p= z1{dir(kut)}..{right}z3;
+path pp; pp= subpath (.45,1) of p; %.5
+path q; q= z4{left}..{dir(180+kut)}z2;
+path qq; qq= subpath (0,.4) of q;
+path qr; qr= pp & z3--z4 & qq--cycle;
+%pickup pencircle scaled .3thick;
+erase fill qr;
+draw pp; draw qq;
+
+%brisanje desno
+%pickup pencircle scaled .3thick;
+path zpp; zpp = subpath (0,.45) of p reflectedabout ((.5w,0),(.5w,h));
+path zqq; zqq = subpath (.4,1) of q reflectedabout ((.5w,0),(.5w,h));
+z.1=z1 reflectedabout ((.5w,0),(.5w,h));
+z.2=z2 reflectedabout ((.5w,0),(.5w,h));
+path zqr; zqr = zqq & z.2--z.1 & zpp --cycle;
+erase fill zqr;
+draw zpp; draw zqq;
+
+%brisanje na lijevom rubu
+path qu; qu= q reflectedabout ((0,.5h),(w,.5h));
+numeric t,u; (t,u)= qu intersectiontimes q;
+%pickup pencircle scaled .3thick;
+path quu; quu= subpath (t,1) of qu;
+undraw quu;
+undraw quu;
+%pickup pencircle scaled .1thick;
+draw point t of qu; %draw z1;
+
+transform s; s=identity rotatedaround ((.5w,.5h),180);
+addto currentpicture also currentpicture transformed s;
+
+kr:=.2h;
+z11=(x1,y1-kr);
+z22=(x2,y2+kr);
+z11-z33=(z22-z33) rotated (-2kut);
+erase fill z11--z22--z33--cycle;
+undrawdot z1; undrawdot z2;
+
+%z.11=(w,y11); %ZA DESNI KRAJ
+%z.22=(w,y22);
+%z.33=(w-x33,y33);
+%erase fill z.11--z.22--z.33--cycle;
+%undrawdot (w,y1); undrawdot (w,y2);
+
+path pa; pa = z11 -- z33;
+numeric s, v; (s,v)= p intersectiontimes pa;
+numeric t, v; (t,v)= q intersectiontimes pa;
+z$1= point s of p; z$2= point t of q;
+z$11=(x$1,h-y$1);
+z$22=(x$2,h-y$2);
+%draw z$1--z$2;
+%draw z$11--z$22;
+kut1:= angle direction s of p;
+kut2:= angle direction t of q;
+draw z$11{dir(180-kut1)}..tension1.1..{dir kut1}z$1;
+draw z$2{dir kut2}..{dir(180-kut2)}z$22;
+picture lijevi_pleter; lijevi_pleter= currentpicture;
+
+endchar;
+
+beginchar("p",5em#,5cap#,0); "drugi pleter, desni";
+pickup pencircle scaled .6thick;
+transform zrcal; zrcal = identity rotatedabout ((.5w,.5h),180);
+addto currentpicture also lijevi_pleter transformed zrcal;
+endchar;
+
+
+%%%%%%%%%%%%% (slozzeni troplet) srrrrrt
+
+
+beginchar("r",5em#,5cap#,0); "drugi troplet";
+pickup pencircle scaled .6thick;
+db:=.08w; %.09w
+r:=.2db;
+rr:=r+db;
+kut:=-35;
+kutt:=10;
+x1=x2=0; x9=.5w-r; x8=x9-1.5db; x10=x7=.5w;
+x5=w-curve_sidebar;
+x6=x5-1.8db; %1.9
+x4=x6; % -.15w;
+x3=x4-db*cosd kut;
+y2-.5h=.5h-y1=1.2*.5db/cosd kut;
+y3=y5=-.1db; y4=y6=db; y8=y9=.5h; y10=.5h-r; y7=y10-rr;
+draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9;
+draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8;
+
+z1$=1/3[z1,z2]; % troplet
+z2$=2/3[z1,z2];
+z3$=1/3[z3,z4];
+z4$=2/3[z3,z4];
+z5$=1/3[z5,z6];
+z6$=2/3[z5,z6];
+z10$=1/3[z10,z7];
+z7$=2/3[z10,z7];
+z9$=1/3[z9,z8];
+z8$=2/3[z9,z8];
+pickup pencircle scaled .3thick;
+draw z1${dir(kut)}..{right}z3$--z5${dir(90+kutt)}..tension 1.1..
+{left}z10$..{up}z9$; %1.166
+draw z2${dir(kut)}..{right}z4$--z6${dir(90+1.1kutt)}..tension1.2..
+{left}z7$..{up}z8$; %1.333
+
+transform t; t=identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also currentpicture transformed t;
+
+%brisanje na krugu
+path p; p= z6{dir(90+1.3kutt)}..
+tension1.5..{left}z7..{up}z8--z9{down}..{right}z10..{dir(-90+kutt)}z5--cycle;
+erase fill p;
+
+pickup pencircle scaled .6thick;
+draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9;
+draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8;
+pickup pencircle scaled .3thick;
+draw z1${dir(kut)}..{right}z3$--z5${dir(90+kutt)}..tension1.1..
+{left}z10$..{up}z9$;
+draw z2${dir(kut)}..{right}z4$--z6${dir(90+1.1kutt)}..tension1.2..
+{left}z7$..{up}z8$;
+pickup pencircle scaled .6thick;
+
+%brisanje na lijevom kraku
+path pp; pp= z7{right}..tension1.5..{dir(-90+1.3kutt)}z6;
+path p; p= subpath (.2,1) of pp;
+path ss; ss=z5{dir(90+kutt)}..{left}z10;
+path q; q=subpath (0,.55) of ss;
+path ar; ar=z6--z5; %draw r;
+path ok; ok= point 0 of p{left} & p & ar & q.. cycle;
+path okk; okk= ok reflectedabout ((.5w,0),(.5w,h));
+erase fill okk;
+draw q reflectedabout ((.5w,0),(.5w,h));
+draw p reflectedabout ((.5w,0),(.5w,h));
+
+pickup pencircle scaled .3thick;
+%brisanje na lijevom kraku
+path pp$; pp$= z7${right}..tension1.2..
+{dir(-90+1.1kutt)}z6$;
+path p$; p$= subpath (.2,1) of pp$;
+path ss$; ss$=z5${dir(90+kutt)}..tension1.1..{left}z10$;
+path q$; q$=subpath (0,.7) of ss$; %.55
+draw q$ reflectedabout ((.5w,0),(.5w,h));
+draw p$ reflectedabout ((.5w,0),(.5w,h));
+
+pickup pencircle scaled .6thick;
+%brisanje dolje
+path p; p= z1{dir(kut)}..{right}z3;
+path pp; pp= subpath (.45,1) of p; %.5
+path q; q= z4{left}..{dir(180+kut)}z2;
+path qq; qq= subpath (0,.4) of q;
+path qr; qr= pp & z3--z4 & qq--cycle;
+erase fill qr;
+draw pp; draw qq;
+
+pickup pencircle scaled .3thick;
+path p$; p$= z1${dir(kut)}..{right}z3$;
+path pp$; pp$= subpath (.45,1) of p$; %.5
+path q$; q$= z4${left}..{dir(180+kut)}z2$;
+path qq$; qq$= subpath (0,.45) of q$;
+draw pp$; draw qq$;
+
+%brisanje desno
+pickup pencircle scaled .6thick;
+path zpp; zpp = subpath (0,.45) of p reflectedabout ((.5w,0),(.5w,h));
+path zqq; zqq = subpath (.4,1) of q reflectedabout ((.5w,0),(.5w,h));
+z.1=z1 reflectedabout ((.5w,0),(.5w,h));
+z.2=z2 reflectedabout ((.5w,0),(.5w,h));
+path zqr; zqr = zqq & z.2--z.1 & zpp --cycle;
+erase fill zqr;
+draw zpp; draw zqq;
+
+pickup pencircle scaled .3thick;
+path zpp$; zpp$ = subpath (0,.5) of p$ reflectedabout ((.5w,0),(.5w,h));
+path zqq$; zqq$ = subpath (.45,1) of q$ reflectedabout ((.5w,0),(.5w,h));
+draw zpp$; draw zqq$;
+pickup pencircle scaled .6thick;
+
+%brisanje na lijevom rubu
+path qu; qu= q reflectedabout ((0,.5h),(w,.5h));
+numeric t,u; (t,u)= qu intersectiontimes q;
+%pickup pencircle scaled .6thick;
+path quu; quu= subpath (t,1) of qu;
+undraw quu;
+undraw quu;
+%pickup pencircle scaled .6thick;
+draw point t of qu; draw z1;
+
+pickup pencircle scaled .3thick;
+path qu$; qu$= q$ reflectedabout ((0,.5h),(w,.5h));
+numeric t$,u$; (t$,u$)= qu$ intersectiontimes q;
+path quu$; quu$= subpath (t$,1) of qu$;
+undraw quu$;
+undraw quu$;
+draw point t$ of qu$; draw point 1 of quu$;
+
+path pu$; pu$= p$ reflectedabout ((0,.5h),(w,.5h));
+numeric t$,u$; (t$,u$)= pu$ intersectiontimes q;
+path puu$; puu$= subpath (0,t$) of pu$;
+undraw puu$;
+undraw puu$;
+draw point t$ of pu$; draw point 0 of puu$;
+
+numeric u,v; (u,v) = p$ intersectiontimes qu;
+path p$$; p$$ = subpath (0,u) of p$; draw p$$; draw p$$;
+numeric uu,vv; (uu,vv) = q$ intersectiontimes qu;
+path q$$; q$$ = subpath (uu,1) of q$; draw q$$; draw q$$;
+
+transform s; s=identity rotatedaround ((.5w,.5h),180);
+addto currentpicture also currentpicture transformed s;
+endchar;
+
+
+
+beginchar("s",5em#,5cap#,0); "drugi troplet, lijevi";
+pickup pencircle scaled .6thick;
+db:=.08w; %.09w
+r:=.2db;
+rr:=r+db;
+kut:=-35;
+kutt:=10;
+x1=x2=0; x9=.5w-r; x8=x9-1.5db; x10=x7=.5w;
+x5=w-curve_sidebar;
+x6=x5-1.8db; %1.9
+x4=x6; % -.15w;
+x3=x4-db*cosd kut;
+y2-.5h=.5h-y1=1.2*.5db/cosd kut;
+y3=y5=-.1db; y4=y6=db; y8=y9=.5h; y10=.5h-r; y7=y10-rr;
+draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9;
+draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8;
+
+z1$=1/3[z1,z2]; % troplet
+z2$=2/3[z1,z2];
+z3$=1/3[z3,z4];
+z4$=2/3[z3,z4];
+z5$=1/3[z5,z6];
+z6$=2/3[z5,z6];
+z10$=1/3[z10,z7];
+z7$=2/3[z10,z7];
+z9$=1/3[z9,z8];
+z8$=2/3[z9,z8];
+
+pickup pencircle scaled .3thick;
+draw z1${dir(kut)}..{right}z3$--z5${dir(90+kutt)}..tension 1.1..
+{left}z10$..{up}z9$; %1.166
+draw z2${dir(kut)}..{right}z4$--z6${dir(90+1.1kutt)}..tension1.2..
+{left}z7$..{up}z8$; %1.333
+
+transform t; t=identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also currentpicture transformed t;
+
+%brisanje na krugu
+path p; p= z6{dir(90+1.3kutt)}..
+tension1.5..{left}z7..{up}z8--z9{down}..{right}z10..{dir(-90+kutt)}z5--cycle;
+erase fill p;
+
+pickup pencircle scaled .6thick;
+draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9;
+draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8;
+
+pickup pencircle scaled .3thick;
+draw z1${dir(kut)}..{right}z3$--z5${dir(90+kutt)}..tension1.1..
+{left}z10$..{up}z9$;
+draw z2${dir(kut)}..{right}z4$--z6${dir(90+1.1kutt)}..tension1.2..
+{left}z7$..{up}z8$;
+pickup pencircle scaled .6thick;
+
+%brisanje na lijevom kraku
+path pp; pp= z7{right}..tension1.5..{dir(-90+1.3kutt)}z6;
+path p; p= subpath (.2,1) of pp;
+path ss; ss=z5{dir(90+kutt)}..{left}z10;
+path q; q=subpath (0,.55) of ss;
+path ar; ar=z6--z5; %draw r;
+path ok; ok= point 0 of p{left} & p & ar & q.. cycle;
+path okk; okk= ok reflectedabout ((.5w,0),(.5w,h));
+erase fill okk;
+draw q reflectedabout ((.5w,0),(.5w,h));
+draw p reflectedabout ((.5w,0),(.5w,h));
+
+pickup pencircle scaled .3thick;
+%brisanje na lijevom kraku
+path pp$; pp$= z7${right}..tension1.2..
+{dir(-90+1.1kutt)}z6$;
+path p$; p$= subpath (.2,1) of pp$;
+path ss$; ss$=z5${dir(90+kutt)}..tension1.1..{left}z10$;
+path q$; q$=subpath (0,.7) of ss$; %.55
+draw q$ reflectedabout ((.5w,0),(.5w,h));
+draw p$ reflectedabout ((.5w,0),(.5w,h));
+
+pickup pencircle scaled .6thick;
+%brisanje dolje
+path p; p= z1{dir(kut)}..{right}z3;
+path pp; pp= subpath (.45,1) of p; %.5
+path q; q= z4{left}..{dir(180+kut)}z2;
+path qq; qq= subpath (0,.4) of q;
+path qr; qr= pp & z3--z4 & qq--cycle;
+erase fill qr;
+draw pp; draw qq;
+
+pickup pencircle scaled .3thick;
+path p$; p$= z1${dir(kut)}..{right}z3$;
+path pp$; pp$= subpath (.45,1) of p$; %.5
+path q$; q$= z4${left}..{dir(180+kut)}z2$;
+path qq$; qq$= subpath (0,.45) of q$;
+draw pp$; draw qq$;
+
+%brisanje desno
+pickup pencircle scaled .6thick;
+path zpp; zpp = subpath (0,.45) of p reflectedabout ((.5w,0),(.5w,h));
+path zqq; zqq = subpath (.4,1) of q reflectedabout ((.5w,0),(.5w,h));
+z.1=z1 reflectedabout ((.5w,0),(.5w,h));
+z.2=z2 reflectedabout ((.5w,0),(.5w,h));
+path zqr; zqr = zqq & z.2--z.1 & zpp --cycle;
+erase fill zqr;
+draw zpp; draw zqq;
+
+pickup pencircle scaled .3thick;
+path zpp$; zpp$ = subpath (0,.5) of p$ reflectedabout ((.5w,0),(.5w,h));
+path zqq$; zqq$ = subpath (.45,1) of q$ reflectedabout ((.5w,0),(.5w,h));
+draw zpp$; draw zqq$;
+pickup pencircle scaled .6thick;
+
+%brisanje na lijevom rubu
+path qu; qu= q reflectedabout ((0,.5h),(w,.5h));
+numeric t,u; (t,u)= qu intersectiontimes q;
+path quu; quu= subpath (t,1) of qu;
+undraw quu;
+undraw quu;
+draw point t of qu; draw z1;
+
+
+path qu$; qu$= q$ reflectedabout ((0,.5h),(w,.5h));
+numeric t$,u$; (t$,u$)= qu$ intersectiontimes q;
+path quu$; quu$= subpath (t$,1) of qu$;
+undraw quu$;
+undraw quu$;
+draw point t$ of qu$; draw point 1 of quu$;
+
+pickup pencircle scaled .3thick;
+path pu$; pu$= p$ reflectedabout ((0,.5h),(w,.5h));
+numeric t$,u$; (t$,u$)= pu$ intersectiontimes q;
+path puu$; puu$= subpath (0,t$) of pu$;
+undraw puu$;
+undraw puu$;
+draw point t$ of pu$; draw point 0 of puu$;
+
+numeric u,v; (u,v) = p$ intersectiontimes qu;
+path p$$; p$$ = subpath (0,u) of p$; draw p$$; draw p$$;
+numeric uu,vv; (uu,vv) = q$ intersectiontimes qu;
+path q$$; q$$ = subpath (uu,1) of q$; draw q$$; draw q$$;
+
+transform s; s=identity rotatedaround ((.5w,.5h),180);
+addto currentpicture also currentpicture transformed s;
+
+
+kr:=.2h;
+z11=(x1,y1-kr);
+z22=(x2,y2+kr);
+z11-z33=(z22-z33) rotated (-2kut);
+erase fill z11--z22--z33--cycle;
+undrawdot z1; undrawdot z2;
+
+path pa; pa = z11 -- z33;
+numeric s, v; (s,v)= p intersectiontimes pa;
+numeric t, v; (t,v)= q intersectiontimes pa;
+z$1= point s of p; z$2= point t of q;
+z$11=(x$1,h-y$1);
+z$22=(x$2,h-y$2);
+%draw z$1--z$2;
+%draw z$11--z$22;
+kut1:= angle direction s of p;
+kut2:= angle direction t of q;
+pickup pencircle scaled .6thick;
+draw z$11{dir(180-kut1)}..tension1.1..{dir kut1}z$1;
+draw z$2{dir kut2}..{dir(180-kut2)}z$22;
+
+pickup pencircle scaled .3thick;
+numeric s, v; (s,v)= p$ intersectiontimes pa;
+numeric t, v; (t,v)= q$ intersectiontimes pa;
+kut$1=angle direction s of p$;
+kut$2=angle direction t of q$;
+z$$1=point s of p$;
+z$$2=point t of q$;
+
+kutu$1=180-kut$1;
+kutu$2=180-kut$2;
+z$$u1=z$$1 reflectedabout ((0,.5h),(w,.5h));
+z$$u2=z$$2 reflectedabout ((0,.5h),(w,.5h));
+
+draw z$$u1{dir(kutu$1)}..{dir(kut$1)}z$$1;
+draw z$$2{dir(kut$2)}..{dir(kutu$2)}z$$u2;
+
+pickup pencircle scaled thick;
+undraw z1; undraw z2; undraw point 0 of p$; undraw point 1 of q$;
+
+picture lijevi_pleter; lijevi_pleter= currentpicture;
+endchar;
+
+
+
+beginchar("t",5em#,5cap#,0); "drugi troplet, desni";
+pickup pencircle scaled .6thick;
+transform zrcal; zrcal = identity rotatedabout ((.5w,.5h),180);
+addto currentpicture also lijevi_pleter transformed zrcal;
+endchar;
+
+
+
+
+end.
+
+beginchar("n",5*em#,5*cap#,0); "temeljni pleter";
+pickup pencircle scaled .5thick;
+db:=.08w; %.09w
+r:=.2db;
+rr:=r+db;
+kut:=-35;
+kutt:=10;
+x1=x2=0; x9=.5w-r; x8=x9-1.2db; x10=x7=.5w;
+x5=w-curve_sidebar;
+x6=x5-1.8db; %1.9
+x4=x6; % -.15w;
+x3=x4-db*cosd kut;
+y2-.5h=.5h-y1=1.2*.5db/cosd kut;
+y3=y5=0; y4=y6=db; y8=y9=.5h; y10=.5h-r; y7=y10-rr;
+draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9;
+draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8;
+transform t; t=identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also currentpicture transformed t;
+transform s; s=identity rotatedaround ((.5w,.5h),180);
+addto currentpicture also currentpicture transformed s;
+endchar;
+
+
+
+
+
+
+end.
diff --git a/language/croatian/fonts/mf/pleter.mf b/language/croatian/fonts/mf/pleter.mf
new file mode 100644
index 0000000000..7342aac5f7
--- /dev/null
+++ b/language/croatian/fonts/mf/pleter.mf
@@ -0,0 +1,297 @@
+
+% Croatian Wattle Pattern,
+% 1994, darko.zubrinic@etf.hr
+
+mode_setup;
+ font_size 10pt#;
+ u#:=.8pt#; font_quad= 24u#;
+ font_normal_space= 9u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 2u#;
+ em#:=10pt#; cap#:=7pt#;
+ thin#:=2/3pt#; thick#:=.9*5/6pt#;
+ o#:=1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:=round 1.1*1/10em;
+
+
+beginchar("a",5*1.41cap#,5*cap#,0); "veliki ssiroki pleter";
+pickup pencircle xscaled thick yscaled thick;
+x1=x2=x3=x4=0; x5=x6=x7=x8=.5w; x9=x10=x11=x12=w;
+y1=h; y9=0;
+y1-y2=y2-y3=y3-y4=y12-y11=y11-y10=y10-y9=1/7h;
+y8-y7=y7-y6=y6-y5=1.41*1/7h;
+.5[y7,y6]=.5h;
+kut:=angle(z9-z1);%-10;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .5thick yscaled .5thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled thick yscaled thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+transform zrc; zrc=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also currentpicture transformed zrc;
+unfill z1--z4{right}..{dir(kut)}z5..{right}z9--z12{left}..{dir(180+kut)}z8
+..{left}z1..cycle;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .5thick yscaled .5thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled thick yscaled thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+endchar;
+
+
+beginchar("b",5*1.2cap#,5*cap#,0); "veliki pleter, srednje ssirine";
+pickup pencircle xscaled thick yscaled thick;
+x1=x2=x3=x4=0; x5=x6=x7=x8=.5w; x9=x10=x11=x12=w;
+y1=h; y9=0;
+y1-y2=y2-y3=y3-y4=y12-y11=y11-y10=y10-y9=1/7h;
+y8-y7=y7-y6=y6-y5=1.41*1/7h;
+.5[y7,y6]=.5h;
+kut:=angle(z9-z1);%-10;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .5thick yscaled .5thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled thick yscaled thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+transform zrc; zrc=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also currentpicture transformed zrc;
+unfill z1--z4{right}..{dir(kut)}z5..{right}z9--z12{left}..{dir(180+kut)}z8
+..{left}z1..cycle;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .5thick yscaled .5thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled thick yscaled thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+endchar;
+
+
+beginchar("c",5*cap#,5*cap#,0); "veliki, gusti pleter";
+pickup pencircle xscaled thick yscaled thick;
+x1=x2=x3=x4=0; x5=x6=x7=x8=.5w; x9=x10=x11=x12=w;
+y1=h; y9=0;
+y1-y2=y2-y3=y3-y4=y12-y11=y11-y10=y10-y9=1/7h;
+y8-y7=y7-y6=y6-y5=1.41*1/7h;
+.5[y7,y6]=.5h;
+kut:=angle(z9-z1);%-10;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .5thick yscaled .5thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled thick yscaled thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+transform zrc; zrc=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also currentpicture transformed zrc;
+unfill z1--z4{right}..{dir(kut)}z5..{right}z9--z12{left}..{dir(180+kut)}z8
+..{left}z1..cycle;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .5thick yscaled .5thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled thick yscaled thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+picture slovoc; slovoc=currentpicture;
+endchar;
+
+beginchar("v",5*cap#,5*cap#,0); "Okomiti pleter";
+transform rot;rot= identity rotatedabout ((.5w,.5h),90);
+addto currentpicture also slovoc transformed rot;
+endchar;
+
+
+
+beginchar("e",1.41cap#,cap#,0); "tanki ssiroki pleter";
+pickup pencircle xscaled .2thick yscaled .2thick;
+x1=x2=x3=x4=0; x5=x6=x7=x8=.5w; x9=x10=x11=x12=w;
+y1=h; y9=0;
+y1-y2=y2-y3=y3-y4=y12-y11=y11-y10=y10-y9=1/7h;
+y8-y7=y7-y6=y6-y5=1.41*1/7h;
+.5[y7,y6]=.5h;
+kut:=angle(z9-z1);%-10;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .1thick yscaled .1thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled .2thick yscaled .2thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+transform zrc; zrc=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also currentpicture transformed zrc;
+unfill z1--z4{right}..{dir(kut)}z5..{right}z9--z12{left}..{dir(180+kut)}z8
+..{left}z1..cycle;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .1thick yscaled .1thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled .2thick yscaled .2thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+endchar;
+
+beginchar("f",cap#,cap#,0); "tanki gusti pleter";
+pickup pencircle xscaled .2thick yscaled .2thick;
+x1=x2=x3=x4=0; x5=x6=x7=x8=.5w; x9=x10=x11=x12=w;
+y1=h; y9=0;
+y1-y2=y2-y3=y3-y4=y12-y11=y11-y10=y10-y9=1/7h;
+y8-y7=y7-y6=y6-y5=1.41*1/7h;
+.5[y7,y6]=.5h;
+kut:=angle(z9-z1);%-10;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .1thick yscaled .1thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled .2thick yscaled .2thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+transform zrc; zrc=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also currentpicture transformed zrc;
+unfill z1--z4{right}..{dir(kut)}z5..{right}z9--z12{left}..{dir(180+kut)}z8
+..{left}z1..cycle;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .1thick yscaled .1thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled .2thick yscaled .2thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+endchar;
+
+
+
+beginchar("l",5*4/7*cap#,5*cap#,0); "veliki lijevi kraj";
+pickup pencircle xscaled thick yscaled thick;
+x1=x2=w; x3=x4=w-1/4w; y1=y4=h-y2=h-y3=.5h-.5*1/7h;
+z14=(0,0); z15=(0,h); z16=(w,h); z13=(w,0);
+z2-z1=z8-z2=z12-z8=z16-z12=z1-z5=z5-z9=z9-z13;
+z11-z12=z10-z9=3(z3-z2); z8-z7=z5-z6=2(z1-z4);
+draw z1--z4--z3--z2;
+pickup pencircle xscaled .5thick yscaled .5thick;
+draw z5--z6--z7--z8;
+draw z9--z10--z11--z12;
+pickup pencircle xscaled thick yscaled thick;
+draw z13--z14--z15--z16;
+picture slovol; slovol=currentpicture;
+transform rot; rot= identity rotatedabout ((.5w,.5h),-90)
+shifted (1.5*1/7h,-1.5*1/7h);
+picture slovoll; slovoll=currentpicture transformed rot;
+endchar;
+
+beginchar("d",5*4/7*cap#,5*cap#,0); "veliki desni kraj";
+transform s;s= identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also slovol transformed s;
+endchar;
+
+beginchar("3",5*cap#,5*4/7*cap#,0); "Okomiti pleter, gore";
+addto currentpicture also slovoll;
+endchar;
+
+beginchar("4",5*cap#,5*4/7*cap#,0); "Okomiti pleter, dolje";
+transform rot;rot= identity rotatedabout ((.5w,.5h),180);
+addto currentpicture also slovoll transformed rot;
+endchar;
+
+
+
+beginchar("1",4/7*cap#,cap#,0); "Lijevi kraj, tanki";
+pickup pencircle xscaled .2thick yscaled .2thick;
+x1=x2=w; x3=x4=w-1/4w; y1=y4=h-y2=h-y3=.5h-.5*1/7h;
+z14=(0,0); z15=(0,h); z16=(w,h); z13=(w,0);
+z2-z1=z8-z2=z12-z8=z16-z12=z1-z5=z5-z9=z9-z13;
+z11-z12=z10-z9=3(z3-z2); z8-z7=z5-z6=2(z1-z4);
+draw z1--z4--z3--z2;
+pickup pencircle xscaled .1thick yscaled .1thick;
+draw z5--z6--z7--z8;
+draw z9--z10--z11--z12;
+pickup pencircle xscaled .2thick yscaled .2thick;
+draw z13--z14--z15--z16;
+picture slovol; slovol=currentpicture;
+endchar;
+
+beginchar("2",4/7*cap#,cap#,0); "Desni kraj, tanki";
+transform s;s= identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also slovol transformed s;
+endchar;
+
+
+beginchar("g",3*1.2cap#,3*cap#,0); "srednji pleter g (ssiri)";
+pickup pencircle xscaled .6thick yscaled .6thick;
+x1=x2=x3=x4=0; x5=x6=x7=x8=.5w; x9=x10=x11=x12=w;
+y1=h; y9=0;
+y1-y2=y2-y3=y3-y4=y12-y11=y11-y10=y10-y9=1/7h;
+y8-y7=y7-y6=y6-y5=1.41*1/7h;
+.5[y7,y6]=.5h;
+kut:=angle(z9-z1);%-10;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .3thick yscaled .3thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled .6thick yscaled .6thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+transform zrc; zrc=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also currentpicture transformed zrc;
+unfill z1--z4{right}..{dir(kut)}z5..{right}z9--z12{left}..{dir(180+kut)}z8
+..{left}z1..cycle;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .3thick yscaled .3thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled .6thick yscaled .6thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+endchar;
+
+
+beginchar("h",3*cap#,3*cap#,0); "srednji pleter h (uzzi)";
+pickup pencircle xscaled .6thick yscaled .6thick;
+x1=x2=x3=x4=0; x5=x6=x7=x8=.5w; x9=x10=x11=x12=w;
+y1=h; y9=0;
+y1-y2=y2-y3=y3-y4=y12-y11=y11-y10=y10-y9=1/7h;
+y8-y7=y7-y6=y6-y5=1.41*1/7h;
+.5[y7,y6]=.5h;
+kut:=angle(z9-z1);%-10;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .3thick yscaled .3thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled .6thick yscaled .6thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+transform zrc; zrc=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also currentpicture transformed zrc;
+unfill z1--z4{right}..{dir(kut)}z5..{right}z9--z12{left}..{dir(180+kut)}z8
+..{left}z1..cycle;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .3thick yscaled .3thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled .6thick yscaled .6thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+%picture slovoh; slovoh=currentpicture;
+endchar;
+
+
+beginchar("5",3*4/7*cap#,3*cap#,0); "lijevi kraj (srednja vel)";
+pickup pencircle xscaled .6thick yscaled .6thick;
+x1=x2=w; x3=x4=w-1/4w; y1=y4=h-y2=h-y3=.5h-.5*1/7h;
+z14=(0,0); z15=(0,h); z16=(w,h); z13=(w,0);
+z2-z1=z8-z2=z12-z8=z16-z12=z1-z5=z5-z9=z9-z13;
+z11-z12=z10-z9=3(z3-z2); z8-z7=z5-z6=2(z1-z4);
+draw z1--z4--z3--z2;
+pickup pencircle xscaled .3thick yscaled .3thick;
+draw z5--z6--z7--z8;
+draw z9--z10--z11--z12;
+pickup pencircle xscaled .6thick yscaled .6thick;
+draw z13--z14--z15--z16;
+picture tri; tri=currentpicture;
+%transform rot; rot= identity rotatedabout ((.5w,.5h),-90)
+%shifted (1.5*1/7h,-1.5*1/7h);
+%picture trri; trri=currentpicture transformed rot; % za vertikalni
+endchar;
+
+beginchar("6",3*4/7*cap#,3*cap#,0); "desni kraj (srednja vel)";
+transform s;s= identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also tri transformed s;
+endchar;
+
+
+
+
+end.
diff --git a/language/croatian/fonts/mf/stechak.mf b/language/croatian/fonts/mf/stechak.mf
new file mode 100644
index 0000000000..02ccaddd64
--- /dev/null
+++ b/language/croatian/fonts/mf/stechak.mf
@@ -0,0 +1,909 @@
+
+% ORNAMENTI NA STECHCIMA, 1995
+
+% "a", "b", "c" 8+krug, 7, 6 -kraka zvijezda
+% "j", "e", "f" 6+krug, 5, 4 -kraka zvijezda
+% "g", "h" kotacc s precckama (h ima petokraku zvijezdu)
+% "i", "5" 7 -kraka zvijezda, petokraka
+% "k", "l", "d" kolo
+% "p", "q" ptica
+% "s" svastika
+% "A", "B", "C" krizz (kvadratni), standardni, ljiljan
+% "D", "T" dupli krizz, obli
+% "E", "F", "G", bordure
+% "H", "I", "J",
+% "M", "N"
+% "K" krug
+% "L" lutka
+% "S", "O" 6 i 8 latica cvijeta
+% "P", "R" polumjesec, repatica
+% "Z" zvijezda
+
+Pt#:=3pt#;
+
+mode_setup;
+ font_size 10Pt#;
+ u#:=.8Pt#; font_quad= 24u#;
+ font_normal_space= 9u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 2u#;
+ em#:=10Pt#; cap#:=7Pt#;
+ thin#:=2/3Pt#; thick#:=.9*5/6Pt#;
+ o#:=1/5Pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:=round 1.1*1/10em;
+
+
+% Besslagich, zvijezda 8 krakova
+beginchar("a",cap#,cap#,.2cap#); "a(zvijezda)8";
+pickup pencircle scaled .3thin;
+z3=(.5w,.5w);
+z1=(.5w,0);
+kut:=360/8;
+xx:=.5; %cosd (.5*kut);
+y2=y4=xx*x3;
+x4=w-x2;
+z2=z4 rotatedaround (z3, kut);
+path list; list= z2--z3--z4--z4--z1--cycle;
+%{dir (270-.5*kut)}..{right}z1..{dir
+%(90+.5*kut)}z2;
+for n=1,2,3,4,5,6,7,8:
+transform b[]; b[n]= identity rotatedaround (z3, n*kut);
+draw (list transformed b[n]); endfor
+endchar;
+
+
+% Besslagich, 7 krakova
+beginchar("b",cap#,cap#,.2cap#); "b(zvijezda)7";
+pickup pencircle scaled .3thin;
+z3=(.5w,.5w);
+z1=(.5w,0);
+kut:=360/7;
+xx:=.5; %cosd (.5*kut);
+y2=y4=xx*x3;
+x4=w-x2;
+z2=z4 rotatedaround (z3, kut);
+path list; list= z2--z3--z4--z4--z1--cycle;
+%{dir (270-.5*kut)}..{right}z1..{dir
+%(90+.5*kut)}z2;
+list:=list rotatedaround (z3, 180);
+for n=1,2,3,4,5,6,7:
+transform b[]; b[n]= identity rotatedaround (z3, n*kut);
+draw (list transformed b[n]); endfor
+endchar;
+
+
+
+% Besslagich, 6 latica
+beginchar("c",cap#,cap#,.2cap#); "c(zvijezda)6";
+pickup pencircle scaled .3thin;
+z3=(.5w,.5w);
+z1=(.5w,0);
+kut:=360/6;
+xx:=.5; %cosd (.5*kut);
+y2=y4=xx*x3;
+x4=w-x2;
+z2=z4 rotatedaround (z3, kut);
+path list; list= z2--z3--z4--z4--z1--cycle;
+%{dir (270-.5*kut)}..{right}z1..{dir
+%(90+.5*kut)}z2;
+for n=1,2,3,4,5,6:
+transform b[]; b[n]= identity rotatedaround (z3, n*kut);
+draw (list transformed b[n]); endfor
+endchar;
+
+
+
+% Besslagich, zvijezda s 6 latica i krugom
+beginchar("j",cap#,cap#,.2cap#); "j - ssest latica"; % 1.55em#
+pickup pencircle scaled .3thin;
+z3=(.5w,.5w);
+z1=(.5w,0);
+kut:=360/6;
+xx:=1-.5*cosd (.5*kut);
+y2=y4=xx*x3;
+x4=w-x2;
+z2=z4 rotatedaround (z3, kut);
+path list; list= z4{dir (270-.5*kut)}..{right}z1..{dir
+(90+.5*kut)}z2;
+draw list;
+for n=1,2,3,4,5,6:
+transform b[]; b[n]= identity rotatedaround (z3, n*kut);
+draw (list transformed b[n]); endfor
+rr:=.2w;
+path krug; krug= fullcircle scaled rr shifted z3;
+erase fill krug;
+draw krug;
+endchar;
+
+
+% Besslagich, zvijezda sa 5 latica
+beginchar("e",cap#,cap#,.2cap#); "e - 5 latica"; % 1.55em#
+pickup pencircle scaled .3thin;
+z3=(.5w,.5w);
+z1=(.5w,0);
+kut:=360/5;
+xx:=1-.5*cosd (.5*kut);
+y2=y4=xx*x3;
+x4=w-x2;
+z2=z4 rotatedaround (z3, kut);
+path list; list= z4{dir (270-.5*kut)}..{right}z1..{dir
+(90+.5*kut)}z2;
+list:=list rotatedaround (z3, 180);
+transform b; b= identity rotatedaround (z3, kut);
+transform b[]; b[0]=b;
+for n=1,2,3,4,5:
+ b[n]=b[n-1] transformed b;
+draw (list transformed b[n]); endfor
+endchar;
+
+
+
+% Besslagich, zvijezda sa 4 latice
+beginchar("f",cap#,cap#,.2cap#); "f - 4 latice"; % 1.55em#
+pickup pencircle scaled .3thin;
+z3=(.5w,.5w);
+z1=(.5w,0);
+kut:=360/4;
+xx:=1-.5*cosd (.5*kut);
+y2=y4=xx*x3;
+x4=w-x2;
+z2=z4 rotatedaround (z3, kut);
+path list; list= z4{dir (270-.5*kut)}..{right}z1..{dir
+(90+.5*kut)}z2;
+%draw list;
+for n=1,2,3,4:
+transform b[]; b[n]= identity rotatedaround (z3, n*kut);
+draw (list transformed b[n]); endfor
+endchar;
+
+
+% Besslagich, kotacc s 20 preccki
+beginchar("g",cap#,cap#,.2cap#); "g - kotacc(20)"; % 1.55em#
+pickup pencircle scaled .3thin;
+z3=(.5w,.5w);
+draw fullcircle scaled w shifted z3;
+draw fullcircle scaled .7w shifted z3;
+kutt:=-15;
+z1=(.5w,.15h); z2=(.5w,0) rotatedaround (z3,kutt);
+path list; list=z1{dir(270+kutt)}..{dir(180-kutt)}z2;
+kut:=360/20;
+transform b; b= identity rotatedaround (z3, kut);
+transform b[]; b[0]=b;
+for n=1 thru 20:
+ b[n]=b[n-1] transformed b;
+draw (list transformed b[n]); endfor
+endchar;
+
+
+
+% Besslagich, kotacc sa peterokrakom zvijezodm
+beginchar("h",cap#,cap#,.2cap#); "h - kotacc(20+5)"; % 1.55em#
+pickup pencircle scaled .3thin;
+z3=(.5w,.5w);
+draw fullcircle scaled w shifted z3;
+draw fullcircle scaled .7w shifted z3;
+draw fullcircle scaled .3w shifted z3;
+z0=(.5w,.5h+.15w);
+path krak; krak=z3--z0;
+transform c; c=identity rotatedaround (z3, 72);
+transform c[]; c[0]=c;
+for n=1 thru 5:
+ c[n]=c[n-1] transformed c;
+ draw (krak transformed c[n]); endfor
+kutt:=-15;
+z1=(.5w,.15h); z2=(.5w,0) rotatedaround (z3,kutt);
+path list; list=z1{dir(270+kutt)}..{dir(180-kutt)}z2;
+kut:=360/20;
+transform b; b= identity rotatedaround (z3, kut);
+transform b[]; b[0]=b;
+for n=1 thru 20:
+ b[n]=b[n-1] transformed b;
+draw (list transformed b[n]); endfor
+endchar;
+
+
+% Besslagich, zvijezda sa 7 latica
+beginchar("i",cap#,cap#,.2cap#); "i - 7 latica";
+pickup pencircle scaled .3thin;
+z3=(.5w,.5w);
+z1=(.5w,0);
+kut:=360/7;
+xx:=1-.5*cosd (.5*kut);
+y2=y4=xx*x3;
+x4=w-x2;
+z2=z4 rotatedaround (z3, kut);
+path list; list= z4{dir (270-.5*kut)}..{right}z1..{dir
+(90+.5*kut)}z2;
+list:=list rotatedaround (z3, 180);
+transform b; b= identity rotatedaround (z3, kut);
+transform b[]; b[0]=b;
+for n=1,2,3,4,5,6,7:
+ b[n]=b[n-1] transformed b;
+draw (list transformed b[n]); endfor
+endchar;
+
+
+% Besslagich, svastika
+beginchar("s",1.4cap#,1.2cap#,.2cap#); "s(vastika)";
+pickup pencircle scaled .3thin;
+x2=0; x3=x4=.5w; x13=w;
+ss=.05w; %ssirina
+x1=ss;
+x30=ss;
+x35=x36=x1+ss;
+x26=2*ss; x25=3*ss; x28=3*ss; x29=x28-ss; x27=x28+ss;
+x33=x32=x23=x22=x3-ss;
+x34=x31=x24=x3-2*ss;
+x5=x7=x16=x17=x3+ss;
+x37=x15=x18=x3+2ss;
+x20=x13-ss;
+x14=x13-ss;
+x9=x13-2ss;
+x11=x13-3ss;
+x10=x11-ss; x12=x11+ss;
+x8=x9-ss;
+x21=x19=x20-ss;
+y36=y3=0;
+y1=y5=ss; y35=y34=2ss; y33=3ss;
+y2=y13=.5h;
+y4=y21=h;
+y28=.9h; y29=y27=y28-ss;
+y11=h-y28;
+y10=y12=y11+ss;
+y9=y2-2ss;
+y32=y7=y2-2ss; y30=y31=y37=y8=y2-ss;
+y25=y24=y15=y14=y2+ss;
+y26=y2+2ss;
+y23=y16=y2+2ss;
+y22=y20=y4-ss;
+y18=y19=y4-2ss;
+y17=y4-3ss;
+y2:=1.2y2;
+y13:=.8y13;
+draw z1{down}..{right}z36--z3{right}..{up}z5--z7{up}..{right}z37
+--z8{right}..{down}z9--z10{dir angle(z10-z9)}..{dir10}z11..{dir angle
+(z13-z12)}z12--z13{dir angle(z13-z12)}..{left}z14--z15{left}..{up}z16--z17
+{up}..{right}z18--z19{right}..{up}z20..{left}z21--z4{left}..{down}z22--
+z23{down}..{left}z24--z25{left}..{dir angle(z27-z26)}z26--z27{dir
+angle(z27-z26)}..{left}z28..{dir angle(z2-z29)}z29--z2{dir angle(z2-z29)}
+..{right}z30--z31{right}..{down}z32--z33{down}..{left}z34--z35{left}..cycle;
+endchar;
+
+
+
+% Zijemlje polje kod Mostara, slika 34, nalik na gl `ch'
+beginchar("L",.7em#,cap#,0); " L(utka)";
+pickup pencircle scaled .3thin;
+x1=x2=w-x4=w-x3=curve_sidebar;
+x5=x6=.5w;
+x7=w-x8=.15w;
+y1=y6=y4=h;
+y2=y5=y3=.7h;
+y7=y8=0;
+draw z1--z2--z3--z4;
+draw z6--z5--z7--z8--z5;
+dd:=.25w;
+z66=(.5w,h+.5*dd);
+%pickup pencircle scaled .6thin;
+draw fullcircle scaled dd shifted z66;
+endchar;
+
+
+% Ubosko, Ljubinje, BiH, sl. 16
+%beginchar("Z",cap#,cap#,0); "Z(vijezda)";
+%pickup pencircle scaled .3thin;
+%x1=x2=w-x5=w-x6=.35w; x3=x4=.5w;
+%y1=y6=0; y3=.5h;
+%y4=.5(x6-x1); y4=y3-y5=y3-y2;
+%draw z4--z1--z2--z3--z4--z6--z5--z3;
+%transform t; t= identity rotatedaround (z3, -90);
+%addto currentpicture also currentpicture transformed t;
+%addto currentpicture also currentpicture transformed (t transformed t);
+%endchar;
+
+
+% Ubosko, Ljubinje, BiH, sl. 16
+beginchar("Z",cap#,cap#,.2cap#); "Z(zvijezda)8";
+pickup pencircle scaled .3thin;
+z3=(.5w,.5w);
+z1=(.5w,0);
+kut:=360/8;
+xx:=.5; %cosd (.5*kut);
+y2=y4=xx*x3;
+x4=w-x2;
+z2=z4 rotatedaround (z3, kut);
+path list; list= z2--z3--z4--z4--z1--cycle;
+%{dir (270-.5*kut)}..{right}z1..{dir
+%(90+.5*kut)}z2;
+for n=1,2,3,4,5,6,7,8:
+transform b[]; b[n]= identity rotatedaround (z3, n*kut+22.5);
+draw (list transformed b[n]); endfor
+endchar;
+
+
+% Ljubusski sl. 46 ili Krvavica, Makarska
+beginchar("k",em#,1.4cap#,0); "k(olo)";
+pickup pencircle scaled .4thin;
+x1=x6=.5w; x9=x10=w;
+x5=.7w;
+y1=h; y6=y5=0;
+rr:=.14h;
+z0=(x1,h-.5*rr);
+path cetvrt; cetvrt= quartercircle scaled rr shifted z0;
+z2=(cetvrt rotatedaround (z0,-90))
+ intersectionpoint (z5--z1);
+z3-z2=.4(z2-z1);
+y9=y3;
+z4-z3=z3-z2;
+draw z1{right}..{dir(90+angle(z0-z2))}z2--z3;
+x8=x11=.5[x12,x10];
+y8=y4-(y2-y3);
+y8-y11=.8(y3-y4);
+y9-y10=.8(y8-y11);
+z7=(x3+.05w,y3);
+z12=(.7[x3,x7],y4);
+draw z4--z5--z6;
+draw z3--z7{right}..tension 1.3..{right}z8..tension 1.3..{right}z9;
+draw z4--z12{right}..tension 1.3..{right}z11..tension1.3..{right}z10;
+transform t; t= identity reflectedabout (z6,z1);
+z91=(x9-.05w,y9+.06w); z93=(w,1.1y9);
+z92=(.7[x91,x9],.4[y9,y93]);
+pickup pencircle scaled .2thin;
+draw z9{left}..{dir 75}z91..{dir-20}z92{dir(180-20)}..{right}z93;
+addto currentpicture also currentpicture transformed t;
+endchar;
+
+
+% Ljubusski sl. 46 ili Krvavica, Makarska
+beginchar("l",em#,1.4cap#,0); "l(kolo)";
+pickup pencircle scaled .4thin;
+x1=x6=.5w; x9=x10=w;
+x5=.7w;
+y1=h; y6=y5=0;
+rr:=.14h;
+z0=(x1,h-.5*rr);
+path cetvrt; cetvrt= quartercircle scaled rr shifted z0;
+z2=(cetvrt rotatedaround (z0,-90))
+ intersectionpoint (z5--z1);
+z3-z2=.4(z2-z1);
+y9=y3;
+z4-z3=z3-z2;
+x8=x11=.5[x12,x10];
+y8=y4-(y2-y3);
+y8-y11=.8(y3-y4);
+y9-y10=.8(y8-y11);
+z7=(x3+.05w,y3);
+z12=(.7[x3,x7],y4);
+path dio; dio=z1{right}..{dir(90+angle(z0-z2))}z2--z3--z7;
+path dioo; dioo =z12--z4--z5--z6;
+draw dio;
+draw dioo;
+transform t; t= identity reflectedabout (z6,z1);
+draw dio transformed t;
+draw z3--z7{right}..tension 1.3..{right}z8..tension 1.3..{right}z9;
+draw z4--z12{right}..tension 1.3..{right}z11..tension 1.3..{right}z10;
+transform t; t= identity reflectedabout (z6,z1);
+z91=(x9-.05w,y9+.06w); z93=(w,1.1y9);
+z92=(.7[x91,x9],.4[y9,y93]);
+2(y3-y8)=y8-y13;
+y13-y14=y9-y10;
+z13-z1=whatever*(z5-z1);
+z14-z1=whatever*(z5-z1);
+z13'=z13 transformed t;
+z14'=z14 transformed t;
+path diooo; diooo= z12--z4--z13;
+draw diooo transformed t;
+path diio; diio= z14--z5--z6;
+draw diio transformed t;
+z7'=z7 reflectedabout (z1,z6);
+z12'=z12 reflectedabout (z1,z6);
+z8'=z8 reflectedabout (z1,z6);
+x8':=x8'-.04w;
+y8':=y8'-.07h;
+z11'-z8'=1.41(y9-y10,0);
+draw z7'{left}..tension 1.6..{down}z8'..tension 1.6..{dir angle(z14'-z8')}z14';
+draw z12'{left}..tension 1.6..{down}z11'..tension 1.6..
+{dir angle(z13'-z11')}z13';
+pickup pencircle scaled .2thin;
+draw z9{left}..{dir 75}z91..{dir-20}z92{dir(180-20)}..{right}z93;
+%addto currentpicture also currentpicture transformed t;
+picture slovo_l; slovo_l=currentpicture;
+endchar;
+
+
+% Ljubusski sl. 46 ili Krvavica, Makarska
+beginchar("d",em#,1.4cap#,0); "d(kolo)";
+transform t; t=identity reflectedabout ((.5w,0),(0.5w,h));
+addto currentpicture also slovo_l transformed t;
+endchar;
+
+
+beginchar("p",1.41em#,.9cap#,0); "p(tica)"; % 1.55em#
+pickup pencircle scaled .3thin;
+x8=0; x1=w; x7=.06w;
+x6=.4w;
+x4=.7w;
+x3=.3[x4,x1]; x2=.4[x3,x1];
+x5=.47[x6,x4];
+x11=.5w; x12=x11+.03w;
+x9=.43w; x13=.1[x12,x1];
+x10=.5[x9,x11];
+x15=.1[x4,x1];
+x14=.66[x13,x15];
+y11=y12=0;
+y3=h;
+y2=.5[y1,y3];
+y4=.9h;
+y1=.35[y4,y3];
+y6=.5h;
+y5=.5[y6,y4];
+y7=y6+.1h;
+y8=.1h;
+y9=.7y6; y10=.8y9;
+y15=.85y4;
+y13=1.1y9;
+y14=.36[y13,y15];
+draw
+z12{up}..z13{dir (angle(z14-z13)-5)}..{dir angle(z15-z13)}z14..{dir45}z15..
+tension 1.6..
+{dir 3}z1{dir 175}..z2..{left}z3..{dir (180+75)}z4..
+{dir(180+35)}z5..
+{dir(180+15)}z6..tension 1.6..z7--z8..tension 1.6..{right}z9..z10..
+{down}z11;
+picture ptica; ptica=currentpicture;
+endchar;
+
+
+beginchar("q",1.41em#,.9cap#,0); "q(ptica)";
+transform t; t=identity reflectedabout ((.5w,0),(0.5w,h));
+addto currentpicture also ptica transformed t;
+endchar;
+
+
+% Besslagich, Krizz
+beginchar("A",1.4cap#,1.4cap#,.2cap#); "A - krizz";
+pickup pencircle scaled .3thin;
+z0=(.5w,.5w);
+z13=(.5w,.9x0);
+z1=z13 rotatedaround (z0,-45);
+z3=z13 rotatedaround (z0,45);
+z2=(x1,.15y1);
+z4=(x3,y2);
+z76=(.5w,0);
+kut:=25;
+z6=z76 rotatedaround (z0,kut);
+z7=z76 rotatedaround (z0,-kut);
+z24=.5[z2,z4];
+z9=(.5w, h);
+hh:=2h-2y24;
+path krug; krug= fullcircle scaled hh shifted z9;
+z5= krug intersectionpoint (z6--z0);
+z8= krug intersectionpoint (z7--z0);
+kutt:=.5*kut;
+path list; list= z3--z4{right}..z5{dir kutt}..{dir (180+kut)}z6..{left}z76..
+{dir(180-kut)}z7..{dir -kutt}z8..{right}z2--z1;
+for n=1,2,3,4:
+transform b[]; b[n]= identity rotatedaround (z0, n*90);
+draw (list transformed b[n]); endfor
+endchar;
+
+
+% Besslagich, Krizz
+beginchar("B",1.1cap#,1.4cap#,.2cap#); "B - krizz";
+pickup pencircle scaled .3thin;
+x1=x2=x5=x6=.56w; x7=.5w;
+hh:=3(x6-x7);
+x3=x4=w-hh; x8=w;
+y7=h; y6=y7-hh;
+y5=y4=.65h;
+y2=y3=y5-2*(x6-x7);
+y1=0;
+y8=.5[y3,y4];
+z0=(.5w,0);
+kut:=60;
+path kriz; kriz = z0--z1--z2--z3{dir -kut}..{up}z8..{dir(180+kut)}z4--z5--z6{dir (90-kut)}
+..{left}z7;
+path krizz; krizz= kriz reflectedabout (z0,z7);
+draw kriz; draw krizz;
+endchar;
+
+
+% Besslagich, Krizz -- ljiljan
+beginchar("C",1.2cap#,1.4cap#,.2cap#); "C - krizz";
+pickup pencircle scaled .3thin;
+z0=(.5w,0);
+x1=x2=.61w; x8=.5w;
+x7-x8=.8(x2-x8);
+x5=w; x4=x3=x6=.5[x2,x5];
+y1=0; y8=h; y7=.7h; y2=y7-2(x1-x0);
+y3=.5[y2,y7];
+y6-y3=.7(y7-y2);
+y5=y3;
+y4=y2-.6(y7-y2);
+kut:=60;
+path kriz; kriz= z0--z1--z2{up}..{right}z3..{dir(180+kut-10)}z4{dir (kut-15)}
+..{up}z5..{left}z6..{dir(180+kut-30)}z7{dir(kut-25)}..{left}z8;
+path krizz; krizz= kriz reflectedabout (z0,z8);
+draw kriz; draw krizz;
+endchar;
+
+
+
+% Besslagich, D krizz dupli
+beginchar("D",.7cap#,1.2cap#,.2cap#); "Dupli krizz";
+pickup pencircle scaled .3thin;
+x1=x4=w-x3=w-x2=(.5-.12)*w;
+x5=x8=x9=x12=0;
+x6=x7=x10=x11=w-x5;
+y1=y2=0; y3=y4=h;
+y5=y6=.2h;
+y8=y7=y5+(x2-x1);
+y12=y11=h-y5;
+y9=y10=h-y8;
+x13=x14=x15=x16=x1;
+y13=y12; y14=y9; y15=y8; y16=y5;
+x17=x18=x19=x20=x2;
+y17=y11; y18=y10; y19=y7; y20=y6;
+draw z1--z2--z20--z6--z7--z19--z18--z10--z11--
+z17--z3--z4--z13--z12--z9--z14--z15--z8--z5--z16--cycle;
+endchar;
+
+
+% Besslagich, Bordura
+beginchar("T",.75em#,cap#,.2cap#); "T - krizz";
+pickup pencircle scaled .2thin;
+z0=(.5w,0); x7=w; x1=.7w;
+x2=.57w; x6=x8=.7[x2,x7];
+x4=.8[x0,x1]; x5=.5w;
+y1=0; y5=h;
+y2=.4h;
+y3=.5h;
+y4=.67[y3,y5];
+z3-z2=whatever*dir(angle(z2-z1)-10);
+y6=y2;
+y7=.5[y6,y8]; % y8
+y7=y3+.04h;
+y33-y7=y7-y3;
+z30=(x0,y33); z70=(x7,y33);
+x33= xpart ((z30--z70) intersectionpoint (z3{up}..{up}z4));
+path luk; luk=z0--z1--z2{dir(angle(z2-z1))}..
+{up}z3{right}..{right}z6..{up}z7..{left}z8
+..{left}z33{up}..z4{up}..{left}z5;
+draw luk;
+transform a; a=identity reflectedabout (z0,z5);
+path lukk; lukk=luk transformed a;
+draw lukk;
+endchar;
+
+
+
+% Dugo Polje; slika 60, Besslagich
+beginchar("K",cap#,cap#,0); "K(rug)"; %
+pickup pencircle scaled .3thin;
+x1=x3=x5=x7=.5w;
+x4=0; x2=w; x8=w-x6=.15w;
+y1=0; y3=h; y4=y8=y6=y2=.5h;
+y5=h-y7=x8;
+draw z1{right}..z2{up}..{left}z3..{down}z4..cycle;
+draw z5{right}..z6{up}..{left}z7..{down}z8..cycle;
+draw z5--z7; draw z6--z8;
+z0=(.5w,.5h);
+path hh; hh= (z5--z7) rotatedaround (z0,45); draw hh;
+path vv; vv= (z6--z8) rotatedaround (z0,45); draw vv;
+endchar;
+
+
+% Besslagich
+beginchar("P",.6em#,cap#,.2cap#); "P(olumjesec)"; % 1.55em#
+pickup pencircle scaled .3thin;
+x2=0; x1=x3=w; x4=.4w;
+y3=-d; y2=y4=.5h; y1=h+d;
+kut:=180-10;
+kkut:=180-20;
+draw z3{dir kut}..{up}z2..{dir (180-kut)}z1;
+draw z3{dir kkut}..{up}z4..{dir (180-kkut)}z1;
+endchar;
+
+
+% Besslagich, Bordura
+beginchar("R",2cap#,cap#,.2cap#); "R - repatica";
+pickup pencircle scaled .2thin;
+x1=x5=0; x6=.1w;
+x2=.9w; x4=w; x3=.5[x2,x4];
+y4=y5=.5h;
+y4-y3=x4-x3;
+y5-y6=.9(y6-y1)=y4-y3;
+y2=.7[y3,y4];
+path luk; luk= z5--z6--z1--z2{dir -85}..{right}z3..{up}z4;
+draw luk;
+transform a; a=identity reflectedabout (z4,z5);
+path lukk; lukk=luk transformed a;
+draw lukk;
+endchar;
+
+
+
+% Besslagich, zvijezda s 8 latica
+beginchar("O",cap#,cap#,.2cap#); "O(sam) latica"; % 1.55em#
+pickup pencircle scaled .3thin;
+z3=(.5w,.5w);
+z1=(.5w,0);
+kut:=360/8;
+xx:=1-.5*cosd (.5*kut);
+y2=y4=xx*x3;
+x4=w-x2;
+z2=z4 rotatedaround (z3, kut);
+path list; list= z2--z3--z4{dir (270-.5*kut)}..{right}z1..{dir
+(90+.5*kut)}z2;
+draw list;
+for n=1,2,3,4,5,6,7,8:
+transform b[]; b[n]= identity rotatedaround (z3, n*kut);
+draw (list transformed b[n]); endfor
+rr:=.2w;
+path krug; krug= fullcircle scaled rr shifted z3;
+erase fill krug;
+draw krug;
+endchar;
+
+
+% Besslagich, zvijezda sa 6 latica
+beginchar("S",cap#,cap#,.2cap#); "S(est) latica"; % 1.55em#
+pickup pencircle scaled .3thin;
+z3=(.5w,.5w);
+z1=(.5w,0);
+kut:=360/6;
+xx:=1-.5*cosd (.5*kut);
+y2=y4=xx*x3;
+x4=w-x2;
+z2=z4 rotatedaround (z3, kut);
+path list; list= z2--z3--z4{dir (270-.5*kut)}..{right}z1..{dir
+(90+.5*kut)}z2;
+%draw list;
+for n=1,2,3,4,5,6:
+transform b[]; b[n]= identity rotatedaround (z3, n*kut);
+draw (list transformed b[n]); endfor
+endchar;
+
+
+% krugu s krizzem
+beginchar("4",cap#,cap#,.2cap#); "4";
+pickup pencircle scaled .3thin;
+z0=(.5w,0);
+numeric kk; kk:=10;
+z1=z0 rotatedabout ((.5w,.5w),kk);
+z2=z0 rotatedabout ((.5w,.5w),90-kk);
+z3=(x1,y2);
+path p; p= z2--z3--z1{dir kk}..{dir(90-kk)}z2;
+numeric kutt; kut:=90;
+transform b; b= identity rotatedaround ((.5w,.5w), kut);
+path p[]; p[0]=p;
+for n=1,2,3,4:
+p[n]=p[n-1] transformed b;
+draw p[n];
+endfor
+endchar;
+
+
+% zvijezda petokraka
+beginchar("5",cap#,cap#,.2cap#); "5";
+pickup pencircle scaled .3thin;
+z0=(.5w,h);
+kut:=360/5;
+transform b; b= identity rotatedaround ((.5w,.5w), kut);
+for n=1,2,3,4,5:
+ z[n]=z[n-1] transformed b;
+endfor
+draw z1--z3--z5--z2--z4--cycle;
+endchar;
+
+
+% biljka, npr. u Lovreccu (Imostski)
+beginchar("6",em#,cap#,0); "6";
+pickup pencircle scaled .3thick;
+z0=(.5w,0); z1=(x0,.6h);
+x0'=x0+.1w; y0'=0;
+x3=w; x4=.96x8=x10=x6=x2=.5[x0',x3];
+x7=.6[x10,x3]; x11=.3[x10,x7];
+x5=.1[x0',x3]; x9=.6[x5,x10];
+%x56=.1[x5,x6];
+y2=h; %y1=.65h;
+y5=.9y1;
+y7=y3=y1;
+y6=.6[y1,y2];
+y9=.9y11=.5[y5,y7];
+y8=.8y5;
+y10=.5[y5,y6];
+y6-y10=y8-y4; % y4
+path p; p= z1{dir70}..z2{right}..{down}z3..{left}z4..{up}z5..{right}z6..{down}z7
+..{left}z8..{up}z9..{right}z10..{down}z11;
+z56= point .4 of (z5{up}..{right}z6);
+path q; q= z0'{up}..{direction .4 of(z5{up}..{right}z6)}z56;
+draw p; draw q;
+transform a; a= identity reflectedabout (z0,z1);
+addto currentpicture also currentpicture transformed a;
+endchar;
+
+
+
+Pt#:=pt#;
+
+mode_setup;
+ font_size 10Pt#;
+ u#:=.8Pt#; font_quad= 24u#;
+ font_normal_space= 9u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 2u#;
+ em#:=10Pt#; cap#:=7Pt#;
+ thin#:=2/3Pt#; thick#:=.9*5/6Pt#;
+ o#:=1/5Pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:=round 1.1*1/10em;
+
+
+
+% Besslagich, Bordura
+beginchar("E",em#,cap#,.2cap#); "E - bordura(6)";
+pickup pencircle scaled .3thin;
+x1=x3=0; x5=.5w; x2=x4=w;
+x6=.55x5;
+x8-x5=.3(x5-x6);
+x7=.5[x6,x8];
+x10=.8[x6,x7];
+x9=.5[x10,x8];
+y1=y2=h; y3=y4=y5=.8h;
+y7=0; y6=.4y5; y9=.45y5;
+y8=.5[y7,y9]; y10=.75[y8,y9];
+draw z1--z2; draw z3--z4;
+draw z5{dir (180+40)}..tension 1.2 ..{down}z6..{right}z7..{up}z8..{left}z9..
+{dir(180+30)}z10;
+endchar;
+
+
+% Besslagich, Bordura
+beginchar("F",.8em#,cap#,.2cap#); "F - bordura";
+pickup pencircle scaled .3thin;
+x1=x3=0; x2=x4=w;
+x5=.1w; x6=.8w;
+x8=.35w;
+x10=.9w;
+ x12=.4[x8,x10]; x11=x9=.6[x8,x10];
+ y1=y2=0; y3=y4=y5=y6=.2h;
+ y9=h;
+ y8=.95y10=.65[y3,y9];
+ y11=.4[y3,y9];
+ y12=.6[y11,y10];
+z7= point .7 of (z6{left}..z8{up});
+ draw z1--z2; draw z3--z4;
+ draw z6{left}..z8{up}..{right}z9..{down}z10..{left}z11..
+ {up}z12;
+draw z5{right}..{dir 80}z7;
+ endchar;
+
+
+% Besslagich, Bordura
+beginchar("G",1.1*.5em#,1.1*cap#,.2cap#); "G - bordura";
+pickup pencircle scaled .3thin;
+x7=w-x8=0; x1=.1w; x2=.8w;
+x4=.25w; x5=.3[x4,x2]; x6=.5[x5,x2]; x3=.4[x5,x2];
+y1=y7=y8=.5h; y3=h; y5=.45[y1,y3];
+y4=.45[y5,y3]; y2=.4[y5,y3];
+y6=.3[y5,y3];
+draw z7--z8;
+path luk; luk= z1{right}..{up}z2..{left}z3..{down}z4..{right}z5..{up}z6;
+transform b; b= identity reflectedabout (z7,z8);
+draw luk;
+path lukk; lukk= luk transformed b;
+draw lukk;
+ endchar;
+
+
+% Besslagich, Bordura
+beginchar("H",2.5cap#,cap#,.2cap#); "H - bordura";
+pickup pencircle scaled .3thin;
+x10=x12=0; x11=x13=w; y10=y11=0; y12=y13=h;
+draw z10--z11; draw z12--z13;
+x1=.5w; x3=.9w; x5=.4[x1,x3];
+x7=.6[x5,x3]; x4=.5[x5,x3];
+x8=.6[x5,x7]; x2=x6=.5[x5,x7];
+y1=y5=y7=y3=.5h;
+y4=h-y2=.2h;
+y6=.5[y1,y2];
+y8=.4[y7,y4];
+path luk; luk= z1{dir (angle(z2-z1)+6)}..{right}z2..{down}z3..{left}z4
+..{up}z5..{right}z6..{down}z7..{left}z8;
+draw luk;
+transform a; a= identity rotatedaround(z1,180);
+path lukk; lukk=luk transformed a;
+draw lukk;
+ endchar;
+
+
+% Besslagich, Bordura
+beginchar("I",1.1*1.41cap#,1.1*cap#,.2cap#); "I - bordura";
+pickup pencircle scaled .3thin;
+x1=x3=x5=0; x2=x4=x6=w;
+y5=y6=0; y1=y2=h; y3=y4=.8h;
+draw z1--z2; draw z3--z4; draw z5--z6;
+x7=w-x9=.2w;
+x8=x12=x14=x10=.5w;
+x11=w-x13=.4[x7,x12];
+y8=y3-y10=.2y3;
+y7=y11=y13=y9=.5y3;
+y12=y3-y14=.5[y8,y7];
+draw superellipse (z9,z10,z7,z8,.75);
+draw superellipse (z13,z14,z11,z12,.75);
+ endchar;
+
+
+% Besslagich, Bordura
+beginchar("J",2cap#,cap#,.2cap#); "J - bordura";
+pickup pencircle scaled .3thin;
+x1=x3=0; x2=x4=w; x5=.5w;
+y1=y2=0;
+y3=y4=y5=h;
+draw z1--z2; draw z3--z4; draw z1--z5--z2;
+endchar;
+
+
+
+% Besslagich, Bordura
+beginchar("M",.5em#,cap#,.2cap#); "M - bordura";
+pickup pencircle scaled .3thin;
+x1=x3=0; x2=x4=w;
+y1=y2=0; y3=y4=h;
+draw z1--z2; draw z3--z4; draw z1--z4;
+endchar;
+
+
+
+% Besslagich, Bordura, cvijet
+beginchar("N",1.1*2.3cap#,1.1*cap#,.2cap#); "N - bordura";
+pickup pencircle scaled .2thin;
+kut:=43;
+x1=x11=0; x12=x3=x10=w;
+x2=.5w; x4=.4[x2,x3]; x13=.5[x2,x4];
+x0=.5[x2,x3];
+y1=y10=h; y11=y12=0;
+y2=y3=.5h;
+y0=.2h; y13=h-y0;
+y4=.7[y2,y13];
+kutt:=kut+5;
+kuttt:=270-kutt;
+x5=.1[x13,x4];
+z5-z4=whatever*dir(kuttt);
+%x9-x4=x4-x5;
+%z9-z4=z4-z5;
+z7=z5 rotatedaround(z4,90);
+z9=z7 rotatedaround(z4,90);
+z55=z5 rotatedaround (z4,10);
+z99=z9 rotatedaround (z4,-10);
+z77=.4[z4,z7];
+z77'=1.3[z4,z7];
+z6=z77 rotatedaround (z4,-30);
+z8=z77 rotatedaround (z4,30);
+draw z1--z10; draw z11--z12;
+path luk; luk=
+ z4{dir (angle(z5-z4)-60)}..%tension1.1..
+ z55{dir angle(z7-z4)}..%tension1.2..
+{dir (angle(z4-z6))}z6{dir (angle(z6-z4))}..{dir angle(z9-z5)}z77'..
+{dir (angle(z4-z8))}z8{dir (angle(z8-z4))}..%tension1.2..
+{dir angle(z4-z7)}z99..%tension1.1..
+{dir (angle(z4-z9)+60)}
+z4{dir (180-kutt)}..{left}z13..
+ z2{dir-kut}..{right}z0..{dir kut}z3;
+draw luk;
+path lukk; lukk = luk shifted(-.5w,0);
+transform a; a=identity reflectedabout (z2,z3);
+lukk:=lukk transformed a;
+draw lukk;
+endchar;
+
+
+
+
+
+end.
+
diff --git a/language/croatian/fonts/mf/ugl.mf b/language/croatian/fonts/mf/ugl.mf
new file mode 100644
index 0000000000..e7ff3cfc8b
--- /dev/null
+++ b/language/croatian/fonts/mf/ugl.mf
@@ -0,0 +1,80 @@
+
+% Croatian Glagolitic, angular type
+% darko.zubrinic@etf.hr
+
+
+
+mode_setup;
+ u#:=4/3*.8pt#; font_quad= 30u#;
+ font_normal_space= 10u#; %umjesto 8
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=4/3*10pt#; cap#:=4/3*7pt#;
+ thin#:=2/3pt#; thick#:=1.15*5/6pt#;
+ o#:=4/3*1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:= round 1.2*1/10em; %umjesto 1.1
+input croblv % velika slova
+
+
+
+mode_setup;
+u#:=3/4u#;
+em#:=3/4em#; cap#:=3/4cap#;
+ thick#:=1/1.15thick#;
+o#:=3/4o#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+%curve_sidebar:=3/4curve_sidebar;
+input croblm % mala slova
+
+
+input glz % znakovi
+
+
+
+
+
+ligtable "c": "c" =: oct"013", "h" =: oct"011", "x" =: oct"000";
+ligtable "s": "s" =: oct"014"; %umjesto sh
+ligtable "z": "x" =: oct"006", "z" =: oct"015", "o" kern -.5u#,
+ "u" kern -.5u#;
+ligtable "d": "d" =: oct"016"; % "d" =: oct"012";
+ligtable "y": "a" =: oct"002", "e" =: oct"002", "u" =: oct"004";
+ligtable "-": "-" =: oct"173";
+ligtable "e": "i" kern -.5u#;
+ligtable "f": "o" kern -u#, "u" kern -u#, "i" kern -.5u#, "g" kern-.5u#;
+ligtable "i": "f" kern -.5u#;
+ligtable "r": "k" kern -.5u#;
+ligtable "n": "a" kern -.5u#;
+ligtable "j": "a" kern -.5u#;
+
+u#:=4/3u#;
+
+
+
+ligtable "C": "c" =: oct"023", "C" =: oct "023", "H" =:
+ oct"021", "h" =: oct"021",
+ "x" =: oct"001", "X" =: oct"001";
+ligtable "S": "S" =: oct"024", "s" =: oct"024";
+ligtable "Z": "x" =: oct"007", "Z" =: oct"025", "z"=: oct"025",
+ "X" =: oct"007", "O" kern -.5u#,
+ "u" kern -.5u#;
+ligtable "D": "d" =: oct"026", "D" =: oct"026"; % "d" =: oct"022";
+ligtable "Y": "a" =: oct"003", "A" =: oct"003",
+ "e" =: oct"003", "E" =: oct"003",
+ "u" =: oct"005", "U" =: oct"005";
+ligtable "E": "I" kern -.5u#;
+ligtable "F": "O" kern -u#, "U" kern -u#, "I" kern -.5u#, "G" kern-.5u#;
+ligtable "I": "F" kern -.5u#;
+ligtable "R": "K" kern -.5u#;
+ligtable "N": "A" kern -.5u#;
+
+
+
+
+end.
+
+
+
diff --git a/language/croatian/fonts/mf/ugl10.mf b/language/croatian/fonts/mf/ugl10.mf
new file mode 100644
index 0000000000..6da3ceac2c
--- /dev/null
+++ b/language/croatian/fonts/mf/ugl10.mf
@@ -0,0 +1,79 @@
+
+% Croatian Glagolitic, angular type
+% 1994, darko.zubrinic@etf.hr
+
+
+mode_setup;
+ u#:=.8pt#; font_quad= 24u#;
+ font_normal_space= 8u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=10pt#; cap#:=7pt#;
+ thin#:=2/3pt#; thick#:=.9*5/6pt#;
+ o#:=1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:= round 1.1*1/10em;
+input croblv % velika slova
+
+
+
+mode_setup;
+u#:=3/4u#;
+em#:=3/4em#; cap#:=3/4cap#;
+ thick#:=3/4thick#;
+o#:=3/4o#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+%curve_sidebar:=3/4curve_sidebar;
+input croblm % mala slova
+
+
+input glz % znakovi
+
+
+
+
+
+ligtable "c": "c" =: oct"013", "h" =: oct"011", "x" =: oct"000";
+ligtable "s": "s" =: oct"014"; %umjesto sh
+ligtable "z": "x" =: oct"006", "z" =: oct"015", "o" kern -.5u#,
+ "u" kern -.5u#;
+ligtable "d": "d" =: oct"016"; % "d" =: oct"012";
+ligtable "y": "a" =: oct"002", "e" =: oct"002", "u" =: oct"004";
+ligtable "-": "-" =: oct"173";
+ligtable "e": "i" kern -.5u#;
+ligtable "f": "o" kern -u#, "u" kern -u#, "i" kern -.5u#, "g" kern-.5u#;
+ligtable "i": "f" kern -.5u#;
+ligtable "r": "k" kern -.5u#;
+ligtable "n": "a" kern -.5u#;
+ligtable "j": "a" kern -.5u#;
+
+u#:=4/3u#;
+
+
+
+ligtable "C": "c" =: oct"023", "C" =: oct "023", "H" =:
+ oct"021", "h" =: oct"021",
+ "x" =: oct"001", "X" =: oct"001";
+ligtable "S": "S" =: oct"024", "s" =: oct"024";
+ligtable "Z": "x" =: oct"007", "Z" =: oct"025", "z"=: oct"025",
+ "X" =: oct"007", "O" kern -.5u#,
+ "u" kern -.5u#;
+ligtable "D": "d" =: oct"026", "D" =: oct"026"; % "d" =: oct"022";
+ligtable "Y": "a" =: oct"003", "A" =: oct"003",
+ "e" =: oct"003", "E" =: oct"003",
+ "u" =: oct"005", "U" =: oct"005";
+ligtable "E": "I" kern -.5u#;
+ligtable "F": "O" kern -u#, "U" kern -u#, "I" kern -.5u#, "G" kern-.5u#;
+ligtable "I": "F" kern -.5u#;
+ligtable "R": "K" kern -.5u#;
+ligtable "N": "A" kern -.5u#;
+
+
+
+end.
+
+
+
+
diff --git a/language/croatian/fonts/mf/ugv.mf b/language/croatian/fonts/mf/ugv.mf
new file mode 100644
index 0000000000..1f6c54a8bc
--- /dev/null
+++ b/language/croatian/fonts/mf/ugv.mf
@@ -0,0 +1,55 @@
+
+
+%%****************************************************************
+%%******** G L A G O L J I C A, bl ** Darko Zubrinic, ETF, Zagreb, 1992
+%%****************************************************************
+
+
+
+mode_setup;
+ pt#:=4/3pt#;
+ u#:=4/3*.8pt#; font_quad= 24u#;
+ font_normal_space= 8u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=4/3*10pt#; cap#:=4/3*7pt#;
+ thin#:=2/3pt#; thick#:=1.15*5/6pt#;
+ o#:=4/3*1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:=1.1*1/10em;
+
+
+
+
+input croblv % velika slova
+%input croblm % mala slova
+input glz % znakovi
+
+
+
+
+
+ligtable "C": "C" =: oct "023", "H" =:
+ oct"021", "X" =: oct"001";
+ligtable "S": "S" =: oct"024";
+ligtable "Z": "Z" =: oct"025", "X" =: oct"007",
+ "O" kern -.5u#;
+ligtable "D": "D" =: oct"026"; % "d" =: oct"022";
+ligtable "Y": "A" =: oct"003",
+ "E" =: oct"003",
+ "U" =: oct"005";
+ligtable "E": "I" kern -.5u#;
+ligtable "F": "O" kern -u#, "U" kern -u#, "I" kern -.5u#, "G" kern-.5u#;
+ligtable "I": "F" kern -.5u#;
+ligtable "R": "K" kern -.5u#;
+ligtable "N": "A" kern -.5u#;
+
+
+
+
+end.
+
+
+
+
diff --git a/language/croatian/fonts/mf/ugve.mf b/language/croatian/fonts/mf/ugve.mf
new file mode 100644
index 0000000000..1384adf7e7
--- /dev/null
+++ b/language/croatian/fonts/mf/ugve.mf
@@ -0,0 +1,55 @@
+
+
+%%****************************************************************
+%%******** G L A G O L J I C A, bl ** Darko Zubrinic, ETF, Zagreb, 1992
+%%****************************************************************
+
+
+
+mode_setup;
+ pt#:=4/3pt#;
+ u#:=2*.8pt#; font_quad= 24u#;
+ font_normal_space= 8u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 1u#;
+ em#:=2*10pt#; cap#:=2*7pt#;
+ thin#:=3*2/3pt#; thick#:=1.5*1.15*5/6pt#;
+ o#:=1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:=1.1*1/10em;
+
+
+
+
+input croblv % velika slova
+%input croblm % mala slova
+input glz % znakovi
+
+
+
+
+
+ligtable "C": "C" =: oct "023", "H" =:
+ oct"021", "X" =: oct"001";
+ligtable "S": "S" =: oct"024";
+ligtable "Z": "Z" =: oct"025", "X" =: oct"007",
+ "O" kern -.5u#;
+ligtable "D": "D" =: oct"026"; % "d" =: oct"022";
+ligtable "Y": "A" =: oct"003",
+ "E" =: oct"003",
+ "U" =: oct"005";
+ligtable "E": "I" kern -.5u#;
+ligtable "F": "O" kern -u#, "U" kern -u#, "I" kern -.5u#, "G" kern-.5u#;
+ligtable "I": "F" kern -.5u#;
+ligtable "R": "K" kern -.5u#;
+ligtable "N": "A" kern -.5u#;
+
+
+
+
+end.
+
+
+
+
diff --git a/language/croatian/fonts/tex/crogl.tex b/language/croatian/fonts/tex/crogl.tex
new file mode 100644
index 0000000000..c1644a2e77
--- /dev/null
+++ b/language/croatian/fonts/tex/crogl.tex
@@ -0,0 +1,518 @@
+
+% TUGboat, Vol 17, No1, March 1996
+
+% two-coloumn style
+%% incorporates editing changes by bb; 6 jan 1996
+
+\input tugboat.sty
+
+\input llig
+\input ste
+
+\def\q{\quad}
+\long\def\okkvir#1#2#3{%
+\hbox{\vrule\vbox{\hrule\vskip#1pt\hbox{\hskip#1pt\vbox{%
+\hsize#2cm\parindent=0pt #3%
+}\hskip#1pt}\vskip#1pt\hrule}\vrule}%
+}
+
+
+\font\ugv=ugve
+
+\def\d@anger#1{\medbreak\begingroup\clubpenalty=10000
+\def\par{\endgraf\endgroup\medbreak}%
+\setbox0=\hbox{\ugv #1\kern2mm}%
+\hangindent=\wd0
+\def\slov@{\smash{\lower\baselineskip\hbox{\copy0}}}
+\noindent\hangafter=-2%
+\hbox to0pt{\hskip-\hangindent
+\slov@\hfill}}
+
+\outer\def\slovo{\d@anger}
+\def\enddanger{\endgraf\endgroup}
+
+
+\font\stechak=stechak
+
+
+\title * Croatian Fonts *
+
+\author * Darko \v Zubrini\'c *
+%\address * University of Zagreb \\ FER, Avenija Vukovar 39, Zagreb \\ Croatia *
+\address * University of Zagreb \\ FER, Avenija Vukovar 39 \\ Zagreb, Croatia *
+\netaddress [\network{Internet}] * darko.zubrinic@fer.hr *
+
+\article
+
+
+
+The aim of this note is to inform the interested reader
+about the possibility of obtaining several new fonts: Croatian
+Glagolitic (round -- sometimes called Bulgarian glagolitic,
+angular, Ba\v ska tablet, cursive,
+%% bb -- re the "ba\v{s}ka plate", please see below
+%ligatures, the Baromi\'c broken ligatures, caligraphic),
+ligatures, the Baromi\'c broken ligatures, calligraphic),
+Croatian Cyrillic, ste\'cak ornaments and Croatian wattle patterns.
+They represent a considerable extension of the first version
+of glagolitic fonts I created in 1992 (see [2]).
+
+Having in mind that Croatian Glagolitic Script has a long history of
+at least 11 centuries (from 9th to 20th), it is not
+surprising that there exists a large
+%variety of its handwritten and printed versions. The author has
+%created several major types of this Script.
+variety of handwritten and printed versions. The author has
+created several major fonts of type using this Script.
+\medskip
+
+%\noindent$\bullet$ The so called ``round type'', together
+\noindent$\bullet$ The so-called ``round type'', together
+with the corresponding numerical values, is the following:
+
+\input ttablo
+
+\noindent In some documents there appear additional
+%versions of letters,
+versions of some letters,
+%like e.g.\ the ``spider-like h'' {\obl\char'076}. It is interesting
+e.g.\ the ``spider-like h'' {\obl\char'076}. The
+tops of letters appearing in this font are aligned. The
+``hanging style'' the round galgolitic can be illustrated
+e.g.\ by
+{\obl b3yzzetva}, {\obl svoem}, as it appears on the Kiiv folia
+(the first folio
+is from Croatia, written in region of Dubrovnik, 11th century;
+ the remaining six are from Czechia, 10th century).
+
+\medskip
+
+%% bb -- to me, ``plate'' often implies a flat dish meant for serving
+%% food -- these are sometimes ceremonial, and that's why i first
+%% misunderstood this sentence; i know that is not what is meant here.
+%% perhaps ``tablet'' or ``plaque'' is close enough in meaning,
+%% and would not be as confusing.
+\noindent$\bullet$ The font of the Ba\v ska stone tablet
+(carved in nd A.D.\
+1100 on the island of Krk):
+
+\input ttablb
+
+
+The Ba\v ska tablet is one of our most important cultural
+monuments ($2\times 1$ m${}^2$). The reason is that it was
+written in the Croatian
+%language (with the elements of the Church Slavonic) as early as
+language (with elements of Church Slavonic) as early as
+in the 11th century. Its text comprises more than $400$
+letters and contains the earliest
+mention of a Croatian king written in the Croatian
+vernacular: Z''v''nimir'', kral'' hr''vat''sk''\"{\i}
+(Hrvatska $=$ Croatia), i.e.\
+{\it Zvonimir, the Croatian king\/}, or in the
+Glagolitic:
+\setbox0=\hbox{\bassv kral3 \ hr3vxt3sk3y}
+$$
+\okkvir36{\hbox to \wd0{\hss\bassv z3v3nimir3\hss}
+\vskip2mm
+\hbox{\bassv kral3 \ hr3vxt3sk3y}}
+$$
+There are also earlier monuments from the 9th century that
+mention Croatian kings and dukes, but written in the Latin
+Script and in the Latin
+language.
+
+%The reader will notice that several Latin and(or) Cyrillic
+The reader will notice that several Latin and/or Cyrillic
+letters appear on the table: {\bass O, I, M, N, T, V} ($=$
+%V). This
+V)\null. This
+is only one among numerous proofs of the parallel use of three
+%Scripts (Glagolitic, Latin, Cyrillic) and three languages
+scripts (Glagolitic, Latin, Cyrillic) and three languages
+(Croatian, Church Slavonic and Latin) in Croatia. The
+%three-scriptural and three-language character of the
+three-script and three-language character of the
+Croatian Middle Ages is a unique phenomenon in the history of
+European culture (see [1]).
+
+\medskip
+
+\noindent$\bullet$ Since the 12th century the Glagolitic
+%Script survived only on the Croatian soil. Until that time
+Script has survived only in Croatia. Until that time
+%it existed also in some other regions, like in Bulgaria,
+it existed also in some other regions, e.g.\ Bulgaria,
+Macedonia, Roumania, Ukraine, when it was replaced by
+%theillic Script. In Croatia there developped the so
+%called {\it angular form\/} of the Glagolitic.
+the Cyrillic Script, and also in Czechia. In Croatia there developed the so-called
+{\it angular form\/} of the Glagolitic.
+
+\input ttabl
+
+\noindent Its golden period
+falls between the 12th and the 16th century:
+After that a
+%decline of this Script ensued, as a result of
+decline of this script ensued, as a result of
+the penetration of the Ottoman Empire.
+\medskip
+
+
+\noindent$\bullet$ The Croatian Glagolitic has hundreds of interesting
+ligatures.
+ Let us present some of them:
+
+\input ttlis
+
+
+\noindent It is
+striking that a {\it printed\/} Glagolitic book, the Brozi\'c breviary from 1561
+(1081 pages), has as many as $250$ ligatures.
+
+
+\noindent$\bullet$ A unique
+creation in the history of European printing are the so called
+{\it Baromi\'c broken ligatures\/}. The idea was to add one half of
+a letter (say {\lom A} of {\mgl A}) to another (say {\mgl
+B}), to obtain a broken ligature (\hbox{{\mgl B}{\lom A}} -- ba). Other
+combinations are also possible with
+{\lom D} ({\mgl D}, D),
+{\lom ZZ} ({\mgl ZZ}, \v Z),
+%{\lom L} ({\mgl L}, T),
+{\lom L} ({\mgl L}, L),
+{\lom V} ({\mgl V}, V),
+{\lom T} ({\mgl T}, T).
+Broken ligatures were used in the Baromi\'c Missal, the
+incunabula printed in the Croatian city of Senj in 1494
+(last year we celebrated its $500$th
+anniversary). Only three samples are preserved: one in
+the Saltyko S\v cedrin Library in St.Petersburg (Russia),
+one and the only complete copy in
+the Szeczenyi Library in Budapest (Hungary), and one
+in Croatia on the island of Cres. When looking at the text
+containing Baromi\'c broken ligatures, one has the impression as if this
+incunabula was handwritten. Few examples: \hbox{{\mgl B}{\lom
+A}{\mgl ROMICH}} (Baromi\'c), \hbox{{\mgl D}{\lom AZZD6}} (rain), \hbox{\mgl
+MO{\lom L}{\mgl I}{\lom TVA}} (prayer).
+
+
+%Hundreds of Croatian Glagolitic monuments, both handwritten and
+Hundreds of Croatian Glagolitic texts, both handwritten and
+printed, the oldest from the 12th century,
+ are held in national museums in more than $20$ European
+countries, and also in the USA.\footnote{I would like to
+take the opportunity to send an appeal to those readers who maybe
+know of any of the Croatian Glagolitic documents
+held in private possession to inform me.}
+
+% The reader living in New York can see the beuatiful
+ The reader living in New York can see the beautiful
+Croatian Missal from around 1410 in the Pierpont Morgan
+Library (reprinted by the Martin Sagner Verlag, Munich, 1976). In
+%the Congress Library in Washington you can see a sample of
+the Library of Congress in Washington you can see a sample of
+the first Croatian incunabula, printed in 1483
+(unfortunately, it is not known where precisely).
+Six copies are in Croatia, two in the Vatican Library, one
+in the National Library in Vienna (Austria) and one in the
+Saltykov \v S\v cedrin
+Library in St.Petersburg (Russia). It was the first book in
+the history of European printing that was not printed in the
+Latin characters, as well as the first incunabula not printed in the
+Latin language.
+
+Probably the most valuable
+Croatian Glagolitic book is the Missal of Hrvoje (1404), held in
+the Library of Turkish sultans (Topkapi Saray) in Constantinople.
+
+
+
+ It is interesting that a Croat George (Juraj) de Slavonie, or de
+Sorbonne (14/15th century),
+a professor at Sorbonne in
+Paris,
+left us several valuable Glagolitic manuscripts
+written by his hand, held today in
+Municipal Library in Reims (France). One of them contains a prayer
+``Our Father'', on which we would like to illustrate the Croatian
+Glagolitic:
+
+
+\slovo{O}{\mgl cce nass6 izze esi nanebesih6 * sveti se ime
+\tvo e * {\gg\char'005}idi cesars\tv o \tv oe * budi vola \tv oya yako
+nanebesi inaze\ml i * \lower1.33pt\hbox{H}lib nass vsedanni dai
+nam'ga danas i \ot pusti nam' dl'gi nasse *
+\lower1.33pt\hbox{Ya}kozze i mi \ot pusschaem' dl'ge dlzznikom
+nassim6 * i nevavedi nas' v' napast' * \lower1.33pt\hbox{N}a
+iz'bavinas' od ne{\gg\char'005}iyazni} % \char'005=pr
+
+\medskip
+
+%\noindent$\bullet$ In the 16th and 17th century there began
+%to appear some caligraphic Glagolitic letters in Crotian
+\noindent$\bullet$ In the 16th and 17th century
+some calligraphic Glagolitic letters began to appear in Croatian
+printed books:
+$$
+\gather
+\text{
+{\kal A} (A),
+{\kal V} (V),
+{\kal D} (D),
+{\kal Z} (Z),
+{\kal I} (I),}\\
+\text{
+{\kal K} (K),
+{\kal L} (L),
+{\kal M} (M),
+{\kal N} (N),
+{\kal P} (P),}\\
+\text{
+{\kal R} (R),
+{\kal S} (S),
+{\kal H} (H),
+{\kal CC} (\v C).}
+\endgather
+$$
+\medskip
+
+\noindent$\bullet$ There are thousands of
+{\it cursive\/} Glagolitic
+documents, witnessing above all about the Croatian language
+and its very early use in official documents, and about
+ highly organized civil life
+ in the Middle Ages. Probably the
+%most important is the {\it Vinodole Code\/} from 1288. This
+most important is the {\it Vinodol Code\/} from 1288.
+%% bb -- this is the spelling used above
+ Very important
+is the {\it Istarski razvod\/} from
+the 14th century, written in the region of Istria in three
+official copies:
+in the Latin and German languages (in Latin Script), and in
+the
+Croatian language (as was expressly stated), using the
+Glagolitic Script. It defined the borders between different
+rulers in Istria.
+Equally important are the city
+statutes of many Croatian cities written in the Glagolitic, the earliest dating from
+the 14th century. Here is
+a variant of the cursive Croatian Glagolitic
+ (we provide also the angular type for comparison):
+
+\input ttablokurz
+
+\noindent An example: {\kur Darko Zzubrinich}.
+
+\medskip
+
+\noindent$\bullet$ Croatian Cyrillic (also called Bosan\v
+cica or Bosanica)
+ was quite widespread
+%in Bosnia and in the Dalmatian part of Croatia. Its developement
+among the Croats in Bosnia and in the Dalmatian part of Croatia.
+Its development
+can be traced from the 12th to 19th century.
+Here it is:
+
+\input ttablhc
+
+
+%\noindent Probably the most beutiful Croatian Cyrillic book
+\noindent Probably the most beautiful Croatian Cyrillic book
+is the Missal of Hval written in 1400-1404, now held in the University
+Library in Bologna (Italy), reprinted in Sarajevo in 1986.
+\medskip
+
+
+\noindent$\bullet$ There
+%exist more that $66,000$ mysterious tombstone monuments, mostly in
+exist more than $66,000$ mysterious tombstone monuments, mostly in
+%Bosnia-Herzegovina and Croatia, called {\it ste\'cak\/},
+Bosnia-Herzegovina and Croatia, called {\it ste\'cak\/}
+ (13-14th century),
+some of them having short engravings in the
+Croatian Cyrillic Script (e.g.\ ``please do not
+disturb me, I was like you and
+you will be like me''), with interesting and simple border
+%decorations, like:
+decorations, like these:
+\medskip
+\cvijet
+\smallskip
+\kukagd
+\smallskip
+\dvije8
+\smallskip
+\Oo
+
+\medskip
+\noindent dancers:
+$$
+\text{\stechak lkkkkkd}
+$$
+human-like figures:
+$$
+\text{\stechak L\q L\q L}
+$$
+birds:
+$$
+\text{\stechak p q}
+$$
+star-like ornaments:
+$$
+\gather
+\text{\stechak 4\q Z}\\
+\text{\stechak a\q b\q 5}\\
+\text{\stechak i\q j\q e\q f}
+\endgather
+$$
+a circle (or a wheel), a symbol of eternal life:
+$$
+\text{\stechak g\q h\q K}
+$$
+swastika:
+$$
+\text{\stechak s}
+$$
+various crosses:
+$$
+\text{\stechak
+A\q B\q C\q D\q T}
+$$
+The following ornament is frequent:
+$$
+\text{\stechak R P a}\hbox to0pt{\,.\hss}
+$$
+%\noindent These monuments belong to Krstyans, memebers of the Bosnian
+\noindent These monuments belong to Krstyans, members of the Bosnian
+Church, a Christian religious sect about which we still know very
+little.
+
+
+\noindent$\bullet$ Let me finish this article with some of
+the most typical Croatian wattle patterns appearing in
+ our preromanesque churches, built between the 9th and 12th
+ century. From
+ about $300$ preromanesque Croatian
+ churches only $15$ are well preserved. The most widespread
+ wattle pattern is
+$$
+\text{\pleter 1eeeeeeeeeeeeeeeeee2}
+$$
+\noindent Of course, it is composed of {\pleter 1 e e 2}.
+Somewhat more complex
+patterns are:
+%\centerline{\plet ommp}
+$$
+\gather
+\text{\ple a}\\
+\vbox to1mm{}\\
+\text{\plet srrt}
+\endgather
+$$
+
+%\noindent Additional informations about the Croatian Glagolitic can be
+\noindent Additional information about Croatian Glagolitic can be
+seen at the URL:
+$$
+\text{\tt http://www.tel.fer.hr/hrvatska/Croatia-HCS.html}
+$$
+%(see ``Croatia -- its History, Culture and Science'').
+All the fonts appearing in this article will be available
+ freely via the WWW on the CTAN web.
+%see {\tt croatian}).
+All ligatures and fonts are defined in the file {\tt llig.tex} of the
+package.
+ The angular glagolitic font is activated by
+{\tt$\backslash$mgl} (a slightly larger version can be obtained using
+{\tt$\backslash$ngl}).
+If one wants to use glagolitic
+ligatures, the definition list in {\tt llig.tex} should be
+consulted. For example, to obtain {\mgl\ml} (ml) one has to write
+{\tt$\backslash$mgl$\backslash$ml}. Other fonts are
+activated in a similar way (they contain no glagolitic
+ligatures): {\tt$\backslash$obl} (round glagolitic,
+{\tt$\backslash$nobl} is a bit larger),
+{\tt$\backslash$bass} (Baska tablet),
+{\tt$\backslash$kur} (cursive),
+{\tt$\backslash$kal} (caligraphic),
+{\tt$\backslash$lom} (Baromich broken ligatures)
+{\tt$\backslash$hc} (Croatian Cyrillic),
+and several wattle
+patterns are activated by
+{\tt$\backslash$ple},
+{\tt$\backslash$plet},
+{\tt$\backslash$pleter}.
+In general, glagolitic letters corresponding to {\it \v c, \v z,
+\v s, \'c (\v s\'c, \v st)} are encoded in \TeX\ ligtables as {\tt cc,
+zz, ss, ch} respectively. More precisely, \hbox{{\mgl cc}} is
+obtained from {\tt$\backslash$mgl cc}.
+Capital letters are obtained by using CC (or Cc) etc.
+Using {\tt cx} you can obtain yet another version of the
+angular \v c: \hbox{{\mgl cx}}.
+The so-called `djerv' is obtained by typing {\tt j} (or {\tt
+J}) in the
+round glagolitic. In the angular form the following two version of the
+`djerv' can be obtained:
+ {\mgl j} ({\tt j}) and \hbox{{\mgl dd}} ({\tt dd}).
+ `Yat' -- \hbox{\mobl ya}, \hbox{\mgl ya} -- appearing in round and angular
+ glagolitic can be obtained using {\tt ya} (or {\tt YA,
+ Ya}).
+ Moreover, if `yat' is to be read as `ye' (which is the
+ case when it
+ appears after a consonant), then you can use {\tt ye} as
+ well.
+ The letter `yu' {\mgl yu} is obtained by typing {\tt yu},
+ `izze' ({\obl y}, {\mgl y}) by typing {\tt y}.
+ The same for the Croatian cyrillic. Two versions of
+ very frequently used {\it Croatian semivowels\/} can be obtained:
+ either by typing apostrophe {\tt '} (`yerok'; for example
+ in {\mgl bog'} - God) or
+ {\tt6} (`yer'; {\mgl bog6}). Definitions of semivowels
+ `yer' and `yor' and other letters (like
+{\mobl\char'003, \char'005}) appearing in some oldest Croatian and Bulgarian --
+ Macedonian documents written in the round glagolitic
+ can be seen in metafont files {\tt oblm.mf} and {\tt
+ oblv.mf}, that are inputted in {\tt obl.mf} - a round glagolitic
+ metafont file.
+
+As you see, an appropriate
+hypenation table is necessary to prevent line breaking
+between pairs of letters like {\tt cc, zz, ss, ch, dd,
+ya, ye,} and it has been
+included to the Croatian font package too ({\tt
+glhypehn.tex}). The table also
+incorporates some basic
+hypenation rules of the Croatian language.
+Definition
+names of many other symbols appearing in various fonts can be seen
+by looking into source files accompaning this text.
+
+%In the case you use Croatian fonts, I would deeply appreciate
+%to inform me.
+ If you should use Croatian fonts, I would deeply appreciate
+if you would inform me.
+
+
+
+\medskip
+
+\noindent{\bf References}
+
+
+\item{[1]} Eduard Hercigonja: {\it Tropismena i trojezi\v cna
+kultura hrvatskoga srednjovjekovlja\/} (Three-script and
+three-language culture of the Croatian Middle Ages), Matica
+hrvatska, Zagreb, 1994 (in Croatian),
+
+\item{[2]} Darko \v Zubrini\'c: {\it The exotic Croatian
+Glagolitic Alphabet\/}, TUGboat, Vol 13, No 4, 1992, p.\
+470--471.
+
+
+\makesignature
+\endarticle
+
diff --git a/language/croatian/fonts/tex/glhyphen.tex b/language/croatian/fonts/tex/glhyphen.tex
new file mode 100644
index 0000000000..de86bf1222
--- /dev/null
+++ b/language/croatian/fonts/tex/glhyphen.tex
@@ -0,0 +1,279 @@
+%GLHYPHEN.TEX, %14.10.92
+
+%tablica rastavljanja %verzija 1.00
+
+\patterns{
+a1a
+a1e
+a1i
+a1o
+a2s
+4ast.
+a1u
+1bdi
+1bdj
+1bj
+1bna.
+1bne.
+1bni.
+1bno.
+1bnu.
+1ba
+1bar
+1be
+.1be4s3
+1bi
+1b2l
+1bl4j
+1bo
+1b2r
+1bu
+1ca
+1ce
+1ci
+1c2j
+1cma
+1cmo
+1co
+1c2r
+1cv
+1cu
+1d2a
+1d2e
+1d2i
+1d2j4e
+1d2o
+1d2u
+1d2r
+1dl
+1dna.
+1dne.
+1dni.
+1dno.
+1dnu.
+1dne
+1dno
+1dv
+d2j
+e1a
+e1e
+e1i
+e1o
+e1u
+1fa
+1fe
+1fi
+1f4l
+1fo
+1f4r
+1fu
+1fj
+1gma
+1gmi
+1gn
+1gv
+1ga
+1ge
+1gi
+1g4l
+1go
+1gu
+1g2r
+1ha
+1he
+1hi
+1ho
+1hu
+1hla
+1hle
+1h2r
+1h2v
+1hj
+1hl
+1hna.
+1hne.
+1hni.
+1hno.
+1hnu.
+i1a
+i1e
+i1i
+i3o
+i1u
+1j2a
+1j4e
+1j4em
+1j4i
+1j4o
+1j4u
+1ka
+1ka.
+k1c
+1ke
+1ke.
+1ki
+3k2l
+1ko
+1k4r
+1ku
+1ku.
+1k2v
+k1t2n
+1la
+1le
+1li
+1lo
+1lu
+l8j
+1lja
+1lje
+1lji
+1ljo
+1lju
+1ma
+1ma.
+1me
+1mi
+1m2je
+1mo
+1mu
+1mr
+1mj
+1ml
+1na
+1na.
+5nad
+1naj5
+1ne
+1ne.
+1ni
+1ni.
+n1k2t
+n1k2c
+n1t2n
+1no
+1no.
+1nu
+1nu.
+n8j
+1nja
+1nje
+1nji
+1njo
+1nju
+o1a
+o1e
+o1i
+o1o
+o1u
+o2s
+o4st.
+1pa
+1pe
+1pi
+1p2l
+1po
+pod1
+po3s
+pot1
+pre1
+pre2d1
+pre2t1
+pri1
+1p2r
+1p2t
+1pj
+1pne
+1pu
+1ra
+r1d2
+1re
+re3do
+re3ta
+1ri
+1ro
+1ru
+3sa
+3se
+3si
+3s2k
+3s2l
+3s2n
+3s2r
+3s2t
+3sto
+1s2t2v
+3so
+s4t.
+3su
+3sv2j
+1sj
+1sm
+1sv
+1sf
+1sp
+1t2j
+1tl
+1tka.
+1tke.
+1tki.
+1tko.
+1tku.
+1ta
+1te
+1ti
+t2en
+1t2lo
+1to
+1t2r
+1tu
+1t2v
+u1a
+u1e
+u1i
+u1o
+u1u
+1va
+1ve
+1vi
+1v2je
+1v2l
+1vla3
+1v2lj
+1vo
+1v2r
+1vu
+1vj
+1zdj
+1zdr
+1zj
+1zl
+1zv
+1zr
+1zg
+1zm
+1za
+1z2b
+1ze
+1zi
+1z2n
+1zo
+1zu
+s8s
+z8z
+c8c
+c8h
+d8d
+c8x
+c8y
+d8y
+s8x
+z8x
+y8a
+y8e
+y8u }
+
+\hyphenation{ ras-tav-lja-nje }
+
+
+
diff --git a/language/croatian/fonts/tex/llig.tex b/language/croatian/fonts/tex/llig.tex
new file mode 100644
index 0000000000..3f637673b4
--- /dev/null
+++ b/language/croatian/fonts/tex/llig.tex
@@ -0,0 +1,126 @@
+
+\def\ja{{\gg \char'000}}
+\def\je{{\gg \char'000}}
+\def\ju{{\gg \char'001}}
+\def\ml{{\gg \char'002}}
+\def\ili{{\gg \char'003}}
+\def\tv{{\gg \char'004}}
+\def\pr{{\gg \char'005}}
+\def\ti{{\gg \char'006}}
+\def\itt{{\gg \char'007}}
+\def\bo{{\gg \char'010}}
+\def\br{{\gg \char'011}}
+\def\lju{{\gg \char'012}}
+\def\li{{\gg \char'013}}
+\def\il{{\gg \char'014}}
+\def\tr{{\gg \char'015}}
+\def\tto{{\gg \char'016}}
+\def\jur{{\gg \char'017}}
+\def\ol{{\gg \char'020}}
+\def\lo{{\gg \char'021}}
+\def\vo{{\gg \char'022}}
+\def\po{{\gg \char'023}}
+\def\oli{{\gg \char'024}}
+\def\olju{{\gg \char'025}}
+\def\ljud{{\gg \char'026}\hskip2pt\relax}
+\def\bll{{\gg \char'027}}
+\def\mo{{\gg \char'030}}
+\def\vr{{\gg \char'031}}
+\def\tvo{{\gg \char'032}}
+\def\no{{\gg \char'033}}
+\def\pov{{\gg \char'034}}
+\def\poto{{\gg \char'035}}
+\def\povr{{\gg \char'036}}
+\def\potr{{\gg \char'037}}
+\def\pt{{\gg \char'040}}
+\def\pot{{\gg \char'041}}
+\def\jutr{{\gg \char'042}}
+\def\vd{{\gg \char'043}}
+\def\vod{{\gg \char'044}}
+\def\tvr{{\gg \char'045}}
+\def\thita{{\gg \char'046}}
+\def\izica{{\gg \char'047}}
+\def\zl{{\gg \char'050}}
+\def\zo{{\gg \char'051}}
+\def\zr{{\gg \char'052}}
+\def\pv{{\gg \char'053}}
+\def\pov{{\gg \char'054}}
+\def\prv{{\gg \char'055}}
+\def\pl{{\gg \char'056}}
+\def\pod{{\gg \char'057}}
+\def\mlc{{\gg \char'060}}
+\def\lv{{\gg \char'061}}
+\def\vl{{\gg \char'062}}
+\def\lt{{\gg \char'063}}
+\def\tl{{\gg \char'064}}
+\def\vt{{\gg \char'065}}
+\def\mc{{\gg \char'066}}
+\def\so{{\gg \char'067}}
+\def\am{{\gg \char'070}}
+\def\ko{{\gg \char'071}}
+\def\ot{{\gg \char'072}}
+\def\ms{{\gg \char'073}}
+\def\mm{{\gg \char'074}}
+\def\jeje{{\gg \char'075}}
+\def\izze{{\gg \char'076}}
+\def\jezze{{\gg \char'077}}
+\def\krizz{{\gg \char'100}}
+\def\jazze{{\gg \char'101}}
+\def\komentar{{\gg \char'102}}
+\def\go{{\gg \char'103}}
+\def\gr{{\gg \char'104}}
+\def\hr{{\gg \char'105}}
+\def\ho{{\gg \char'106}}
+
+\def\vjeje{{\ggvv \char'075}}
+\def\vizze{{\ggvv \char'076}}
+\def\vjezze{{\ggvv \char'077}}
+\def\vkrizz{{\ggvv \char'100}}
+\def\vjazze{{\ggvv \char'101}}
+\def\vkomentar{{\ggvv \char'102}}
+\def\vgo{{\ggvv \char'103}}
+\def\vgr{{\ggvv \char'104}}
+\def\vhr{{\ggvv \char'105}}
+\def\vho{{\ggvv \char'106}}
+\def\myl{{\gg \char'107}}
+\def\ly{{\gg \char'110}}
+
+
+%\let\je=\ja
+
+
+\def\til#1{$\widetilde{\text{#1}}$}
+
+
+%\font\ugvv=ugvv
+\font\ugve=ugve
+\font\bb=ugv
+\font\zz=ggv
+\font\be=ugl
+\font\zzz=gg
+\font\mbl=ugl10
+\font\zzzz=gg10
+
+\font\mobl=obl10 %obla gl.
+\font\obl=obl \let\nobl=\obl
+\font\mkal=cal10 % kaligrafska gl. slova
+\font\kal=cal
+
+\font\ggvv=ggv1 % kraj i.mf, koji se ne mozze uccitati
+
+\font\pleter=pleter
+\font\plet=plet
+\font\ple=ple
+\font\kur=kur % kurzivna gl.
+\font\hc=hcyr % hrv. chirilica
+\font\mhc=hcyr10 % hrv. chirilica
+
+\font\lom=lom % baromicheve
+\font\bass=bass10
+\font\bassv=bass
+
+\def\vvgl{\ugvv\baselineskip=.7truecm}
+\def\vgl{\let\gg=\zz\bb\baselineskip=.7truecm}
+\def\ngl{\let\gg=\zzz\be\baselineskip=.6cm}
+\def\mgl{\let\gg=\zzzz\mbl\baselineskip=.5cm}
+
diff --git a/language/croatian/fonts/tex/ste.tex b/language/croatian/fonts/tex/ste.tex
new file mode 100644
index 0000000000..365c0049c0
--- /dev/null
+++ b/language/croatian/fonts/tex/ste.tex
@@ -0,0 +1,14 @@
+
+% Croatian fonts
+% ste\'cak border ornaments
+
+\def\trokut{\centerline{$\text{\stechak JJJJJJJJJJJJJ}$}} % trokut
+\def\Oo{\centerline{$\text{\stechak IIIIIIIIIIIIIIIII}$}} % Oo
+\def\dvije8{\centerline{$\text{\stechak HHHHHHHHHHH}$}} % 8
+\def\kukagd{\centerline{$\text{\stechak GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG}$}} % kukice gd.
+\def\kukag{\centerline{$\text{\stechak FFFFFFFFFFFFFFFFFFFFFF}$}} % kukice g.
+\def\kukad{\centerline{$\text{\stechak EEEEEEEEEEEEEEEEEE}$}} %kukice d.
+\def\cvijet{\centerline{$\text{\stechak NNNNNNNNNNN}$}} %cvjetichi
+\def\ZZZ{\centerline{$\text{\stechak MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM}$}} %ZZZ
+
+
diff --git a/language/croatian/fonts/tex/ttabl.tex b/language/croatian/fonts/tex/ttabl.tex
new file mode 100644
index 0000000000..c240ff3967
--- /dev/null
+++ b/language/croatian/fonts/tex/ttabl.tex
@@ -0,0 +1,56 @@
+%\hsize=10cm
+
+%\font\blj=blj
+%\def\tvr{{\cyr\t}\relax}
+
+{
+\baselineskip=0.5cm\rm
+
+\setbox1=\vbox{\halign{\ngl\hfil#\hfil&\quad#\hfil&\quad\hfil#\quad\cr
+A& A& 1\cr
+B& B& 2\cr
+V& V& 3\cr
+G& G& 4\cr
+D& D& 5\cr
+E& E& 6\cr
+Zz& \v Z& 7\cr
+9& Dz& 8\cr
+Z& Z& 9\cr
+Y& \"I& 10\cr
+I& I& 20\cr
+Dd, J& Dj& 30\cr
+K& K& 40\cr
+L& L& 50\cr
+M& M& 60\cr
+N& N& 70\cr
+}}
+
+
+
+\setbox2=\vbox{\halign{\ngl\hfil#\hfil&\quad#\hfil&\quad\hfil#\quad\cr
+O& O& 80\cr
+P& P& 90\cr
+R& R& 100\cr
+S& S& 200\cr
+T& T& 300\cr
+U& U& 400\cr
+F& F& 500\cr
+H& H& 600\cr
+Q & $\omega$& 700\cr
+Ch& \v S\'c, \' C& 800\cr
+C& C& 900\cr
+Cc, Cx& \v C& 1000\cr
+Ss& \v S& 2000\cr
+\^{}& semivowel& \cr
+YA& Ja, Je& \cr
+YU& Ju&\cr}}
+
+
+
+\setbox22=\vbox to \ht1{\vskip3.33pt\copy2\vss}
+%\setbox33=\vbox to \ht1{\vskip3.33pt\copy3\vss}
+
+$$
+\hbox to \hsize{\copy1\hfil\copy22}
+$$
+}
diff --git a/language/croatian/fonts/tex/ttablb.tex b/language/croatian/fonts/tex/ttablb.tex
new file mode 100644
index 0000000000..87e5c0c8c3
--- /dev/null
+++ b/language/croatian/fonts/tex/ttablb.tex
@@ -0,0 +1,55 @@
+
+{
+\baselineskip=0.5cm\rm
+
+\setbox1=\vbox{\halign{\bassv\hfil#\hfil&\quad#\hfil&\quad\hfil#\q\cr
+a, x& A&1\cr
+b& B& 2\cr
+v, V& V& 3\cr
+g& G& 4\cr
+d& D& 5\cr
+e& E& 6\cr
+zz& \v Z& 7\cr
+%9& {\cyr Z} (zjelo)& 8\cr
+z& Z& 9\cr
+y& \"I& 10\cr
+i, I& I& 20\cr
+%& Dd, J& 30\cr
+k& K& 40\cr
+l& L& 50\cr
+m, M& M& 60\cr
+n, N& N& 70\cr
+}}
+
+
+
+\setbox2=\vbox{\halign{\bassv\hfil#\hfil&\quad#\hfil&\quad\hfil#\q\cr
+o, O& O& 80\cr
+p& P& 90\cr
+r& R& 100\cr
+s& S& 200\cr
+t, T& T& 300\cr
+u& U& 400\cr
+%F& F& 500\cr
+h& H& 600\cr
+%Q & $\omega$& 700\cr
+ch& \hbox to0pt{\v S\'c, \' C\hss}& 800\cr
+c& C& 900\cr
+cc, CC& \v C& 1000\cr
+ss& \v S& 2000\cr
+3, 4& \hbox to 0cm{semivowels\hss}& \cr
+ya& Ja, Je& \cr
+yu& Ju&\cr
+\char'002& \hbox to0cm{nasal ``en''\hss}&\cr
+}}
+
+
+
+\setbox22=\vbox to \ht1{\vskip3.33pt\copy2\vss}
+%\setbox33=\vbox to \ht1{\vskip3.33pt\copy3\vss}
+
+$$
+\hbox to \hsize{\copy1\hfil\copy22}
+$$
+}
+
diff --git a/language/croatian/fonts/tex/ttablhc.tex b/language/croatian/fonts/tex/ttablhc.tex
new file mode 100644
index 0000000000..9fc4a1905a
--- /dev/null
+++ b/language/croatian/fonts/tex/ttablhc.tex
@@ -0,0 +1,59 @@
+%\hsize=10cm
+\font\hc=hcyr
+%\def\cc{\hc\char'034}
+
+{
+\baselineskip=0.5cm\rm
+
+\setbox1=\vbox{\halign{\hc\hfil#\hfil&\quad\hfil#\hfil\quad\cr
+A& A \cr
+B& B \cr
+V& V \cr
+G& G \cr
+D, \char'076, 5& D \cr
+%DDD& Dd \cr % \cc -> DD
+E& E \cr
+ZZ, ZX, \char'017& Zz \cr
+9& DZ \cr
+Z& Z \cr
+I& I \cr
+DD, 2& Dj \cr
+K& K \cr
+L& L \cr
+DDL& LJ \cr
+M& M \cr
+N& N \cr
+DDN& NJ \cr
+}}
+
+
+
+\setbox2=\vbox{\halign{\hc\hfil#\hfil&\quad\hfil#\hfil\quad\cr
+O& O \cr
+P& P \cr
+R& R \cr
+S& S \cr
+T& T \cr
+U& U \cr
+F& F \cr
+H& H \cr
+Q & OT \cr
+CH& {\v S\'c, \v C} \cr
+C& C \cr
+CC& \v C \cr
+SS& \v S \cr
+\^{}& {semivowel} \cr
+J, \&{}& ja \cr
+%YA& JA \cr
+%YE& JE \cr
+YU& ju\cr}}
+
+
+
+\setbox22=\vbox to \ht1{\vskip3.33pt\copy2\vss}
+%\setbox33=\vbox to \ht1{\vskip3.33pt\copy3\vss}
+
+$$
+\hbox to \hsize{\copy1\hss\copy22}
+$$
+}
diff --git a/language/croatian/fonts/tex/ttablo.tex b/language/croatian/fonts/tex/ttablo.tex
new file mode 100644
index 0000000000..ba50abbd35
--- /dev/null
+++ b/language/croatian/fonts/tex/ttablo.tex
@@ -0,0 +1,56 @@
+%\hsize=10cm
+
+%\font\blj=blj
+%\def\tvr{{\cyr\t}\relax}
+
+{
+\baselineskip=0.5cm\rm
+
+\setbox1=\vbox{\halign{\nobl\hfil#\hfil&\quad#\hfil&\quad\hfil#\q\cr
+A& A&1\cr
+B& B& 2\cr
+V& V& 3\cr
+G& G& 4\cr
+D& D& 5\cr
+E& E& 6\cr
+Zz& \v Z& 7\cr
+9& Dz& 8\cr
+Z& Z& 9\cr
+Y& \"I& 10\cr
+I& I& 20\cr
+J& Dj& 30\cr
+K& K& 40\cr
+L& L& 50\cr
+M& M& 60\cr
+N& N& 70\cr
+}}
+
+
+
+\setbox2=\vbox{\halign{\nobl\hfil#\hfil&\quad#\hfil&\quad\hfil#\q\cr
+O& O& 80\cr
+P& P& 90\cr
+R& R& 100\cr
+S& S& 200\cr
+T& T& 300\cr
+U& U& 400\cr
+F& F& 500\cr
+H& H& 600\cr
+Q & $\omega$& 700\cr
+Ch& \v S\'c, \' C& 800\cr
+C& C& 900\cr
+Cc& \v C& 1000\cr
+Ss& \v S& 2000\cr
+4, 7& \hbox to 1cm{semivowels\hss}& \cr
+W& Ja, Je& \cr
+2& Ju&\cr}}
+
+
+
+\setbox22=\vbox to \ht1{\vskip3.33pt\copy2\vss}
+%\setbox33=\vbox to \ht1{\vskip3.33pt\copy3\vss}
+
+$$
+\hbox to \hsize{\copy1\hfil\copy22}
+$$
+}
diff --git a/language/croatian/fonts/tex/ttabloku.tex b/language/croatian/fonts/tex/ttabloku.tex
new file mode 100644
index 0000000000..3b508ba60a
--- /dev/null
+++ b/language/croatian/fonts/tex/ttabloku.tex
@@ -0,0 +1,57 @@
+%\hsize=10cm
+
+%\font\blj=blj
+\font\kur=kur
+%\def\tvr{{\cyr\t}\relax}
+
+{
+\baselineskip=0.7cm\rm
+
+\setbox1=\vbox{\halign{\kur\hfil#\hfil&\q\mgl\hfil#\hfil&\quad#\hfil&\quad\hfil#\q\cr
+A& A& A&1\cr
+B& B& B& 2\cr
+V& V& V& 3\cr
+G& G& G& 4\cr
+D& D& D& 5\cr
+E& E& E& 6\cr
+Zz& ZZ& \v Z& 7\cr
+9& 9& Dz& 8\cr
+Z& Z& Z& 9\cr
+Y& Y& \"I& 10\cr
+I& I& I& 20\cr
+J& J& J& 30\cr
+K& K& K& 40\cr
+L& L& L& 50\cr
+M& M& M& 60\cr
+N& N& N& 70\cr
+}}
+
+
+
+\setbox2=\vbox{\halign{\kur\hfil#\hfil&\q\mgl\hfil#\hfil&\quad#\hfil&\quad\hfil#\q\cr
+O& O& O& 80\cr
+P& P& P& 90\cr
+R& R& R& 100\cr
+S& S& S& 200\cr
+T& T& T& 300\cr
+U& U& U& 400\cr
+F& F& F& 500\cr
+H& H& H& 600\cr
+Q& Q& $\omega$& 700\cr
+Ch& Ch& \v S\'c, \' C& 800\cr
+C& C& C& 900\cr
+Cc& Cc& \v C& 1000\cr
+Ss& Ss& \v S& 2000\cr
+%6& {\blj\^{}}& poluglas (jer)& \cr
+\char'136& Ya& Ja, Je& \cr
+\char'137& Yu& Ju&\cr}}
+
+
+
+\setbox22=\vbox to \ht1{\vskip3.33pt\copy2\vss}
+%\setbox33=\vbox to \ht1{\vskip3.33pt\copy3\vss}
+
+$$
+\hbox to \hsize{\copy1\hfil\copy22}
+$$
+}
diff --git a/language/croatian/fonts/tex/ttlis.tex b/language/croatian/fonts/tex/ttlis.tex
new file mode 100644
index 0000000000..4633d3ce1a
--- /dev/null
+++ b/language/croatian/fonts/tex/ttlis.tex
@@ -0,0 +1,99 @@
+
+%\input llig
+{
+\baselineskip=.7cm
+%\font\gg=ggv
+
+
+%\obeylines
+
+\setbox1=\vbox{\halign{\hfil\vgl #\hfil&\quad\hfil#\hfil\cr
+\am& am\cr
+\bll& bl\cr
+\bo& bo\cr
+\br& br\cr
+\go& go\cr
+\gr& gr\cr
+\ho& ho\cr
+\hr& hr\cr
+\il& il\cr
+\ili& ili\cr
+\itt& it\cr
+\izze& i\v ze\cr
+\jazze& ja\v ze\cr
+%\ggvv\char'101& jazze\cr
+\jeje& jeje\cr
+%\ggvv\char'075& jeje\cr
+\jezze& je\v ze\cr
+}}
+
+\setbox2=\vbox{\halign{\hfil\vgl #\hfil&\quad\hfil#\hfil\cr
+\jur& jur\cr
+\jutr& jutr\cr
+\ko& ko\cr
+\li& li\cr
+\lo& lo\cr
+\lt& lt\cr
+\lv& lv\cr
+\ly& ly\cr
+\lju& lju\cr
+\ljud& ljud\cr
+\ml& ml\cr
+\mlc& ml\v c\cr
+\mo& mo\cr
+\ms& ms\cr
+\mc& m\v z\cr
+\myl& myl\cr
+}}
+
+
+\setbox3=\vbox{\halign{\hfil\vgl #\hfil&\quad\hfil#\hfil\cr
+\no& no\cr
+\ol& ol\cr
+\oli& oli\cr
+\olju& olju\cr
+\ot& ot\cr
+\pl& pl\cr
+\po& po\cr
+\pod& pod\cr
+\pot& pot\cr
+\poto& poto\cr
+\potr& potr\cr
+\povr& povr\cr
+\pr& pr\cr
+\prv& prv\cr
+\pt& pt\cr
+\so& so\cr
+}}
+
+
+\setbox4=\vbox{\halign{\hfil\vgl #\hfil&\quad\hfil#\hfil\cr
+\ti& ti\cr
+\tl& tl\cr
+\tto& to\cr
+\tr& tr\cr
+%
+\tv& tv\cr
+\tvo& tvo\cr
+\tvr& tvr\cr
+\vd& vd\cr
+\vl& vl\cr
+\vo& vo\cr
+\vod& vod\cr
+\vr& vr\cr
+\vt& vt\cr
+\zl& zl\cr
+\zo& zo\cr
+\zr& zr\cr
+}}
+
+%\setbox5=\vbox{\halign{\hfil\vgl #\hfil&\quad\hfil#\hfil\cr
+%}}
+
+$$
+\hbox
+to\hsize{\copy1\hfil\copy2\hfil\copy3\hfil\copy4}
+$$
+
+}
+