% Xucuri Font `xucl.mf' Lowercase % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Designed by Johannes Heinecke % % % % This software is under the LaTeX Project Public License % % Please send any improvements, corrections, suggestions, enhancements etc % % to the Author! % % % % Version 0.3 as of 17th July 1998 % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Serifen: Aufruf xuc_serif(Punktnr, 1|-1); % unten: -1 Serife f"ur oben, 1 f"ur unten def xucmin_serif (suffix $)(expr theta, unten) = if unten = 1: z$a = (x$-(.8px2*(cosd 10)), y$-.8px2*(sind 10)); else: z$a = (x$-(1px2*(cosd 10)), y$-1px2*(sind 10)); fi; z$c = (x$-(.5px2*(cosd 10)), y$-.5px2*(sind 10)); z$b = z$a + unten*.2px2*(dir theta); z$d = z$c + unten*.6px2*(dir theta); if unten = 1: z$e = (x$+(1px2*(cosd 10)), y$+1px2*(sind 10)); else: z$e = (x$+(.8px2*(cosd 10)), y$+.8px2*(sind 10)); fi; z$g = (x$+(.5px2*(cosd 10)), y$+.5px2*(sind 10)); z$f = z$e + unten*.2px2*(dir theta); z$h = z$g + unten*.6px2*(dir theta); if unten = 1: fill z$--z$a--z$b{dir 10}..{dir theta}z$d--z$h{-dir (theta)}..{dir 10}z$f--z$e--cycle; else: fill z$--z$a--z$b{dir 10}..{-dir theta}z$d--z$h{dir (theta)}..{dir 10}z$f--z$e--cycle; fi; labels($a, $b, $c, $d, $e, $f, $g, $h); enddef; def xucl_hakenlinks (suffix $) = pickup xuc_penl; z$m = (x$-7/6xuclone, y$-xucllittle/3); z$n = (x$-xuclone, y$); numeric th; th = angle(z$n-z$m); xucmin_serif($n, th, -1); draw z$--z$m; draw z$m--z$n; labels($m, $n); enddef; def xucl_hakenrechts (suffix $) = pickup xuc_penl; z$m = (x$+7/6xuclone, y$+xucllittle/3); z$n = (x$+xuclone, y$); numeric th; th = angle(z$m-z$n); xucmin_serif($n, th, 1); draw z$--z$m; draw z$m--z$n; labels($m, $n); enddef; def xucl_fussrechts (suffix $) = z$e = (x$+5/6xuclone, y$+2/12xucllittle); z$f = (x$e+1/6xuclone, y$); z$g = (x$f, y$-1/6xucllittle); draw z$--z$e{z$e-z$}..z$f..z$g; labels($e, $f, $g); enddef; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%% Character Definitions: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% a %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "an"; beginchar("a", xuclzw#+2xuclone#, xucllittle#, .3xucllow#); pickup xuc_penl; z1 = (7/6xuclone, xucllittle); z2 = (x1-(1/3xuclone), 0); z3 = (2/3[z2, z1]); draw z1--z2; xucl_hakenlinks(1); xucl_hakenrechts(3); pickup xuc_penlx; xucl_fussrechts(2); penlabels(1, 2, 3); endchar; %% e %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "en"; beginchar("e", xuclzw#+2xuclone#, xucllittle#, xucllow#); pickup xuc_penl; numeric theta[]; z1 = (7/6xuclone, xucllittle); z2 = (x1-(1/3xuclone), 0); z3 = (2/3[z2, z1]); theta1 = angle(z1-z2); xucmin_serif(2, theta1, 1); z4 = (x1+xuclone, y1); z5 = (x4-(1/3xuclone), 0); z6 = (5/3[z4, z5]); theta4 = angle(z4-z6); xucmin_serif(6, theta4, 1); draw z1--z2; draw z3--z4--z6; xucl_hakenlinks(1); penlabels(range 1 thru 9); endchar; %% v %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "vin"; beginchar("v", xuclzw#+3xuclone#, xucllittle#, xucllow#); pickup xuc_penl; numeric theta[]; z1 = (7/6xuclone, xucllittle); z2 = (x1-(1/3xuclone), 0); z3 = (2/3[z2, z1]); theta1 = angle(z1-z2); xucmin_serif(2, theta1, 1); z4 = (x1+xuclone, y1); z5 = (x4-(1/3xuclone), 0); z6 = (5/3[z4, z5]); z7 = (2/3[z5, z4]); theta4 = angle(z4-z6); xucmin_serif(6, theta4, 1); z8 = (x4+xuclone, y1); z9 = (x8-(1/3xuclone), 0); theta8 = angle(z8-z9); xucmin_serif(9, theta8, 1); draw z1--z2; draw z3--z4--z6; draw z7--z8--z9; xucl_hakenlinks(1); penlabels(range 1 thru 9); endchar; %% t %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "tan"; beginchar("t", xuclzw#+2.5xuclone#, xucllittle#, 0); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (0, 0); z1 = (x2+1/3xuclone, xucllittle); z3 = (2/3[z2, z1]); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); z4 = (x1+xuclone, y1); z5 = (x2+xuclone, 0); z6 = (2/3[z5, z4]); z7 = (1/3[z5, z4]); theta4 = angle(z4-z5); xucmin_serif(5, theta4, 1); z8 = (x4+xuclone, y1); z9 = (x5+xuclone, 0); theta8 = angle(z8-z9); xucmin_serif(9, theta8, 1); draw z1--z2; draw z2--z7; draw z3--z4--z5; draw z6--z8--z9; penlabels(1, 2, 3, 4, 5, 6, 7, 8, 9); endchar; %% l %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "las"; beginchar("l", xuclzw#+3xuclone#, xucllittle#, 0); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z1 = (xuclone, xucllittle); z2 = (x1-1/3xuclone, 0); z3 = (1/3[z1, z2]); xucl_hakenlinks(1); theta1 = angle(z1-z2); xucmin_serif(2, theta1, 1); draw z1--z2; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z6 = (1/3[z4, z5]); theta4 = angle(z4-z5); % xucmin_serif(5, theta4, 1); draw z3--z4--z5; z7 = (x4+xuclone, y4); z8 = (x5+xuclone, y5); z9 = (2/3[z7, z8]); theta7 = angle(z7-z8); xucmin_serif(8, theta7, 1); draw z6--z7--z8; draw z5--z9; penlabels(range 1 thru 9); endchar; %% o %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "on"; beginchar("o", xuclzw#+2.5xuclone#, xucllittle#, 0); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (0, 0); z1 = (1/3xuclone, xucllittle); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); draw z1--z2; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z3 = (2/3[z4, z5]); theta4 = angle(z4-z5); xucmin_serif(4, theta4, -1); draw z2--z3; draw z4--z5; z7 = (x4+xuclone, y4); z8 = (x5+xuclone, y5); z6 = (2/3[z7, z8]); theta7 = angle(z7-z8); xucmin_serif(7, theta7, -1); xucmin_serif(8, theta7, 1); draw z7--z8; draw z5--z6; penlabels(range 1 thru 8); endchar; %% u %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "un"; beginchar("u", xuclzw#+3.5xuclone#, xucllittle#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (0, 0); z1 = (1/3xuclone, xucllittle); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); draw z1--z2; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z3 = (2/3[z4, z5]); theta4 = angle(z4-z5); xucmin_serif(4, theta4, -1); draw z2--z3; draw z4--z5; z7 = (x4+xuclone, y4); z8 = (x5+xuclone, y5); z6 = (2/3[z7, z8]); theta7 = angle(z7-z8); xucmin_serif(7, theta7, -1); draw z7--z8; draw z5--z6; z10 = (x7+xuclone, y7); z11 = (x8+xuclone, y8); z12 = (5/3[z10, z11]); z9 = (2/3[z10, z11]); theta10 = angle(z10-z11); xucmin_serif(10, theta10, -1); xucmin_serif(12, theta10, 1); draw z10--z12; draw z8--z9; penlabels(range 1 thru 11); endchar; %% p %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "par"; beginchar("p", xuclzw#+2.5xuclone#, xucllittle#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (0, 0); z1 = (1/3xuclone, xucllittle); z10 = (1/3[z1, z2]); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); draw z1--z2; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z3 = (2/3[z4, z5]); z9 = (5/3[z4, z5]); z11 = (1/3[z4, z5]); theta4 = angle(z4-z5); xucmin_serif(9, theta4, 1); draw z10--z4; draw z2--z3; draw z4--z9; z7 = (x4+xuclone, y4); z8 = (x5+xuclone, y5); z6 = (2/3[z7, z8]); theta7 = angle(z7-z8); % xucmin_serif(7, theta7, -1); xucmin_serif(8, theta7, 1); draw z11--z7; draw z7--z8; draw z5--z6; penlabels(range 1 thru 11); endchar; %% .g %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar ".ghan (oct022)"; beginchar(oct"022", xuclzw#+2xuclone#, xucllittle#, 0); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z1 = (xuclone, xucllittle); z2 = (x1-1/3xuclone, 0); z3 = (1/3[z1, z2]); xucl_hakenlinks(1); theta1 = angle(z1-z2); xucmin_serif(2, theta1, 1); draw z1--z2; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); theta4 = angle(z4-z5); xucmin_serif(5, theta4, 1); draw z3--z4--z5; penlabels(range 1 thru 9); endchar; %% q %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar ".qar"; beginchar("q", xuclzw#+1.5xuclone#, xucllittle#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (0, 0); z1 = (1/3xuclone, xucllittle); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); draw z1--z2; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z3 = (2/3[z4, z5]); z6 = (5/3[z4, z5]); theta4 = angle(z4-z5); xucmin_serif(4, theta4, -1); xucmin_serif(6, theta4, 1); draw z2--z3; draw z4--z6; penlabels(range 1 thru 8); endchar; %% dz %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "dz (j) - dzil"; beginchar("j", xuclzw#+2.5xuclone#, xuclheight#, 0); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (0, 0); z1 = (1/3xuclone, xucllittle); z10 = (1/3[z1, z2]); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); draw z1--z2; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z3 = (2/3[z4, z5]); z6 = (1/3[z4, z5]); z9 = (7/4[z5, z4]); theta4 = angle(z4-z5); xucmin_serif(5, theta4, 1); xucmin_serif(9, theta4, -1); draw z10--z4; draw z2--z3; draw z9--z5; z7 = (x4+xuclone, y4); z8 = (x5+xuclone, y5); theta7 = angle(z7-z8); xucmin_serif(8, theta7, 1); draw z7--z8; draw z7--z6; penlabels(range 1 thru 10); endchar; %% c %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar ".can (oct020)"; beginchar(oct"020", xuclzw#+3xuclone#, xucllittle#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (xuclhalf, 0); z1 = (x2+1/3xuclone, xucllittle); z10 = (1/3[z1, z2]); z9 = (5/3[z1, z2]); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); xucmin_serif(9, theta1, 1); draw z1--z9; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z6 = (1/3[z4, z5]); theta4 = angle(z4-z5); xucmin_serif(5, theta4, 1); draw z5--z4--z10; z7 = (x4+xuclone, y4); z8 = (x5+xuclone, y5); theta7 = angle(z7-z8); xucmin_serif(8, theta7, 1); draw z6--z7--z8; penlabels(range 1 thru 10); endchar; %% h %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "ha"; beginchar("h", xuclzw#+3xuclone#, xucllittle#, 0); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z1 = (xuclone, xucllittle); z2 = (x1-1/3xuclone, 0); z3 = (1/3[z1, z2]); xucl_hakenlinks(1); theta1 = angle(z1-z2); xucmin_serif(2, theta1, 1); draw z1--z2; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); draw z3--z4--z5; z7 = (x4+xuclone, y4); z8 = (x5+xuclone, y5); z9 = (2/3[z7, z8]); theta7 = angle(z7-z8); xucmin_serif(7, theta7, -1); xucmin_serif(8, theta7, 1); draw z7--z8; draw z5--z9; penlabels(range 1 thru 9); endchar; %% i %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "in"; beginchar("i", xuclzw#+xuclone#, xucllittle#, 0); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z1 = (xuclone, xucllittle); z2 = (x1-1/3xuclone, 0); xucl_hakenlinks(1); theta1 = angle(z1-z2); xucmin_serif(2, theta1, 1); draw z1--z2; penlabels(range 1 thru 2); endchar; %% .p %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar ".p - .par (oct024)"; beginchar(oct"024", xuclzw#+2xuclone#, xucllittle#, 0); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z1 = (xuclone, xucllittle); z2 = (x1-1/3xuclone, 0); xucl_hakenlinks(1); z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z3 = (2/3[z4, z5]); draw z4--z5; draw z1--z2--z3; theta4 = angle(z4-z5); xucmin_serif(4, theta4, -1); xucmin_serif(5, theta4, 1); penlabels(range 1 thru 5); endchar; %% ^z %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "^z - ^zan (+z, oct027)"; beginchar(oct"027", xuclzw#+2xuclone#, xucllittle#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z1 = (xuclone, xucllittle); z2 = (x1-1/3xuclone, 0); xucl_hakenlinks(1); z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z3 = (2/3[z4, z5]); z6 = (5/3[z4, z5]); draw z4--z6; draw z1--z2--z3; theta4 = angle(z4-z5); xucmin_serif(4, theta4, -1); xucmin_serif(6, theta4, 1); penlabels(range 1 thru 6); endchar; %% r %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "ran"; beginchar("r", xuclzw#+2.5xuclone#, xuclheight#, 0); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (0, 0); z1 = (1/3xuclone, xucllittle); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); draw z1--z2; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z3 = (2/3[z4, z5]); z6 = (1/3[z4, z5]); z9 = (7/4[z5, z4]); theta4 = angle(z4-z5); xucmin_serif(5, theta4, 1); xucmin_serif(9, theta4, -1); draw z2--z3; draw z9--z5; z7 = (x4+xuclone, y4); z8 = (x5+xuclone, y5); theta7 = angle(z7-z8); xucmin_serif(8, theta7, 1); draw z7--z8; draw z7--z6; penlabels(range 1 thru 9); endchar; %% s %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "san"; beginchar("s", xuclzw#+1.5xuclone#, xuclheight#, 0); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (0, 0); z1 = (1/3xuclone, xucllittle); z6 = (7/4[z2, z1]); theta1 = angle(z1-z2); xucmin_serif(6, theta1, -1); draw z6--z2; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z3 = (2/3[z4, z5]); theta4 = angle(z4-z5); xucmin_serif(4, theta4, -1); xucmin_serif(5, theta4, 1); draw z2--z3; draw z4--z5; penlabels(range 1 thru 6); endchar; %% w %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "we"; beginchar("w", xuclzw#+1.5xuclone#, xuclheight#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (0, 0); z1 = (1/3xuclone, xucllittle); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); draw z1--z2; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z3 = (2/3[z4, z5]); z7 = (5/3[z4, z5]); z6 = (7/4[z5, z4]); theta4 = angle(z4-z5); xucmin_serif(6, theta4, -1); xucmin_serif(7, theta4, 1); draw z2--z3; draw z6--z7; penlabels(range 1 thru 7); endchar; %% k %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "kan"; beginchar("k", xuclzw#+2.5xuclone#, xuclheight#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (0, 0); z1 = (1/3xuclone, xucllittle); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); draw z1--z2; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z3 = (2/3[z4, z5]); z9 = (1/3[z4, z5]); z10 = (5/3[z4, z5]); z6 = (7/4[z5, z4]); theta4 = angle(z4-z5); xucmin_serif(6, theta4, -1); xucmin_serif(10, theta4, 1); draw z2--z3; draw z6--z10; z7 = (x4+xuclone, y4); z8 = (x5+xuclone, y5); theta7 = angle(z7-z8); xucmin_serif(8, theta7, 1); draw z9--z7--z8; penlabels(range 1 thru 10); endchar; %% q %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % To be improved xucchar "q - qhar (oct035, TO BE IMPROVED)"; beginchar(oct"035", xuclzw#+2.5xuclone#, xucllittle#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (0, 0); z1 = (1/3xuclone, xucllittle); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); draw z1--z2; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z3 = (2/3[z4, z5]); z10 = (5/3[z4, z5]); theta4 = angle(z4-z5); xucmin_serif(3, theta4, -1); xucmin_serif(10, theta4, 1); draw z3--z10; z7 = (x4+xuclone, y4); z8 = (x5+xuclone, y5); z12 = (3/6[z7, z8]); theta7 = angle(z7-z8); xucmin_serif(7, theta7, -1); xucmin_serif(8, theta7, 1); draw z7--z8; % pickup xuc_penlx; draw z2--z12; penlabels(range 1 thru 12); endchar; %% b %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "ban"; beginchar("b", xuclzw#+2xuclone#, xucllittle#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (0, 0); z1 = (1/3xuclone, xucllittle); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); draw z1--z2; z4 = (x1+1.5xuclone, y1); z5 = (x2+1.5xuclone, y2); z3 = (2/3[z4, z5]); theta4 = angle(z4-z5); xucmin_serif(4, theta4, -1); x6 = .5[x2, x5]; y6 = -1xucllow; z7 = (x2, -.5xucllow); z8 = (.5[x3,x4], y7); draw z4--z5; pickup xuc_penlx; draw z2--z3; pickup xuc_penb; draw z5{-dir theta4}..{down}z8..{left}z6..{up}z7; penlabels(range 1 thru 8); endchar; %% g %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "gan"; beginchar("g", xuclzw#+2xuclone#, xucllittle#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z1 = (xuclone, xucllittle); z2 = (x1-1/3xuclone, 0); z3 = (1/3[z1, z2]); xucl_hakenlinks(1); theta1 = angle(z1-z2); xucmin_serif(2, theta1, 1); draw z1--z2; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); theta4 = angle(z4-z5); draw z3--z4--z5; x6 = .5[x2, x5]; y6 = -1xucllow; z7 = (.5x2, -.5xucllow); z8 = (x4, y7); z9 = (x3, -.2xucllow); pickup xuc_penb; draw z5{-dir theta4}..{down}z8..{left}z6..{up}z7..{right}z9; penlabels(range 1 thru 9); endchar; %% d %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "don"; beginchar("d", xuclzw#+2xuclone#, xuclheight#, 0); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z1 = (xuclone, 7/4xucllittle); z2 = (x1, 4/5xucllittle); z3 = (1/3[z1, z2]); xucl_hakenlinks(1); xucl_hakenrechts(3); z4 = (2x1, .5y2); z6 = (0, y4); z5 = (x2, 0); draw z1--z2; pickup xuc_penb; draw z2..tension 2..z4..tension 2..z5..tension 2..z6..tension 2..cycle; penlabels(range 1 thru 6); endchar; %% z %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "zen"; beginchar("z", xuclzw#+1.5xuclone#, xuclheight#, 0); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (.5xuclhalf, 0); z1 = (x2+1/3xuclone, xucllittle); z6 = (7/4[z2, z1]); z7 = (2/3[z2, z1]); draw z6--z2; xucl_hakenlinks(6); z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z3 = (2/3[z4, z5]); theta4 = angle(z4-z5); xucmin_serif(5, theta4, 1); draw z2--z3; draw z4--z5; draw z4--z7; penlabels(range 1 thru 7); endchar; %% he %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "he (long e, oct036)"; beginchar(oct"036", xuclzw#+1.8xuclone#, xuclheight#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (.5xuclhalf, 0); z1 = (x2+1/3xuclone, xucllittle); z6 = (7/4[z2, z1]); z3 = (2/3[z2, z1]); z7 = (5/3[z1, z2]); theta1 = angle(z1-z2); xucmin_serif(6, theta1, -1); xucmin_serif(7, theta1, 1); draw z6--z7; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); theta4 = angle(z4-z5); xucmin_serif(5, theta4, 1); draw z3--z4--z5; z9 = (7/4[z5, z4]); z8 = (5/4[z5, z4]); draw z8--z9; penlabels(range 1 thru 9); endchar; %% .k %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar ".k - .kan (oct003)"; beginchar(oct"023", xuclzw#+1.5xuclone#, xuclheight#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (0, 0); z1 = (1/3xuclone, xucllittle); z6 = (7/4[z2, z1]); z3 = (1/3[z1, z2]); theta1 = angle(z1-z2); xucmin_serif(6, theta1, -1); draw z6--z2; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z7 = (2/3[z4, z5]); z8 = (5/3[z4, z5]); theta4 = angle(z4-z5); xucmin_serif(8, theta4, 1); draw z3--z4--z8; draw z2--z7; penlabels(range 1 thru 8); endchar; %% m %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "man"; beginchar("m", xuclzw#+1.5xuclone#, xuclheight#, 0); pickup xuc_penl; z1 = (1.5xuclone, 7/4xucllittle); z2 = (x1, 4/5xucllittle); z3 = (2/3[z1, z2]); xucl_hakenlinks(1); z4 = (0, .5y2); z5 = (.5[x4, x1], 0); draw z1--z2; pickup xuc_penb; draw z2{down}..{left}z5..{up}z4..{z3-z4}z3; penlabels(range 1 thru 5); endchar; %% n %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % not yet very nice xucchar "nar (TO BE IMPROVED)"; beginchar("n", xuclzw#+1.5xuclone#, xuclheight#, 0); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (0, 0); z1 = (1/3xuclone, xucllittle); z6 = (12/8[z2, z1]); z3 = (1/3[z1, z2]); theta1 = angle(z1-z2); xucmin_serif(2, theta1, 1); z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z7 = (7/4[z5, z4]); z8 = (5/4[z5, z4]); draw z2--z6--z7--z8; theta4 = angle(z4-z5); xucmin_serif(5, theta4, 1); xucmin_serif(8, theta4, 1); draw z3--z4--z5; penlabels(range 1 thru 8); endchar; %% i1 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "i1 - short i, (Old Georgian), oct032"; beginchar(oct"032", xuclzw#+1.5xuclone#, xucllittle#, 0); pickup xuc_penb; numeric theta[]; % Winkel der Strichs z1 = (1.5xuclone, xucllittle); z3 = (xuclhalf, 2/3y1); z2 = (.5[x1, x3], 0); z4 = (x1, y1+.5py2); draw z1{down}..{left}z2..{dir 30}z3; xucmin_serif(4, 90, -1); penlabels(range 1 thru 3); endchar; %% ^s %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "^sin"; beginchar(oct"025", xuclzw#+1.5xuclone#, xucllittle#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (0, 0); z1 = (1/3xuclone, xucllittle); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); draw z1--z2; z4 = (x1+1xuclone, y1); z5 = (x2+1xuclone, y2); z3 = (2/3[z4, z5]); theta4 = angle(z4-z5); xucmin_serif(4, theta4, -1); x6 = .5[x2, x5]; y6 = -1xucllow; z7 = (x2, -.5xucllow); z8 = (x5, y7); draw z2--z3; draw z4--z5; pickup xuc_penb; draw z5{-dir theta4}..{down}z8..{left}z6..{up}z7; penlabels(range 1 thru 8); endchar; %% ^c %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "^cin"; beginchar(oct"021", xuclzw#+1.5xuclone#, xuclheight#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (.5xuclhalf, 0); z1 = (x2+1/3xuclone, xucllittle); z6 = (7/4[z2, z1]); z3 = (2/3[z2, z1]); z7 = (5/3[z1, z2]); theta1 = angle(z1-z2); xucmin_serif(6, theta1, -1); xucmin_serif(7, theta1, 1); draw z6--z7; z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); theta4 = angle(z4-z5); xucmin_serif(5, theta4, 1); draw z3--z4--z5; penlabels(range 1 thru 7); endchar; %% c %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "cin"; beginchar("c", xuclzw#+1.5xuclone#, xucllittle#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (.5xuclhalf, 0); z1 = (x2+1/3xuclone, xucllittle); z3 = (2/3[z2, z1]); z7 = (4/3[z1, z2]); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z6 = (x5, 5/3[y4, y5]); theta4 = angle(z4-z5); xucmin_serif(5, theta4, 1); draw z1--z7; draw z3--z4--z5; pickup xuc_penb; draw z7{down}..{right}z6; penlabels(range 1 thru 7); endchar; %% x %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "xan"; beginchar("x", xuclzw#+1.5xuclone#, xucllittle#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (.5xuclhalf, 0); z1 = (x2+1/3xuclone, xucllittle); z7 = (4/3[z1, z2]); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z6 = (x4, 5/3[y4, y5]); z3 = (2/3[z4, z5]); theta4 = angle(z4-z5); xucmin_serif(4, theta4, -1); xucmin_serif(5, theta4, 1); draw z1--z7; draw z3--z2; draw z4--z5; pickup xuc_penb; draw z7{down}..{right}z6; penlabels(range 1 thru 7); endchar; %% .t %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar ".t - .tar (.t oct026)"; beginchar(oct"026", xuclzw#+1.5xuclone#, xucllittle#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (.5xuclhalf, 0); z1 = (x2+1/3xuclone, xucllittle); z7 = (2/3[z2, z1]); z8 = (4/3[z1, z2]); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z6 = (x5, 5/3[y4, y5]); z3 = (2/3[z4, z5]); theta4 = angle(z4-z5); xucmin_serif(5, theta4, 1); draw z1--z8; draw z3--z2; draw z4--z5; draw z4--z7; pickup xuc_penb; draw z8{down}..{right}z6; penlabels(range 1 thru 8); endchar; %% .^c %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "^.c - ^.car (,c .+c oct034)"; beginchar(oct"034", xuclzw#+1.5xuclone#, xucllittle#, xucllow#); pickup xuc_penl; numeric theta[]; % Winkel der Strichs z2 = (.5xuclhalf, 0); z1 = (x2+1/3xuclone, xucllittle); z3 = (2/3[z2, z1]); z8 = (7/6[z1, z2]); theta1 = angle(z1-z2); xucmin_serif(1, theta1, -1); z4 = (x1+xuclone, y1); z5 = (x2+xuclone, y2); z6 = (x5, 4/3[y4, y5]); z7 = (x2, 5/3[y4, y5]); theta4 = angle(z4-z5); xucmin_serif(5, theta4, 1); draw z1--z8; draw z3--z4--z5; pickup xuc_penb; draw z8{right}..{down}z6..{left}z7; penlabels(range 1 thru 8); endchar; %% d^z %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% xucchar "d^zan (+j oct030)"; beginchar(oct"030", xuclzw#+2xuclone#, xucllittle#, xucllow#); pickup xuc_penl; z1 = (xuclone, xucllittle); xucl_hakenlinks(1); z2 = (2xuclone, -1/3xucllittle); z3 = (x1, 2/3xucllittle); z4 = (.75[x1,x2], y1); z5 = (x2, y3); z6 = (x1, -2/3xucllittle); pickup xuc_penb; draw z1..z3..z2; draw z3..{right}z4..{down}z5..{right}z6; penlabels(range 1 thru 7); endchar;