diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/mxedruli/xucfont.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/mxedruli/xucfont.mf | 965 |
1 files changed, 965 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/mxedruli/xucfont.mf b/Master/texmf-dist/fonts/source/public/mxedruli/xucfont.mf new file mode 100644 index 00000000000..b51ab111fbe --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/mxedruli/xucfont.mf @@ -0,0 +1,965 @@ +% Xucuri Font `xucfont.mf' +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Designed and (c) by Johannes Heinecke % +% Humboldt-Universit"at zu Berlin % +% Philosophische Faskult"at II % +% Institut f"ur deutsche Sprache und Linguistik % +% Computerlinguistik % +% J"agerstr. 10/11 % +% D - 10099 Berlin % +% <heinecke@compling.hu-berlin.de> % +% Please send any improvements, corrections, suggestions, enhancements etc % +% to the Author! % +% % +% Version 0.1 as of 29th March 1997 % +% % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% + + +% Serifen: Aufruf xuc_serif(Punktnr, 1|-1); +% unten: -1 Serife f"ur oben, 1 f"ur unten +def xuc_serif (suffix $)(expr unten) = + z$a = (x$-.5px1, y$+ ((mxserifonset-.55py1)*unten)); + z$d = (x$+.5px1, y$a); + + z$c = (x$-px1, y$-(.55py1*unten)); + z$f = (x$+px1, y$c); + + z$b = (x$c, y$c+(.5py1*unten)); + z$e = (x$f, y$b); + + if unten = 1: + fill z$a--z$d{down}..{right}z$e--z$f--z$c--z$b{right}..{up}cycle + else: + fill z$a--z$d{up}..{right}z$e--z$f--z$c--z$b{right}..{down}cycle + fi; + labels($a, $b, $c, $d, $e, $f); +enddef; + + +% links = 1: linke Halbserife, links = -1: rechte Halbserife +def xuc_halbserif (suffix $)(expr unten, links) = + z$a = (x$-(.5px1*links), y$+ ((mxserifonset-.55py1)*unten)); + z$d = (x$, y$a); + + z$c = (x$-(px1*links), y$-(.55py1*unten)); + z$f = (x$, y$c); + + z$b = (x$c, y$c+(.5py1*unten)); + + if unten = 1: + if links = 1: + fill z$a--z$d--z$f--z$c--z$b{right}..{up}cycle + else: + fill z$a--z$d--z$f--z$c--z$b{left}..{up}cycle + fi; + else: + if links = 1: + fill z$a--z$d--z$f--z$c--z$b{right}..{down}cycle + else: + fill z$a--z$d--z$f--z$c--z$b{left}..{down}cycle + fi; + fi; +% labels($a, $b, $c, $d, $f); +enddef; + + +% Kleiner Haken links oben +def xuc_haken (suffix $) = + z$x = (x$ - mxhalf, y$ + .5mxtop); + draw z$x{down}..{right}z$; + xuc_serif($x, -1); + labels($x); +enddef; + +% Grosser Haken links oben +def xuc_haken_gross (suffix $) = + z$x = (x$ - mxone, y$ + .5mxtop); + z$y = (x$ - mxhalf, y$); + draw z$x{down}..{right}z$y--z$; + xuc_serif($x, -1); + labels($x, $y); +enddef; + +% Grosser Haken rechts unten +def xuc_fuss_gross (suffix $) = + z$x = (x$ + mxone, y$ - mxthird); + z$y = (x$ + mxhalf, y$); + draw z$x{up}..{left}z$y--z$; + xuc_serif($x, 1); + labels($x, $y); +enddef; + +% Kleiner Haken rechts unten +def xuc_fuss (suffix $) = + z$x = (x$ + mxhalf, y$ - mxthird); + draw z$x{up}..{left}z$; + xuc_serif($x, 1); + labels($x); +enddef; + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%% Character Definitions: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +%% ^C %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "^C - ^Cin (+C, oct001)"; +beginchar(oct"001", mxzw#+1mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (0, 0); + z2 = (x1, mxheight); + draw z1--z2; + xuc_serif(1, 1); + xuc_serif(2, -1); + z3 = (x1, mxlittle); + xuc_fuss_gross(3); + penlabels(range 1 thru 3); +endchar; + + + + +%% K %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "K"; +beginchar("K", mxzw#+2mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (mxone, 0); + z2 = (x1, mxheight); + z3 = (x1, .5[y1, y2]); + z4 = (x1-mxone, mxlittle); + z5 = (x1+mxone, y4-mxthird); + draw z1--z2; + xuc_serif(1, 1); + xuc_serif(2, -1); + xuc_serif(4, -1); + xuc_serif(5, 1); + draw z4{down}..{down}z5; + + penlabels(range 1 thru 5); +endchar; + + +%% S %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "S"; +beginchar("S", mxzw#+mxone#, mxheight#, 0); + pickup xuc_pen; + lft z2 = (0, mxheight); + z5 = (x2+mxhalf, mxmiddle); + bot z3 = (x5, 0); + z1 = (x2, .5[y3, y5]); + z4 = (x2+mxone, y1); + draw z2---z1..z3..z4..{left}z5; + xuc_serif(2, -1); + penlabels(range 1 thru 5); +endchar; + + + +%% ^DZ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "^DZ/^J - ^Jan (oct010)"; +beginchar(oct"010", mxzw#+2mxone#, mxheight#, 0); + pickup xuc_pen; + lft z1 = (mxone, mxheight-.5mxtop); + bot z2 = (x1, 0); + draw z1--z2; + xuc_serif(2, 1); + xuc_haken_gross(1); + + z3 = (x1+mxhalf, y1); + z5 = (x2, mxmiddle); + z4 = (x1+mxone, .5[y1, y5]); + z6 = (x1-mxone, y2); + draw z1---z3..z4..z5..{down}z6; + xuc_serif(6, 1); + penlabels(range 1 thru 6); +endchar; + + +%% X %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "X"; +beginchar("X", mxzw#+mxone#, mxheight#, 0); + pickup xuc_pen; + lft z1 = (0, mxheight); + bot z2 = (x1, mxthird); + draw z1--z2; + xuc_fuss_gross(2); + xuc_serif(1, -1); + + z3 = (x1, mxmiddle); + z4 = (x1+mxone, mxlittle); + xuc_halbserif(4, 1, -1); + z5 = (x4, y1); + draw z3{up}..{right}z4--z5; + xuc_serif(5, -1); + penlabels(range 1 thru 5); +endchar; + + + +%% ^.c %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "^.C - ^.Car (,C .+C oct014)"; +beginchar(oct"014", mxzw#+1.5mxone#, mxheight#, 0); + pickup xuc_pen; + lft z1 = (0, mxheight); + z2 = (x1, mxlittle); + x4 = x1+1.5mxone; + z3 = (.5[x1, x4], y2); + bot z5 = (x3, 0); + + y4 = .5[y3, y5]; + z6 = (x1, y4); + z7 = (x4-.5mxhalf, y1); + z8 = (x7, y1-.5mxtop); + draw z8--z7--z1--z2---z3..z4..z5..{up}z6; + xuc_serif(8, 1); + xuc_halbserif(1, -1, 1); + xuc_serif(6, -1); + penlabels(range 1 thru 8); +endchar; + +%% A %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "A"; +beginchar("A", mxzw#+1.5mxone#, mxheight#, 0); + pickup xuc_pen; + lft z1 = (0, mxheight); + z2 = (x1, y1-.5mxtop); + z3 = (x1+1.5mxone, y1); + z4 = (x3, y2); +% z5 = (x1+1.2mxone, y1); + z5 = (.5[z2, z3]); + z6 = (x1, 1.5mxthird); + bot z7 = (x1+mxhalf, 0); + z8 = (x3, mxthird); + + draw z1--z2{right}..z5..{right}z3--z4; + xuc_serif(1, -1); + xuc_serif(4, 1); + + draw z5..{down}z6..{right}z7..{up}z8; + xuc_serif(8, -1); + penlabels(range 1 thru 8); +endchar; +%endinput; + + +% %% A1 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% xucchar "A -- variant A1"; +% beginchar(oct"0??", mxzw#+mxone#, mxheight#, 0); +% pickup xuc_pen; +% lft z1 = (0, mxlittle+.35mxtop); +% bot z2 = (x1, mxthird); +% draw z1--z2; +% xuc_serif(1, -1); +% xuc_halbserif(2, 1, 1); +% xuc_fuss_gross(2); +% +% z3 = (x1, mxheight); +% z5 = (x2x, mxheight-.5mxtop); +% z4 = .5[z3, z5]; +% draw z3{down}..{dir 65}z4..{dir -80}z5; +% xuc_serif(3, -1); +% xuc_serif(5, 1); +% +% penlabels(range 1 thru 5); +% endchar; + + + +%% I1 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "I1 - short I, (Old Georgian), oct012"; +beginchar(oct"012", mxzw#+2mxone#, mxheight#, 0); + pickup xuc_pen; + bot lft z1 = (0, mxmiddle); + z3 = (x1+2mxone, y1); + bot z2 = (.5[x1, x3], 0); + z4 = (x2, 2mxmiddle); + z5 = (x1+mxhalf, y4); + + draw z1{down}..z2..z3..{left}z4---z5; + xuc_serif(1, -1); + xuc_haken(5); + penlabels(range 1 thru 5); +endchar; + + +%% .K %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar ".K - .Kan (oct003)"; +beginchar(oct"003", mxzw#+mxone#, mxheight#, 0); + pickup xuc_pen; + lft z1 = (0, mxheight); + z2 = (x1, mxheight-mxtop); + z3 = (x1+mxhalf, y2-mxthird); + + bot z4 = (x1+mxone, 0); + z5 = (x4, y4+mxtop); + z6 = (x3, y2); + draw z1---z2..z3---z5; + draw z4---z5..z6---z2; + xuc_serif(1, -1); + xuc_serif(4, 1); + penlabels(range 1 thru 6); +endchar; + + +%% C %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "C"; +beginchar("C", mxzw#+2.75mxone#, mxheight#, 0); + pickup xuc_pen; + lft x3 = 0; + lft x1 = 1.75mxone; + x2 = x4 = .5[x1, x3]; + y2 = mxheight; + bot y4 = 0; + y3 = .5[y4, y2]; + y1 = mxlittle; + z5 = (x1, mxmiddle); + z6 = (x5+mxhalf, y5); + z7 = (x5+mxone, mxthird); + z8 = (x7, y4); + draw z1..{left}z2..z3..z4{right}..z5; + draw z5---z6..z7---z8; + xuc_serif(1, 1); + xuc_serif(8, 1); + xuc_halbserif(5, -1, 1); + penlabels(range 1 thru 8); +endchar; + +%% G %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "G"; +beginchar("G", mxzw#+2mxone#, mxheight#, 0); + pickup xuc_pen; + lft z1 = (0, mxlittle); + z2 = (x1, mxheight); + z3 = (x1+mxone, y2); + bot z4 = (x3, mxmiddle); + z5 = (x4+mxhalf, y4-mxthird); + + draw z1--z2--z3--z4{right}..{down}z5; + xuc_serif(1, 1); + xuc_halbserif(2, -1, 1); + xuc_halbserif(3, -1, -1); + xuc_halbserif(4, 1, 1); + xuc_halbserif(5, 1, 1); + xuc_fuss(5); + penlabels(range 1 thru 5); +endchar; + + + +%% Q %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "Q"; +beginchar("Q", mxzw#+mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (mxone, 0); + z2 = (x1, mxheight); + z3 = (x1, mxlittle); + z6 = (x1-mxone, y2); + z5 = (x6, .5[y3, y2]); + z4 = (.5[x5, x3], y3); + draw z1--z2; + xuc_serif(1, 1); + xuc_serif(2, -1); + + draw z6---z5...z4---z3; + xuc_serif(6, -1); + penlabels(range 1 thru 6); +endchar; + + +%% ^Z %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "^Z - ^Zan (+Z, oct007)"; +beginchar(oct"007", mxzw#+2mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (2mxone, 0); + z2 = (x1, mxheight); + z3 = (x1, mxlittle); + z5 = (x1-mxone, .5[y3, y2]); + z4 = (.5[x5, x3], y3); + draw z1--z2; + xuc_serif(1, 1); + xuc_serif(2, -1); + + draw z5{down}..z4---z3; + xuc_halbserif(5, -1, -1); + xuc_haken_gross(5); +% xuc_haken(5); + penlabels(range 1 thru 5); +endchar; + + + + +%% B %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "B"; +beginchar("B", mxzw#+2mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (mxone, mxthird); + z2 = (x1, mxheight); + z6 = (x1-mxone, y2); + z3 = (x1, mxlittle); + z5 = (x6, .5[y3, y2]); + z4 = (.5[x5, x3], y3); +% draw z6---z5...z4---z3; + draw z6--z5{down}...z4---z3; + draw z2--z1; + + xuc_fuss_gross(1); + xuc_halbserif(1, 1, 1); + xuc_serif(2, -1); + + + xuc_serif(6, -1); + penlabels(range 1 thru 6); +endchar; +%endinput; + + +%% ^S %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "^S - ^San (+S, oct005)"; +beginchar(oct"005", mxzw#+mxone#, mxheight#, 0); + pickup xuc_pen; + y9 = mxmiddle; + lft bot z1 = (mxone, .5[0, y9]); + z2 = (x1, mxheight); + z3 = (x1, mxlittle); + z6 = (x1-mxone, y2); + z5 = (x6, .5[y3, y2]); + z4 = (.5[x5, x3], y3); + + bot z7 = (x4, 0); + z8 = (x6, y1); + x9 = x4; + draw z2---z1..z7..z8..{right}z9; + + xuc_serif(2, -1); + + draw z6---z5...z4---z3; + xuc_serif(6, -1); + penlabels(range 1 thru 9); +endchar; + + +%% R %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "R"; +beginchar("R", mxzw#+2mxone#, mxheight#, 0); + pickup xuc_pen; + y9 = mxmiddle; + lft bot z1 = (mxone, .5[0, y9]); + z2 = (x1, mxheight); + z3 = (x1, mxlittle); + + z8 = (x1-mxone, y1); + x9 = .5[x8, x1]; + bot z7 = (x9, 0); + draw z2---z1..z7..z8..{right}z9; + + xuc_serif(2, -1); + xuc_fuss_gross(3); + penlabels(range 1 thru 9); +endchar; + + + +%% O %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "O"; +beginchar("O", mxzw#+2.75mxone#, mxheight#, 0); + pickup xuc_pen; + z2 = (2mxone, .5mxheight); + lft z4 = (0, y2); + + bot z1 = (.5[x4,x2], 0); + z3 = (x1, mxheight); + draw z1..z2..z3..z4..cycle; + + y5 = y2 - (sind 30)*mxone; + x5 = x1 + (cosd 30)*mxone; + + z7 = (3mxone, y5); + z6 = (.5[x5,x7], y1); + draw z5{down}..{right}z6..{up}z7; + + xuc_serif(7, -1); + penlabels(range 1 thru 7); +endchar; + + +%% U %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "U"; +beginchar("U", mxzw#+2.5mxone#, mxheight#, 0); + pickup xuc_pen; + z2 = (2mxone, .5mxheight); + lft z4 = (0, y2); + + bot z1 = (.5[x4,x2], 0); + z3 = (x1, mxheight); + draw z1..z2..z3..z4..cycle; + + y5 = y2 - (sind 30)*mxone; + x5 = x1 + (cosd 30)*mxone; + + lft z6 = (2.5mxone, y1); + draw z5{right}..z6; + + xuc_serif(6, 1); + penlabels(range 1 thru 6); +endchar; + + + + +%% D %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "D"; +beginchar("D", mxzw#+1.8mxone#, mxheight#, 0); + pickup xuc_pen; + lft z2 = (1.8mxone, .5mxlittle); + lft z4 = (0, y2); + + bot z1 = (.5[x4,x2], 0); + z3 = (x1, mxlittle+.5mxthird); + draw z1..z2..z3..z4..cycle; + + z5 = (x3, mxheight); + draw z3--z5; + + z6 = (x4, y5-.5mxtop); + z7 = (x6, y5); + z8 = (x2, y5); + z9 = (x8, y6); + draw z6--z7---z8---z9; + + xuc_serif(6, 1); + xuc_serif(9, 1); + penlabels(range 1 thru 9); +endchar; + +%% E %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "E"; +beginchar("E", mxzw#+mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (mxone, 0); + z2 = (x1, mxheight); + lft z3 = (0, y2); + z4 = (x3, mxlittle); + z5 = (x1, mxlittle); + rt z6 = (2mxone, y5); + z7 = (x6, .5y6); + draw z1--z2--z3--z4; + + xuc_serif(1, 1); + xuc_halbserif(2, -1, -1); + xuc_halbserif(3, -1, 1); + + xuc_serif(4, 1); + + penlabels(range 1 thru 4); +endchar; + + +%% N %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "N"; +beginchar("N", mxzw#+mxone#, mxheight#, 0); + pickup xuc_pen; + bot lft z1 = (0, 0); + z2 = (x1, mxheight); + z3 = (x1+mxone, y2); + z4 = (x3, 1.2mxlittle); + + z5 = (x1, mxmiddle); + z6 = (x3, y1); + + z7 = (.5[x5, x6], y5); + z8 = (x6, .5[y5, y6]); + draw z1--z2--z3--z4; + draw z5..z7{right}..{down}z8..z6; + + xuc_serif(1, 1); + xuc_halbserif(2, -1, 1); + xuc_halbserif(3, -1, -1); + xuc_serif(4, 1); + xuc_serif(6, 1); + + penlabels(range 1 thru 6); +endchar; + + +%% T %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "T"; +beginchar("T", mxzw#+2mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (mxone, 0); + z2 = (x1, mxheight); + lft z3 = (0, .5[y1, y2]); + draw z1--z2{left}..{down}z3..{right}z1; + + z5 = (x1, mxlittle); + z6 = (x1+mxone, y5); +% z7 = (x6, .5y6); + +% draw z5--z6--z7; + xuc_fuss_gross(5); + xuc_halbserif(1, 1, -1); + xuc_halbserif(2, -1, -1); + +% xuc_halbserif(6, -1, -1); +% xuc_serif(7, 1); + + penlabels(range 1 thru 7); +endchar; + + + + + +%% V %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "V"; +beginchar("V", mxzw#+1.8mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (.9mxone, 0); + z2 = (x1, mxheight); + lft z3 = (0, y2); + z4 = (x3, mxlittle); + z5 = (x1, mxlittle); + z6 = (x1+.9mxone, y5); + z7 = (x6, .5y6); + draw z1--z2--z3--z4; + draw z5--z6--z7; + xuc_serif(1, 1); + xuc_halbserif(2, -1, -1); + xuc_halbserif(3, -1, 1); + xuc_serif(4, 1); + xuc_halbserif(6, -1, -1); + xuc_serif(7, 1); + + penlabels(range 1 thru 7); +endchar; + + +%% E %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "EE - (Long E) oct(016)"; +beginchar(oct"016", mxzw#+mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (0, 0); + z2 = (x1, mxheight); + z5 = (x1, mxlittle); + z6 = (x1+mxone, y5); + z7 = (x6, .5y6); + draw z1--z2; + draw z5--z6--z7; + + z3 = (x6, y2); + z4 = (x6, y2-.5mxtop); + draw z3--z4; + + xuc_serif(1, 1); + xuc_serif(2, -1); + xuc_serif(3, -1); + xuc_serif(4, 1); + xuc_halbserif(6, -1, -1); + xuc_serif(7, 1); + + penlabels(range 1 thru 7); +endchar; + + +%% L %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "L"; +beginchar("L", mxzw#+2mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (mxone, .5mxlittle); + z2 = (x1, mxheight); + lft z3 = (0, y2); + z4 = (x3, mxlittle+mxthird); + draw z1--z2--z3--z4; + + z5 = (x1, mxlittle); + z7 = (x1+mxone, .5mxlittle); + z6 = (.5[x5, x7], y5); + bot z8 = (.x6, 0); + + draw z5---z6..z7..z8{left}..{up}z1; + + xuc_halbserif(2, -1, -1); + xuc_halbserif(3, -1, 1); + xuc_serif(4, 1); + + penlabels(range 1 thru 8); +endchar; + +%% H %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "H"; +beginchar("H", mxzw#+2mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (mxone, .5mxlittle); + z2 = (x1, mxheight); + lft z3 = (0, y2); + z4 = (x3, mxlittle); + draw z1--z2--z3--z4; + + z5 = (x1, mxlittle); + z7 = (x1+mxone, .5mxlittle); + z6 = (.5[x5, x7], y5); + bot z8 = (.x6, 0); + + draw z6{right}..z7..z8{left}..{up}z1; + + xuc_halbserif(2, -1, -1); + xuc_halbserif(3, -1, 1); + xuc_serif(4, 1); + + penlabels(range 1 thru 8); +endchar; + + +%% Z %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "Z"; +beginchar("Z", mxzw#+2mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (mxone, .5mxlittle); + z2 = (x1, mxheight-.5mxtop); + draw z1--z2; + + z5 = (x1, mxlittle); + z7 = (x1+mxone, .5mxlittle); + z6 = (.5[x5, x7], y5); + bot z8 = (.x6, 0); + + draw z5--z6{right}..z7..z8{left}..{up}z1; + + xuc_halbserif(2, -1, -1); +% xuc_haken(2); + xuc_haken_gross(2); + penlabels(range 1 thru 8); +endchar; + + +%% I %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "I"; +beginchar("I", mxzw#+mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (mxone, 0); + z2 = (x1, mxheight-.5mxtop); + draw z1--z2; + xuc_serif(1, 1); +% xuc_haken(2); + xuc_haken_gross(2); + penlabels(range 1 thru 2); +endchar; + + +%% W %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "W"; +beginchar("W", mxzw#+mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (mxone, 0); + z2 = (x1, mxheight); + draw z1--z2; + + z3 = (x1, mxlittle); + xuc_serif(1, 1); + xuc_serif(2, -1); + xuc_haken_gross(3); + penlabels(range 1 thru 3); +endchar; + + +%% M %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "M"; +beginchar("M", mxzw#+2mxone#, mxheight#, 0); + pickup xuc_pen; + lft z8 = (mxone, mxheight-.5mxtop); + z1 = (x8, mxlittle); + lft bot z2 = (mxhalf, 0); + lft z3 = (0, .5mxlittle); + z4 = (x2, mxlittle); + z5 = (x8+.5mxone, y4); + z6 = (x8+mxone, y3); + z7 = (x6, y2); + draw z8--z1{down}..{left}z2..z3..{right}z4--z5{right}..{down}z6--z7; + xuc_haken_gross(8); + xuc_serif(7, 1); + xuc_halbserif(8, -1, -1); + penlabels(range 1 thru 8); +endchar; + + +%% DZ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "Dz (j) - Dzil"; +beginchar("J", mxzw#+2mxone#, mxheight#, 0); + pickup xuc_pen; + lft z8 = (mxone, mxheight); + z1 = (x8, mxlittle); + lft bot z2 = (mxhalf, 0); + lft z3 = (0, .5mxlittle); + z4 = (x2, mxlittle); + z5 = (x8+.5mxone, y4); + z6 = (x8+mxone, y3); + z7 = (x6, y2); + draw z8--z1{down}..{left}z2..z3..{right}z4--z5{right}..{down}z6--z7; + xuc_serif(8, -1); + xuc_serif(7, 1); + penlabels(range 1 thru 8); +endchar; + + + +%% OO/HO %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "OO - HO (Old Georgian), oct011"; +beginchar(oct"011", mxzw#+2mxone#, mxheight#, 0); + pickup xuc_pen; + lft z8 = (mxone, mxheight); + z1 = (x8, mxlittle); + lft bot z2 = (mxhalf, 0); + lft z3 = (0, .5mxlittle); + z4 = (x2, mxlittle); + lft z5 = (1.5mxone, y4); + lft z6 = (2mxone, y3); + z7 = (x6, y2); + draw z8--z1{down}..{left}z2..z3..{right}z4--z5{right}..{down}z6--z7; + + z12 = (x8, 1.2mxlittle); + z10 = (x6, .5[y8, y12]); + z9 = (.5[x8, x10], y8); + z11 = (x9, y12); + draw z8--z9{right}..{down}z10..{left}z11--z12; + + xuc_halbserif(8, -1, 1); + xuc_serif(7, 1); + + penlabels(range 1 thru 12); +endchar; + + + + +%% .G %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar ".G - .Gan (oct002)"; +beginchar(oct"002", mxzw#+1.3mxone#, mxheight#, 0); + pickup xuc_pen; + bot lft z1 = (0, 0); + z5 = (x1+1.3mxone, y1); + z2 = (x1, mxheight-mxtop); + z4 = (x5, y2); + z3 = (.5[x1, x5], mxheight); + draw z1--z2{up}..{right}z3..{down}z4--z5; + xuc_serif(1, 1); + xuc_serif(5, 1); + + penlabels(range 1 thru 5); +endchar; + + + +%% .P %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar ".P - .Par (oct004)"; +beginchar(oct"004", mxzw#+2mxone#, mxheight#, 0); + pickup xuc_pen; +% lft z6 = (0, mxheight); + lft z1 = (mxone, mxheight-.5mxtop); + z5 = (x1+1mxone, y1); + z2 = (x1, mxmiddle); + z4 = (x5, y2); + bot z3 = (.5[x1, x5], 0); + draw z1--z2{down}..{right}z3..{up}z4--z5; + xuc_halbserif(1, -1, -1); + xuc_serif(5, -1); +% xuc_haken(1); + xuc_haken_gross(1); + penlabels(range 1 thru 6); +endchar; + + + +%% .T %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar ".T - .Tar (oct006)"; +beginchar(oct"006", mxzw#+mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (0, mxthird); + z2 = (x1, mxheight); + z6 = (x1, mxlittle); + z4 = (x1+mxone, .5[y2, y6]); + x3 = x5 = .5[x4, x6]; + y3 = y2; + y5 = y6; + draw z1--z2--z3{right}..{down}z4..{left}z5--z6; + xuc_halbserif(2, -1, 1); + xuc_halbserif(1, 1, 1); + xuc_fuss_gross(1); + penlabels(range 1 thru 6); +endchar; + + +%% .C %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar ".C - .Cil (oct000)"; +beginchar(oct"000", mxzw#+mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (0, 0); + z2 = (x1, mxheight); + z6 = (x1, mxlittle); + z4 = (x1+mxone, .5[y2, y6]); + x3 = x5 = .5[x4, x6]; + y3 = y2; + y5 = y6; + draw z1--z2--z3{right}..{down}z4..{left}z5--z6; + + z7 = (x1, mxmiddle); + xuc_halbserif(2, -1, 1); + xuc_serif(1, 1); + xuc_fuss_gross(7); + penlabels(range 1 thru 7); +endchar; + + +%% P %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "P"; +beginchar("P", mxzw#+2mxone#, mxheight#, 0); + pickup xuc_pen; + lft bot z1 = (mxone, 0); + z2 = (x1, mxheight); + x4 = x1+mxone; + x8 = x1-mxone; + x3 = x5 = .5[x4, x2]; + x9 = x7 = .5[x8, x2]; + y3 = y9 = y2; + y7 = y5 = mxlittle; + y4 = y8 = .5[y2, y5]; + + + draw z1--z2; + draw z3{right}..{down}z4..{left}z5--z7..{up}z8..{right}z9--cycle;; + xuc_serif(1, 1); + + penlabels(range 1 thru 9); +endchar; + + +%% Qh %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +xucchar "Qh - qhar (oct015)"; +beginchar(oct"015", mxzw#+1.5mxone#, mxheight#, 0); + pickup xuc_pen; + lft z3 = (0, mxheight); + z6 = (x3 + 1.5mxone, y3); + x4 = x3; + x5 = x6; + y4 = y5 = mxlittle; + z2 = (.5[x4, x5], y4); + bot z1 = (x2, 0); + draw z1--z2; + draw z3--z4--z5--z6; + xuc_serif(1, 1); + xuc_serif(3, -1); + xuc_serif(6, -1); + penlabels(range 1 thru 6); +endchar; + +% Dummy Digits for Ligatures +%xucchar "0 (empty)"; +%beginchar("0", mxzw#+mxone#, mxheight#, 0); +%endchar; +% +%xucchar "1 (empty)"; +%beginchar("1", mxzw#+mxone#, mxheight#, 0); +%endchar; + |