diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/croatian')
35 files changed, 10736 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/croatian/bass.mf b/Master/texmf-dist/fonts/source/public/croatian/bass.mf new file mode 100644 index 00000000000..e47c2d919ea --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/bass10.mf b/Master/texmf-dist/fonts/source/public/croatian/bass10.mf new file mode 100644 index 00000000000..250d27e3de9 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/basscc.mf b/Master/texmf-dist/fonts/source/public/croatian/basscc.mf new file mode 100644 index 00000000000..f1230c2db6f --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/cal.mf b/Master/texmf-dist/fonts/source/public/croatian/cal.mf new file mode 100644 index 00000000000..15bfb871374 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/cal10.mf b/Master/texmf-dist/fonts/source/public/croatian/cal10.mf new file mode 100644 index 00000000000..591b61fb11b --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/croatian-i.mf b/Master/texmf-dist/fonts/source/public/croatian/croatian-i.mf new file mode 100644 index 00000000000..ea9b0de258e --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/croatian-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/Master/texmf-dist/fonts/source/public/croatian/croblm.mf b/Master/texmf-dist/fonts/source/public/croatian/croblm.mf new file mode 100644 index 00000000000..f600ade3bc2 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/croblv.mf b/Master/texmf-dist/fonts/source/public/croatian/croblv.mf new file mode 100644 index 00000000000..4f57c92398a --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/crocyrm.mf b/Master/texmf-dist/fonts/source/public/croatian/crocyrm.mf new file mode 100644 index 00000000000..0be4d4b0330 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/crocyrv.mf b/Master/texmf-dist/fonts/source/public/croatian/crocyrv.mf new file mode 100644 index 00000000000..49d75009da7 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/gg.mf b/Master/texmf-dist/fonts/source/public/croatian/gg.mf new file mode 100644 index 00000000000..746d82786fd --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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 croation-i % fajl sa ligaturama + + + +\baselineksip=6truemm; + +end. + + + + diff --git a/Master/texmf-dist/fonts/source/public/croatian/gg10.mf b/Master/texmf-dist/fonts/source/public/croatian/gg10.mf new file mode 100644 index 00000000000..62320e0383c --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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 croatian-i % fajl sa ligaturama + + +end. + + + + diff --git a/Master/texmf-dist/fonts/source/public/croatian/ggv.mf b/Master/texmf-dist/fonts/source/public/croatian/ggv.mf new file mode 100644 index 00000000000..fb3d6b8480b --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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 croatian-i % fajl sa ligaturama + + +end. + + + + + diff --git a/Master/texmf-dist/fonts/source/public/croatian/ggv1.mf b/Master/texmf-dist/fonts/source/public/croatian/ggv1.mf new file mode 100644 index 00000000000..3e244f674c6 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/glz.mf b/Master/texmf-dist/fonts/source/public/croatian/glz.mf new file mode 100644 index 00000000000..b03a7ea3903 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/hcyr.mf b/Master/texmf-dist/fonts/source/public/croatian/hcyr.mf new file mode 100644 index 00000000000..a4c2dfeadcb --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/kraj.mf b/Master/texmf-dist/fonts/source/public/croatian/kraj.mf new file mode 100644 index 00000000000..764c1769ad7 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/kur.mf b/Master/texmf-dist/fonts/source/public/croatian/kur.mf new file mode 100644 index 00000000000..cb859548960 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/kurzivm.mf b/Master/texmf-dist/fonts/source/public/croatian/kurzivm.mf new file mode 100644 index 00000000000..b86770b3174 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/kurzivv.mf b/Master/texmf-dist/fonts/source/public/croatian/kurzivv.mf new file mode 100644 index 00000000000..ce0102bbdad --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/lom.mf b/Master/texmf-dist/fonts/source/public/croatian/lom.mf new file mode 100644 index 00000000000..0fcefa945ad --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/lomm.mf b/Master/texmf-dist/fonts/source/public/croatian/lomm.mf new file mode 100644 index 00000000000..c99053d42a0 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/lomv.mf b/Master/texmf-dist/fonts/source/public/croatian/lomv.mf new file mode 100644 index 00000000000..79572b04b13 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/obl.mf b/Master/texmf-dist/fonts/source/public/croatian/obl.mf new file mode 100644 index 00000000000..8bdb4f978d2 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/obl10.mf b/Master/texmf-dist/fonts/source/public/croatian/obl10.mf new file mode 100644 index 00000000000..93a5a4410c5 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/oblm.mf b/Master/texmf-dist/fonts/source/public/croatian/oblm.mf new file mode 100644 index 00000000000..5919acbc1a4 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/oblv.mf b/Master/texmf-dist/fonts/source/public/croatian/oblv.mf new file mode 100644 index 00000000000..5a85190ab15 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/ple.mf b/Master/texmf-dist/fonts/source/public/croatian/ple.mf new file mode 100644 index 00000000000..b5563054d74 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/plet.mf b/Master/texmf-dist/fonts/source/public/croatian/plet.mf new file mode 100644 index 00000000000..80b9c226322 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/pleter.mf b/Master/texmf-dist/fonts/source/public/croatian/pleter.mf new file mode 100644 index 00000000000..7342aac5f7c --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/stechak.mf b/Master/texmf-dist/fonts/source/public/croatian/stechak.mf new file mode 100644 index 00000000000..02ccaddd648 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/ugl.mf b/Master/texmf-dist/fonts/source/public/croatian/ugl.mf new file mode 100644 index 00000000000..e7ff3cfc8b3 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/ugl10.mf b/Master/texmf-dist/fonts/source/public/croatian/ugl10.mf new file mode 100644 index 00000000000..6da3ceac2c4 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/ugv.mf b/Master/texmf-dist/fonts/source/public/croatian/ugv.mf new file mode 100644 index 00000000000..1f6c54a8bc1 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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/Master/texmf-dist/fonts/source/public/croatian/ugve.mf b/Master/texmf-dist/fonts/source/public/croatian/ugve.mf new file mode 100644 index 00000000000..1384adf7e7d --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/croatian/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. + + + + |