summaryrefslogtreecommitdiff
path: root/language/croatian
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
Initial commit
Diffstat (limited to 'language/croatian')
-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
-rw-r--r--language/croatian/hrlatex/README62
-rw-r--r--language/croatian/hrlatex/fsbispit.cls134
-rw-r--r--language/croatian/hrlatex/fsbmath.sty353
-rw-r--r--language/croatian/hrlatex/hrlatex.dtx175
-rw-r--r--language/croatian/hrlatex/hrlatex.ins58
-rw-r--r--language/croatian/hrlatex/hrlatex.pdfbin0 -> 151366 bytes
-rw-r--r--language/croatian/hrlatex/hrlatex.sty48
-rw-r--r--language/croatian/hrlatex/sample.fsbispit.tex83
-rw-r--r--language/croatian/hrlatex/sample.minimal.cp1250.tex20
-rw-r--r--language/croatian/hrlatex/sample.minimal.latin2.tex19
-rw-r--r--language/croatian/hrlatex/sample.minimal.utf8.tex115
-rw-r--r--language/croatian/hrlatex/sample.prezentacija.tex64
59 files changed, 13302 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}
+$$
+
+}
+
diff --git a/language/croatian/hrlatex/README b/language/croatian/hrlatex/README
new file mode 100644
index 0000000000..41c531c7cb
--- /dev/null
+++ b/language/croatian/hrlatex/README
@@ -0,0 +1,62 @@
+HRLaTeX Package, version 0.23
+
+Author: Marcel Maretic
+
+
+* Copyright
+===========
+
+ Copyright (C) 2010 Marcel Maretic
+
+ This material is subject to the LaTeX Project Public License.
+ See http://www.ctan.org/tex-archive/help/Catalogue/licenses.lppl.html
+ for the details of that license.
+
+
+ HRLaTeX consists of the following files:
+
+ ----
+ hrlatex.dtx
+ hrlatex.ins
+ fsbispit.cls
+ fsbmath.sty
+ README
+ sample.fsbispit.tex
+ sample.minimal.cp1250.tex
+ sample.minimal.latin2.tex
+ sample.minimal.utf8.tex
+ sample.prezentacija.tex
+ hrlatex.pdf
+ -------
+
+
+
+
+* Description
+=============
+
+ This package simplifies creation of new documents for (average) croatian user.
+ As an example - a class file fsbispit.cls (exam style for FSB at University
+ of Zagreb) and a sample document are included.
+
+
+
+* Installation
+==============
+
+ To install the package, please follow these steps:
+
+ - Run LaTeX on the file `hrlatex.ins' to create the style file `hrlatex.sty'.
+ - Run LaTeX on the file `hrlatex.dtx' to create the doc file `hrlatex.dvi'.
+ - Install these files anywhere you see fit.
+
+
+
+-------------------------------------------
+ Marcel Maretic
+ Katedra za matematiku
+ Fakultet strojarstva i brodogradnje
+ Ivana Lucica 5
+ 10002 Zagreb
+ Croatia
+ http://www.fsb.hr/matematika/marcel/
diff --git a/language/croatian/hrlatex/fsbispit.cls b/language/croatian/hrlatex/fsbispit.cls
new file mode 100644
index 0000000000..b5f0fb948e
--- /dev/null
+++ b/language/croatian/hrlatex/fsbispit.cls
@@ -0,0 +1,134 @@
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesClass{fsbispit}[2010/04/09 Marcelix za FSB]
+\LoadClassWithOptions{article}
+
+\RequirePackage[%
+a4paper,%
+left=2.2cm,%
+top=2.15cm,%
+right=1.6cm,
+bottom=2cm%
+%,showframe
+]{geometry}
+
+
+
+
+\RequirePackage{fsbmath} % fsbmath poziva hrlatex.sty
+%
+% \ProcessOptions
+
+\RequirePackage{txfonts}
+
+\ProcessOptions*
+
+
+
+
+
+
+
+\newcommand{\novirok}{
+ \newpage
+ \setcounter{zad}{0}
+ \malititle
+}
+
+
+
+
+
+\pagestyle{plain}
+
+
+
+\newcommand{\malititle}{
+ \maketitle
+ \section*{}
+ \addcontentsline{toc}{subsubsection}{\@date}
+}
+
+
+\renewcommand{\maketitle}{%
+ %\addcontentsline{toc}{subsection}{\@date}
+ \thispagestyle{empty}
+ \let\footnote\thanks
+
+ \vskip 1.5em
+ \noindent
+ {\Large \textsf{\textbf{\@grupa}}}
+ \\[-5ex]
+ \parbox[t][][c]{\textwidth}{
+ \Large\centering
+ \textbf{
+ \textsf{
+ \MakeUppercase\@title}
+ }
+ } %parbox
+
+ \begin{center}
+ \textsf{(\@date)}
+ \end{center}
+
+ \vskip 1em
+} %maketitle
+
+
+\newcommand{\printtitle}{\@title}
+
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5555
+
+
+
+
+\let\@grupa\empty
+\newcommand{\grupa}[1]{\def\@grupa{#1}}
+
+
+
+%%%%%
+%
+% obicni title
+
+\newcommand{\makeheadertitle}{%
+ \let\footnote\thanks
+
+ \vskip 1.5em
+ \noindent
+ {\Large \textsf{\textbf{\@grupa}}}
+ \\[-5ex]
+ \parbox[t][][c]{\textwidth}{
+ \Large\centering
+ \textbf{
+ \textsf{
+ \MakeUppercase\@title}
+ }
+ } %parbox
+
+ \begin{center}
+ \textsf{(\@date)}
+ \end{center}
+
+ \vskip 1em
+} %maketitle
+
+\definecolor{shadecolor}{rgb}{0.8,0.85,0.95}
+
+
+
+%%%============================
+% trik za optional argument...
+% Treba napraviti par \tcmd i \@tcmd komandi. \@dblarg pomaze da ako [#1] nije pozvan nego samo jedan argument, default
+% #1 <- #2
+%
+
+\def\tcmd{\@dblarg{\@tcmd}}
+
+\long\def\@tcmd[#1]#2{%
+#1, #2
+}
+%
+%=========================== \ No newline at end of file
diff --git a/language/croatian/hrlatex/fsbmath.sty b/language/croatian/hrlatex/fsbmath.sty
new file mode 100644
index 0000000000..5448972028
--- /dev/null
+++ b/language/croatian/hrlatex/fsbmath.sty
@@ -0,0 +1,353 @@
+%
+%
+% Style for FSB Math docs
+%
+%
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{fsbmath}[2010/04/09 v0.31 LaTeX Macros for FSB Math Dept, University of Zagreb]
+
+
+\RequirePackage{amsmath, amsthm, amssymb}
+% \RequirePackage{esvect}
+%\RequirePackage{theorem}
+
+
+
+\RequirePackage[dvips]{graphicx}
+\RequirePackage[default, rjesenja]{optional}
+
+
+\RequirePackage{calc}
+\RequirePackage{ifthen}
+
+\RequirePackage[enc=cp1250]{hrlatex}
+
+
+\RequirePackage{framed}
+% \RequirePackage{picins}
+\RequirePackage{multicol}
+
+
+
+\RequirePackage{enumerate}
+\RequirePackage{paralist}
+
+
+\RequirePackage{xcolor}
+
+
+
+% \RequirePackage{pst-plot}
+% \RequirePackage{pstricks-add}
+% \RequirePackage{pstricks, pst-node, pst-tree}
+
+\RequirePackage{cancel}
+
+
+% \RequirePackage{txfonts}
+
+\RequirePackage[%
+ linkcolor=blue,%
+ urlcolor=blue,%
+ colorlinks,%
+% breaklinks,%
+]{hyperref}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\newcommand{\R}{\mathbb{R}}
+\newcommand{\Q}{\mathbb{Q}}
+\newcommand{\Z}{\mathbb{Z}}
+\newcommand{\N}{\mathbb{N}}
+\newcommand{\C}{\mathbb{C}}
+\newcommand{\D}{\displaystyle}
+\newcommand{\F}{\mathbf{F}}
+
+\renewcommand{\Re}{\mathop{\textrm{Re}}}
+\renewcommand{\Im}{\mathop{\textrm{Im}}}
+\newcommand{\Ln}{\mathop{\textrm{Ln}}}
+\newcommand{\Arg}{\mathop{\textrm{Arg}}}
+% \newcommand{\ch}{\mathop{\textrm{ch}}}
+% \newcommand{\sh}{\mathop{\textrm{sh}}}
+
+
+
+\newcommand{\hpm}{\ensuremath{\hphantom{-}}}
+
+
+\newcommand{\eqdef}{\ensuremath{\stackrel{\mathrm{def}}{=}}}
+
+% \DeclareMathOperator{\arccos}{arc cos}
+
+
+
+\ProcessOptions*
+
+%>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+% fsbmath.sty macros
+%>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+
+
+\newcommand{\ispitFooter}{\noindent\emph{\textbf{Rezultati ispita}: sljede\'ci radni dan u 13:00 sati}}
+
+
+\let\@fsbZadatakBodovi\empty
+\def\bodovi#1{%
+% PROVJERI jel #1 prazan string:
+\ifthenelse{\equal{#1}{}}%
+{\def\@fsbZadatakBodovi{}}%
+{\def\@fsbZadatakBodovi{(#1)}}%
+}
+
+\newcommand{\fsbShowBodovi}{\medskip\hfill \small \@fsbZadatakBodovi\relax}
+
+
+\newenvironment{zadaca}[1]
+{
+ \newpage
+ \pagestyle{marcelstyleb}
+ \setcounter{zad}{0}
+
+ \phantomsection
+ \addcontentsline{toc}{subsubsection}{#1}
+
+ \date{#1}
+ \makeheadertitle
+}
+{
+ \pagebreak
+}
+
+\newenvironment{ispit}[1]
+{
+ \newpage
+ \thispagestyle{empty}
+
+ \setcounter{zad}{0}
+ \date{#1}
+
+ \phantomsection
+ \addcontentsline{toc}{subsubsection}{#1}
+
+ \makeheadertitle
+}
+{
+ \vfill
+ \ispitFooter
+% \pagebreak
+}
+
+
+
+\newenvironment{kolokvij}[2]
+{
+ % #1 -> datum
+ % #2 -> grupa (A ili B)
+
+ \newpage
+ \pagestyle{empty}
+ \setcounter{zad}{0}
+ \date{#1}
+ \grupa{#2}
+
+ \phantomsection
+ \addcontentsline{toc}{subsubsection}{#1\ --\ #2}
+
+ \makeheadertitle
+}
+{
+% \pagebreak
+}
+
+
+
+%--------------------------------------------------------
+%
+% section styles
+%
+%
+\renewcommand\section{\@startsection {section}{1}{\z@}%
+ {-3.5ex \@plus -1ex \@minus -.2ex}%
+ {2.3ex \@plus.2ex}%
+ {\normalfont\Large\bfseries\sffamily}}
+
+\renewcommand\subsection{\@startsection{subsection}{2}{\z@}%
+ {-3.25ex\@plus -1ex \@minus -.2ex}%
+ {1.5ex \@plus .2ex}%
+ {\normalfont\large\bfseries\sffamily}}
+
+\renewcommand\subsubsection{\@startsection{subsubsection}{3}{\z@}%
+ {-3.25ex\@plus -1ex \@minus -.2ex}%
+ {1.5ex \@plus .2ex}%
+ {\normalfont\bfseries\sffamily}}
+
+\renewcommand\paragraph{\@startsection{paragraph}{4}{\z@}%
+ {3.25ex \@plus1ex \@minus.2ex}%
+ {-1em}%
+ {\normalfont\bfseries\sffamily}}
+
+\renewcommand\subparagraph{\@startsection{subparagraph}{5}{\z@}%\parindent}%
+ {3.25ex \@plus1ex \@minus .2ex}%
+ {-1em}%
+ {\normalfont\normalsize\bfseries\sffamily}}
+
+%--------------------------------------------------------
+
+\newenvironment{lekcija}[1]%
+{\newpage\section*{#1}}%
+{}
+
+\newtheorem{primjer}{Primjer}
+\newtheorem*{napomena}{Napomena}
+
+% \theoremstyle{definition}
+
+\newtheoremstyle{zadatakstyle}%
+{\topsep}{\topsep}%
+{\rmfamily}%
+{0cm}%{-0.145cm}%-12pt}%
+{\bfseries}%
+{}%
+{0pt}%
+{\makebox[0cm]{{\makebox[1cm][r]{\thmnumber{ #2}.\,}}}}%
+
+
+\newtheoremstyle{zzadatakstyle}%
+{\topsep}{\topsep}%
+{\rmfamily}%
+{0cm}%{-0.145cm}%-12pt}%
+{\bfseries}%
+{}%
+{0pt}%
+{\makebox[0cm]{{\makebox[1cm][r]{\thmnumber{ #2}.\!$^{*}$\,}}}}%
+
+\newtheoremstyle{zvjezdastibrojac}%
+{\topsep}{\topsep}%
+{\rmfamily}%
+{}%-12pt}%-12pt}%
+{\bfseries}%
+{.\!$^{*}$}%
+{ }%
+{}%
+
+
+
+
+
+%\theoremstyle{plain}
+
+\theoremstyle{zadatakstyle}%
+\newtheorem{zad}{}%
+
+\theoremstyle{zzadatakstyle}%
+\newtheorem{zzad}[zad]{}%
+
+
+% ======================================
+
+
+
+\newenvironment{zadatak}[1][]{
+% \if\notempty{##1}%d
+% \relax
+% \else
+% \ifthenelse{\equal{#1}{}}%
+% {\bodovi{}}%
+\bodovi{#1}
+% \bodovi{#1}
+% \fi
+\begin{zad}%
+\begin{list}{}{%
+\setlength\leftmargin{0.8165cm}%\makebox{\textbf{\textsf{111.\ }}\ }}
+% \setlength{\labelwidth}{1cm}%
+\setlength{\labelsep}{0pt}%
+\setlength{\listparindent}{0cm}%
+\setlength{\itemindent}{0cm}%
+}
+\item
+\setlength{\labelsep}{1ex}%
+}%
+{%END environment
+\end{list}%
+\end{zad}%
+\fsbShowBodovi\relax
+\bigskip%
+}
+
+\newenvironment{zzadatak}[1][]{%kopija zadatak environmenta
+\bodovi{#1}
+\begin{zzad}%
+\begin{list}{}{%
+\setlength\leftmargin{0.8165cm}%\makebox{\textbf{\textsf{111.\ }}\ }}
+% \setlength{\labelwidth}{1cm}%
+\setlength{\labelsep}{0pt}%
+\setlength{\listparindent}{0cm}%
+\setlength{\itemindent}{0cm}%
+}
+\item
+}%
+{%END environment
+\end{list}%
+\end{zzad}%
+\fsbShowBodovi\relax
+\bigskip%
+}
+
+
+
+\setlength{\parindent}{0pt}
+
+
+%BEGIN RJESENJA ...............
+% otvori novi filedescriptor
+\newwrite\tf@rjesenja
+
+\newcommand{\rjesenje}[1]{%
+\opt{inlinerjesenja}{%
+\par\textcolor{lightgray}{\fbox{\scriptsize \textcolor{red}{Rj. }\textcolor{lightgray}{ #1}}}
+}% end opt inlinerjesenja
+\protected@write{\@auxout}
+ {}
+ {\string\@writefile{rjesenja}{
+ {\protect\par {\small \textbf{\thezad.} #1}}
+ }}}
+
+\newcommand{\rjesenjeSection}[1]{
+\protected@write{\@auxout}
+ {}
+ {\string\@writefile{rjesenja}{
+ {\protect{\bigskip}\protect\par \protect\itshape \protect\fbox\protect{#1\protect} \protect\dotfill {str.~\thepage}\protect\par\protect\medskip }
+ }}}
+% }
+
+
+%BEGIN ispis rjesenja
+
+
+\newcommand{\printRjesenja}{%
+\section*{Rje\v{s}enja zadataka}
+\addcontentsline{toc}{section}{Rje\v{s}enja zadataka}
+
+ \begin{multicols*}{2} %mcols* je nebalansirana verzija...
+ \raggedright
+ \makeatletter
+ \@starttoc{rjesenja}
+ \makeatother
+ \vfill
+ \end{multicols*}
+%
+}
+
+%END ispis rjesenja
+
+
+\newcommand{\stopRjesenja}{
+ \let\oldrjesenjeMacro\rjesenje
+ \let\rjesenje\@gobble
+}
+
+% \continueRjesenja
+% \let\rjesenje\oldrjesenjeMacro
+
+%END rjesenja
+
diff --git a/language/croatian/hrlatex/hrlatex.dtx b/language/croatian/hrlatex/hrlatex.dtx
new file mode 100644
index 0000000000..1cc8f4bfc9
--- /dev/null
+++ b/language/croatian/hrlatex/hrlatex.dtx
@@ -0,0 +1,175 @@
+% \iffalse meta-comment
+% GNU GPL license
+%
+% \fi
+%
+% \iffalse
+%<*driver>
+\ProvidesFile{hrlatex.dtx}
+%</driver>
+
+%<*driver>
+\documentclass{ltxdoc}
+\RequirePackage{hrlatex}
+\RequirePackage{enumerate}
+
+
+\EnableCrossrefs
+\CodelineIndex
+\RecordChanges
+\begin{document}
+% \tableofcontents
+ \DocInput{hrlatex.dtx}
+\end{document}
+%</driver>
+%<*package>
+\NeedsTeXFormat{LaTeX2e}[1999/12/01]
+\ProvidesPackage{hrlatex}[2010/04/05 v0.23 LaTeX Macros for HRLaTeX project]
+%
+%
+ \usepackage{xkeyval}
+%
+ \DeclareOption{slovene}{\PassOptionsToPackage{slovene}{babel}}
+%
+% ^^A \newif\ifenc@valundef
+% ^^A \enc@valundeftrue
+ \DeclareOptionX{enc}[utf8]{%
+% ^^A \enc@valundeffalse
+ \PassOptionsToPackage{#1}{inputenc}
+ }
+
+ \DeclareOption{last}{
+
+ }
+
+ \DeclareOption*{}
+ \DeclareOptionX*{}
+
+
+% ^^A \ifenc@valundef
+ \PassOptionsToPackage{utf8}{inputenc} %% Default
+% ^^A \fi
+ \PassOptionsToPackage{croatian}{babel}
+
+ \ProcessOptions*
+ \ProcessOptionsX
+
+ \RequirePackage{inputenc}
+ \RequirePackage[T1]{fontenc}
+% \RequirePackage{tracefnt}
+ \RequirePackage[croatian]{babel}
+ \RequirePackage{amsopn}
+
+%</package>
+% \fi
+%
+%
+% \CheckSum{21}
+%
+% \CharacterTable
+% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+% Digits \0\1\2\3\4\5\6\7\8\9
+% Exclamation \! Double quote \" Hash (number) \#
+% Dollar \$ Percent \% Ampersand \&
+% Acute accent \' Left paren \( Right paren \)
+% Asterisk \* Plus \+ Comma \,
+% Minus \- Point \. Solidus \/
+% Colon \: Semicolon \; Less than \<
+% Equals \= Greater than \> Question mark \?
+% Commercial at \@ Left bracket \[ Backslash \\
+% Right bracket \] Circumflex \^ Underscore \_
+% Grave accent \` Left brace \{ Vertical bar \|
+% Right brace \} Tilde \~}
+%
+%
+% \changes{v0.1}{2006/02/11}{Prva verzija}
+% \changes{v0.15}{2006/05/20}{.dtx verzija}
+% \changes{v0.2}{2006/06/20}{CTAN upload}
+% \changes{v0.21}{2006/06/25}{utf8 kao default input encoding}
+% \changes{v0.22}{2006/09/20}{MikTeX fix}
+% \changes{v0.23}{2010/04/25}{Ciscenje}
+%
+% \GetFileInfo{hrlatex.sty}
+%
+% \DoNotIndex{\newcommand,\newenvironment}
+%
+%
+% \title{{\Large \textsf{HRLaTeX}} paket\thanks{Ovaj dokument
+% odnosi se na \textsf{hrlatex}~\fileversion, \filedate.}}
+% \author{Marcel Mareti\'c \\ \texttt{marcelix at gmail dot com} \\ \texttt{http://hrlatex.wordpress.com/}}
+%
+% \maketitle
+%
+% \section{Uvod}
+%
+% \textsf{HRLaTeX} paket (hrlatex.sty) je \LaTeX2e prilagodba prosje\v{c}nom hrvatskom \LaTeX{} korisniku.
+% \textsf{hrlatex} uklju\v{c}uje \textsf{babel}, \textsf{inputenc}, \textsf{fontenc} pakete s uobi\v{c}ajenim opcijama
+% i definira uobi\v{c}ajene matemati\v{c}ke operatore, npr.: $\tg$, $\ch$ i dr.
+%
+% \subsubsection*{Za\v{s}to?}
+% % % ^^A Iz iskustva znam da ve\'cina hrvatskih \LaTeX{} hakera ima vlastite pomo\'cne datoteke u kojima sa sobom vu\v{c}e ono \v{s}to bi svaki dobar \TeX{} dokument trebao imati. Ili jednostavno svaki novi dokument po\v{c}inje tako da se pi\v{s}e preko zadnjeg.
+% ^^A Za neke znam. :-)
+%
+% \begin{itemize}
+% \item[--] \v{C}ini se da ve\'cina hrvatskih \LaTeX{} hakera ima vlastite dokumente u kojima dr\v{z}i ono \v{s}to treba svakom dobrom \LaTeX{} dokumentu. Novi dokumenti se u pravilu rade tako da se pi\v{s}e "preko" zadnjeg.
+% \item[--] hrlatex.sty je podloga za nekoliko predlo\v{z}aka (\textit{templates}): diplomski rad, ispit, ud\v{z}benik, itd.
+% \end{itemize}
+% \section{Uporaba}
+%
+% \DescribeMacro{\usepackage\{hrlatex\}} \DescribeMacro{\RequirePackage\{hrlatex\}}
+% U preambuli treba uklju\v{c}iti \textsf{hrlatex} paket.
+%
+%
+%
+% \StopEventually{\PrintChanges}
+% \section{Kodne stranice}
+% \DescribeMacro{enc=utf8} \DescribeMacro{enc=cp1250} \DescribeMacro{enc=latin2}
+% \textsf{hrlatex} u\v{c}itava paket \textsf{inputenc} kojim omogu\'cuje direktan unos hrvatskih znakova.
+% Ukoliko koristite kodnu stranicu koja nije ASCII ili UTF-8 u opcijama prilikom u\v{c}itavanja paketa
+% morate to\v{c}no navesti koju kodnu stranicu koristite. Npr., zasad je na hrvatskim windows instalacijama (default) kodna stranica u kojoj se
+% unosi hrvatski tekst windows-CP1250. Tako npr.~ako \v{z}elite u WinEdt-u unositi hrvatske znakove paket hrlatex u\v{c}itajte s
+% $$\verb+\usepackage[enc=cp1250]{hrlatex}+ $$
+% Analogno se navode ostale kodne stranice, uz napomenu da opciju \verb+utf8+ \textit{default} ne treba se specijalno navoditi.
+% Za o\v{c}ekivati je da \'ce unicode UTF-8 kodiranje istisnuti starija 8-bitna kodiranja, pa ovu opciju ne\'ce trebati navoditi.
+%
+%
+% ^^A ===============================================
+%
+% \section{Napomene}
+%
+% Kodna stranica je (sad ipak) po defaultu stavljena na |utf8| -- u nadi da \'ce to uskoro postati standard na hrvatskim MS Windows instalacijama. Na linuxu to nije problem. Npr.~kile se lako mo\v{z}e namjestiti tako da mu je cp1250 \textit{default encoding} za editor. Po\v{s}to je cp1250 kodna stranica pro\v{s}irenje ascii-ja sa starijim \LaTeX datotekama nema problema.
+% ^^A |\th|
+%
+% $$\th 1, \tg \frac{\pi}2, \arctg{1}, \sh 1, \ch 0$$
+%
+% \section{Implementacija}
+%
+% \begin{macrocode}
+\DeclareMathOperator{\tg}{tg}
+\DeclareMathOperator{\arctg}{arc\,tg}
+\DeclareMathOperator{\ctg}{ctg}
+\DeclareMathOperator{\arcctg}{arc\,ctg}
+\DeclareMathOperator{\sh}{sh}
+\DeclareMathOperator{\ch}{ch}
+\DeclareMathOperator{\cth}{cth}
+\DeclareMathOperator{\tgh}{th}
+\let\th\tgh
+%
+% \end{macrocode}
+%
+%
+% \section{Promjene}
+% \begin{enumerate}[\qquad --]
+% \item[v0.10] Inicijalna verzija
+% \item[v0.15] .dtx verzija
+% \item[v0.20] prva verzija na na CTAN-u
+% \item[v0.21] Popravio da je \textit{default} ulazna kodna stranica UTF-8 pomo\'cu \textsf{xkeyval} paketa (hvala Mojci Miklavec)
+% \item[v0.22] fix za MikTeX
+% \item[v0.23] ...
+% \end{enumerate}
+%
+% \section{Primjedbe}
+% Molim Vas da mi javite svoje prijedbe i komentare.
+% \Finale
+\endinput
diff --git a/language/croatian/hrlatex/hrlatex.ins b/language/croatian/hrlatex/hrlatex.ins
new file mode 100644
index 0000000000..8ff64beeb6
--- /dev/null
+++ b/language/croatian/hrlatex/hrlatex.ins
@@ -0,0 +1,58 @@
+%%
+%% Copyright (C) 2006 by Marcel Maretic <marcelix at gmail com>
+%%
+%% This file may be distributed and/or modified under the conditions of
+%% the LaTeX Project Public License, either version 1.2 of this license
+%% or (at your option) any later version. The latest version of this
+%% license is in:
+%%
+%% http://www.latex-project.org/lppl.txt
+%%
+%% and version 1.2 or later is part of all distributions of LaTeX version
+%% 1999/12/01 or later.
+%%
+
+\input docstrip.tex
+\keepsilent
+
+\usedir{tex/latex/hrlatex}
+
+\preamble
+
+%
+% Copyright (C) 2010 HRLaTeX team
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation; either version 2 of the License, or
+% (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with this program; if not, write to the Free Software
+% Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+
+\endpreamble
+
+\generate{\file{hrlatex.sty}{\from{hrlatex.dtx}{package}}}
+
+\obeyspaces
+\Msg{*************************************************************}
+\Msg{* *}
+\Msg{* To finish the installation you have to move the following *}
+\Msg{* file into a directory searched by TeX: *}
+\Msg{* *}
+\Msg{* hrlatex.sty *}
+\Msg{* *}
+\Msg{* To produce the documentation run the file hrlatex.dtx *}
+\Msg{* through LaTeX. *}
+\Msg{* *}
+\Msg{* Happy TeXing! *}
+\Msg{* *}
+\Msg{*************************************************************}
+
+\endbatchfile
diff --git a/language/croatian/hrlatex/hrlatex.pdf b/language/croatian/hrlatex/hrlatex.pdf
new file mode 100644
index 0000000000..acfc34358a
--- /dev/null
+++ b/language/croatian/hrlatex/hrlatex.pdf
Binary files differ
diff --git a/language/croatian/hrlatex/hrlatex.sty b/language/croatian/hrlatex/hrlatex.sty
new file mode 100644
index 0000000000..802ad5fb89
--- /dev/null
+++ b/language/croatian/hrlatex/hrlatex.sty
@@ -0,0 +1,48 @@
+%%
+%% This is file `hrlatex.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% hrlatex.dtx (with options: `package')
+%%
+%%
+
+\NeedsTeXFormat{LaTeX2e}[1999/12/01]
+\ProvidesPackage{hrlatex}[2010/04/05 v0.23 LaTeX Macros for HRLaTeX project]
+\usepackage{xkeyval}
+\DeclareOption{slovene}{\PassOptionsToPackage{slovene}{babel}}
+\DeclareOptionX{enc}[utf8]{%
+\PassOptionsToPackage{#1}{inputenc}
+}
+
+\DeclareOption{last}{
+
+}
+
+\DeclareOption*{}
+\DeclareOptionX*{}
+
+\PassOptionsToPackage{utf8}{inputenc} %% Default
+\PassOptionsToPackage{croatian}{babel}
+
+\ProcessOptions*
+\ProcessOptionsX
+
+\RequirePackage{inputenc}
+\RequirePackage[T1]{fontenc}
+\RequirePackage[croatian]{babel}
+\RequirePackage{amsopn}
+
+\DeclareMathOperator{\tg}{tg}
+\DeclareMathOperator{\arctg}{arc\,tg}
+\DeclareMathOperator{\ctg}{ctg}
+\DeclareMathOperator{\arcctg}{arc\,ctg}
+\DeclareMathOperator{\sh}{sh}
+\DeclareMathOperator{\ch}{ch}
+\DeclareMathOperator{\cth}{cth}
+\DeclareMathOperator{\tgh}{th}
+\let\th\tgh
+\endinput
+%%
+%% End of file `hrlatex.sty'.
diff --git a/language/croatian/hrlatex/sample.fsbispit.tex b/language/croatian/hrlatex/sample.fsbispit.tex
new file mode 100644
index 0000000000..6465096330
--- /dev/null
+++ b/language/croatian/hrlatex/sample.fsbispit.tex
@@ -0,0 +1,83 @@
+\documentclass[12pt]{fsbispit}
+% CP1250
+
+
+
+\let\ispitFooter\empty
+\newenvironment{obavijest}[1][konj]{}{}
+
+\usepackage{tgtermes}
+
+\begin{document}
+
+
+
+
+\title{Probni ispit}
+\begin{ispit}{2010-04-09}
+
+\begin{zadatak}%[10 bodova]
+Rijei neto
+Lorem Ipsum is simply dummy text of the printing and typesetting industry. \\
+Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type
+%
+ \begin{align*}
+ \oint_\Gamma z^2-\overline{z}\ \ dz
+ \end{align*}
+
+Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type
+%
+
+% \begin{rjesenje}
+% Ja?
+% % \end{rjesenje}
+
+\end{zadatak}
+
+\begin{zadatak}[5 bodova]
+ \begin{enumerate}[a)]
+ \item Prvo pitanje
+ \item Drugo pitanje
+ \end{enumerate}
+
+\end{zadatak}
+
+
+
+\begin{zzadatak}[20 bodova]
+ Rijei jo neto
+Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book. It has survived not only five centuries, but also the leap into electronic typesetting, remaining essentially unchanged. It was popularised in the 1960s with the release of Letraset sheets containing Lorem Ipsum passages, and more recently with desktop publishing software like Aldus PageMaker including versions of Lorem Ipsum.
+\rjesenje{Kratko rje\v{s}enje}
+\end{zzadatak}
+
+
+\begin{zadatak}[30 bodova]
+Rijei neto
+Lorem Ipsum is simply dummy text of the printing and typesetting industry. \\
+Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type
+%
+ \begin{align*}
+ \oint_\Gamma z^2-\overline{z}\ \ dz
+ \end{align*}
+
+Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type
+%
+\end{zadatak}
+
+
+
+
+
+\end{ispit}
+\begin{obavijest}
+{\small \dotfill }
+
+\vfill \vfill
+% #1
+ Rezultati ispita su sljedei radni dan u 13:00 sati.
+\end{obavijest}
+
+\newpage
+\printRjesenja
+
+\end{document}
diff --git a/language/croatian/hrlatex/sample.minimal.cp1250.tex b/language/croatian/hrlatex/sample.minimal.cp1250.tex
new file mode 100644
index 0000000000..2e11cead12
--- /dev/null
+++ b/language/croatian/hrlatex/sample.minimal.cp1250.tex
@@ -0,0 +1,20 @@
+\documentclass{minimal}
+
+\usepackage[enc=cp1250]{hrlatex}
+
+
+\listfiles
+
+\begin{document}
+\noindent
+Minimalni dokument koji koristi \textsf{\textbf{\textsf{HR}}LaTeX}.
+
+ % Windows codepage 1250 -- kodna stranica
+\noindent
+ \v{C} \v{c} \'{C} \'{c} \DJ{} \dj{} \v{S} \v{s} \v{Z} \v{z}\\
+%
+
+
+
+
+\end{document} \ No newline at end of file
diff --git a/language/croatian/hrlatex/sample.minimal.latin2.tex b/language/croatian/hrlatex/sample.minimal.latin2.tex
new file mode 100644
index 0000000000..fa9302d91a
--- /dev/null
+++ b/language/croatian/hrlatex/sample.minimal.latin2.tex
@@ -0,0 +1,19 @@
+% iso 8859-2 ili latin2 kodna stranica
+%
+\documentclass{minimal}
+
+\usepackage[enc=latin2]{hrlatex}
+
+
+\listfiles
+
+\begin{document}
+\noindent
+% \tableofcontents
+Minimalni dokument koji koristi \textsf{\textbf{\textsf{HR}}LaTeX}.\\
+%
+%
+\noindent \v{C} \v{c} \'{C} \'{c} \DJ{} \dj{} \v{S} \v{s} \v{Z} \v{z}\\
+\noindent
+%
+\end{document} \ No newline at end of file
diff --git a/language/croatian/hrlatex/sample.minimal.utf8.tex b/language/croatian/hrlatex/sample.minimal.utf8.tex
new file mode 100644
index 0000000000..abe60403e0
--- /dev/null
+++ b/language/croatian/hrlatex/sample.minimal.utf8.tex
@@ -0,0 +1,115 @@
+% UTF-8
+\documentclass[12pt]{minimal}
+
+% \usepackage[enc=utf8]{hrlatex}
+\usepackage{hrlatex}
+
+
+
+\listfiles
+
+\begin{document}
+\noindent
+% \rule{7pt}{7pt}\rule[7pt]{7pt}{7pt}%
+\fontsize{20pt}{10pt}%
+\selectfont%
+\textsf{\textbf{\textsf{HR}}LaTeX} \\
+\rule{\textwidth}{1pt}\\
+\normalsize
+Mini dokument koji koristi \textsf{hrlatex} paket i \textsf{utf8} kodnu stranicu.\\
+
+\medskip
+
+\noindent
+%
+\fontsize{20pt}{25pt}%
+\selectfont%
+%
+\strut\hfil \v{C} $\cdot$ \v{c} $\cdot$ {\'{C}} $\cdot$ {\'{c}} $\cdot$ \DJ{} $\cdot$ \dj{} $\cdot$ \v{S} $\cdot$ \v{s} $\cdot$ \v{Z} $\cdot$ \v{z}\\
+%
+\strut\hfil Č $\cdot$ č $\cdot$ Ć $\cdot$ ć $\cdot$ Đ $\cdot$ đ $\cdot$ Š $\cdot$ š $\cdot$ Ž $\cdot$ ž\\
+\rule{\textwidth}{1pt}\\
+\vfill
+% \end{tabbing}
+% \chaptername
+
+\newpage
+\normalsize
+\fontsize{12pt}{15pt}%
+\selectfont%
+
+\noindent
+Marcel Maretić \\
+Hrvatskih branitelja 4a\\
+42000 Varaždin\\[0.5ex]
+GSM: 091 5111 599 \\[0.5ex]
+29. siječnja 2010.
+
+\strut\hfill
+\begin{minipage}[t]{7cm}
+ Republika Hrvatska\\
+ Državni inspektorat\\
+ Područna jedinica Varaždin \\
+ n/r Pročelniku Vladimiru Benkoviću\\
+ Stanka Vraza 4\\
+ Varaždin
+\end{minipage}
+
+
+
+\vspace*{2cm}
+
+\textbf{Predmet}:
+\begin{minipage}[t]{12cm}
+\raggedright
+ Zahtjev za provedbom inspekcijskog nadzora nad elektromehaničarskim obrtom Marković, Varaždin, K.~Filića 9 \\
+(ovlašteni servis kućanskih aparata marke Blomberg)
+\end{minipage}
+
+\vspace*{2cm}
+
+\noindent
+Poštovani,\\
+ovim putem Vam dostavljam Zahtjev za provedbom inspekcijskog nadzora nad obrtom Marković, K.~Filića 9, Varaždin.
+
+\bigskip
+
+Predmetni obrt odbija ispoštovati uvjete garancije u kojima piše:
+% \begin{quotation}
+
+\medskip
+
+ \dots \textit{da ćemo u jamstvenom roku na svoj trošak otkloniti sve nedostatke i eventualne tehničke manjkavosti koje bi mogle nastati pri normalnoj i pravilnoj uporabi (u skladu s uputama) najkasnije u roku od 45 dana od dana prijave kvara, tj.~od dana dostave aparata u najbliži servis s priloženog popisa ovlaštenih servisa.}
+
+\medskip
+
+% \end{quotation}
+%
+%
+% da se aparat zamjenjuje novim ako servis traje 45 dana. U privitku je kopija garantnog lista.
+U ovom slučaju prošlo je 79 dana od zaprimanja sušilice u servis.
+
+\bigskip
+
+Predmetnom obrtu sam kao ovlaštenom serviseru kućanskih aparata marke Blomberg 13.11.2009. dao servisirati sušilicu rublja .... .
+Sušilicu sam kupio 05.01.2008. u trgovini Elipso u Varaždinu. Sušilica se pokvarila unutar 5-godišnjeg garantnog roka.
+
+
+\bigskip
+
+\bigskip
+
+Sukladno svemu navedenom, molim Vas da obavite inspekcijski nadzor u obrtu Marković i da u okviru Vaših nadležnosti poduzmete što je potrebno kako bi spomenuti servis ispoštovao uvjete jamstva.
+
+\medskip
+
+Za sve dodatne informacije stojim Vam na raspolaganju i srdačno Vas pozdravljam,\\
+
+\bigskip
+ \strut \hfill Marcel Maretić
+
+
+
+
+
+\end{document}
diff --git a/language/croatian/hrlatex/sample.prezentacija.tex b/language/croatian/hrlatex/sample.prezentacija.tex
new file mode 100644
index 0000000000..60936f258c
--- /dev/null
+++ b/language/croatian/hrlatex/sample.prezentacija.tex
@@ -0,0 +1,64 @@
+\documentclass[%
+% draft,%
+handout, %
+% serif,%
+t,% top-centered frametitles
+]{beamer}
+
+
+\usepackage{hrlatex}
+
+
+ \usepackage{amsmath}
+ \usepackage{amsthm}
+ \usepackage{txfonts}
+ \usepackage{framed}
+
+
+
+
+ \title{Mini prezentacija}
+ \subtitle{ mali podnaslov }
+ \author{NN}
+
+
+
+% BEGIN NOT
+\usetheme[titleline=true]{Torino}
+\usepackage{tgheros}
+\usepackage{microtype}
+% END NOT
+
+
+
+\begin{document}
+
+
+
+
+\maketitle
+
+
+
+% =============================
+
+\begin{frame}{Prvi slajd}{Podnaslov}
+\begin{itemize}
+ \item prvi red
+ \item drugi red
+\end{itemize}
+
+\end{frame}
+
+%
+\begin{frame}{Drugi slajd}
+ \begin{itemize}
+ \item $1+1=2$
+ \item $\displaystyle \int_1^x \frac{1}t dt= \ln x$
+ \item tre\'ci redak
+ \item $1+2+3+\dots +n = ?$
+ \end{itemize}
+\end{frame}
+
+
+\end{document}