% Mxedruli FONT `mxedfont.mf' % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Designed by Johannes Heinecke % % Sprachwissenschaftliches Seminar % % Universit"at Heidelberg % % 69117 Heidelberg % % % % Please send any improvements, corrections, suggestions, enhancements etc % % to the Author! % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%% Character Definitions: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% a %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "a"; beginchar("a", mxzw#+mxone#, mxlittle#, 0); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, mxthird); z2 = (mxhalf, 0); z3 = (mxone, y1); z4 = (x2, mxlittle); draw z1{down}..z2{right}..{up}z3..{up}z4; penlabels(range 1 thru 4); endchar; %% b %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "b"; beginchar("b", mxzw#+mxone#, mxheight#, 0); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, .5mxlittle); z2 = (mxhalf, 0); z3 = (mxone, y1); z4 = (x2, mxlittle); draw z1{down}..{right}z2..{up}z3..{left}z4..cycle; z5 = (x3, mxheight); z6 = (0, y5); z7 = (0, y5-.3mxtop); draw z4{right}..{up}z5; draw z5--z6--z7; penlabels(range 1 thru 7); endchar; %% c %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "c"; beginchar("c", mxzw#+mxone#+.5mxhalf#, mxlittle#, mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (.5mxhalf, mxlittle); z2 = (0, .5mxthird); z3 = (mxhalf, -mxlow); z4 = (mxone+.5mxhalf, -.4mxlow); z5 = (x4-mxhalf, y2); draw z1..{down}z2..{right}z3..{up}z4..{left}z5; z6 = (x4, 1.2mxthird); z7 = (x5, y1); draw z5{right}..{up}z6..{dir 135}z7; penlabels(range 1 thru 7); endchar; %% .c %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar ".c (oct000)"; beginchar(oct"000", mxzw#+mxone#+mxhalf#, mxheight#, mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, mxheight-.5mxtop); z2 = (.5mxone+.5mxhalf, -mxlow); z3 = (.4[z1,z2]); % z4 = (mxone+mxhalf, .5mxlittle); z4 = (mxone+mxhalf, y3); x5 = .5[x3,x4]; y5 = y4+mxthird; z6 = (.5[x1, x7], mxheight); z7 = (x2, y1); z8 = (.5[x7, x9], y6); z9 = (x4, y1); draw z1--z2--z4..{left}z5..{(z2-z1)}z3; draw z1..{right}z6..{down}z7; draw z7..{right}z8..{down}z9; penlabels(range 1 thru 7); endchar; %% ^c %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "^c (+c, oct001)"; beginchar(oct"001", mxzw#+mxone#, mxheight#, 0); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, 0); z2 = (0, .5mxlittle); z3 = (mxhalf, mxlittle); z4 = (mxone, y2); z5 = (mxone-mxfeet, 0); draw z1..{up}z2..{right}z3..{down}z4..z5; z6 = (0, mxheight-.05mxtop); z9 = (mxhalf, mxheight); z7 = (x4-.5mxhalf,mxheight-.25mxtop); z10 = (x9, mxheight-.5mxtop); z8 = (0, mxheight-.45mxtop); draw z2--z6; draw z6..{right}z9..{down}z7..{left}z10..z8; penlabels(range 1 thru 8); endchar; %% ^.c %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "^.c (,c .+c y)"; beginchar("y", mxzw#+mxhalf#+mxone#, mxheight#, mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (.5mxhalf, 0); z2 = (0, -.5mxlow); z3 = (mxhalf, -mxlow); z4 = (mxone, y2); z5 = (.75mxone, mxthird); z6 = (x5, mxheight); z7 = (x1, mxheight-.5mxtop); draw z1{dir -135}..{down}z2..{right}z3..{up}z4..{up}z5--z6--z7; z8 = (x5, .5mxlittle); % z10 and z11 should be 45 degree NE/SE z9 = (x1, y8); z10 = (x5+.7mxhalf, y5+.7mxhalf); z11 = (x5+.7mxhalf, y5-.7mxhalf); draw z10--z8..{up}z9..z8--z11; penlabels(range 1 thru 11); endchar; %% d %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "d"; beginchar("d", mxzw#+2mxone#, mxlittle#, mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (mxone, .5mxlittle); z2 = (mxone+mxhalf, 0); z3 = (mxone+mxone, y1); z4 = (x2, mxlittle); z5 = (x1, mxmiddle); draw z1{down}..{right}z2..{up}z3..{left}z4..{down}z5..cycle; z6 = (mxhalf, y4); z7 = (0, y1); z8 = (mxfeet, 0); draw z5{up}..{left}z6..{down}z7..z8; z9 = (x3, -mxlow); draw z8..{dir -50}z9; penlabels(range 1 thru 10); endchar; %% e %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "e"; beginchar("e", mxzw#+mxone#, mxlittle#, mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, -.5mxlow); z2 = (mxhalf, -mxlow); z3 = (mxone, 0); z4 = (x3, mxmiddle); z5 = (x2, mxlittle); z6 = (0, y4); draw z1{down}..{right}z2..{up}z3--z4..{left}z5..z6; penlabels(range 1 thru 6); endchar; %% g %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "g"; beginchar("g", mxzw#+mxone#, mxlittle#, mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, -.5mxlow); z2 = (mxhalf, -mxlow); z3 = (mxone, y1); z4 = (x2, 0); draw z1{down}..{right}z2..{up}z3..{left}z4..cycle; z5 = (x3-.3mxhalf, mxmiddle); z6 = (x4, mxlittle); z7 = (.3mxhalf, y5); draw z4{right}..{up}z5..{left}z6..{down}z7; penlabels(range 1 thru 7); endchar; %% .g %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar ".g (oct002)"; beginchar(oct"002", mxzw#+2mxone#, mxlittle#, mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (mxfeet, 0); z2 = (0, .5mxlittle); z3 = (mxhalf, mxlittle); z4 = (mxone, mxmiddle); z5 = (mxone+mxhalf, y3); z6 = (2mxone, y2); z7 = (2mxone-mxfeet, 0); z8 = (x6, -mxlow); draw z1..{up}z2..{right}z3..{down}z4; draw z4{up}..{right}z5..{down}z6..z7; draw z1..{dir -50}z8; penlabels(range 1 thru 8); endchar; %% h %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "h"; beginchar("h", mxzw#+mxone#, mxheight#, 0); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, mxthird); z2 = (mxhalf, 0); z3 = (mxone, .5mxlittle); z4 = (.75mxone, 5/6mxlittle); z5 = (.75mxhalf, y4); draw z1{dir -80}..{right}z2..{up}z3..{left}z4--z5; z6 = (x3, mxlittle); z7 = (x4, 7/6mxlittle); z8 = (x5, y7); draw z4..{up}z6..{left}z7--z8; z9 = (x6, 8/6mxlittle); z10= (0, mxheight); draw z7..{up}z9..{dir 110}z10; penlabels(range 1 thru 10); endchar; %% i %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "i"; beginchar("i", mxzw#+mxone#, mxlittle#, 0); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (mxfeet, 0); z2 = (0, .5mxlittle); z3 = (mxhalf, mxlittle); z4 = (mxone, y2); z5 = (mxone-mxfeet, 0); draw z1..{up}z2..{right}z3..{down}z4..z5; penlabels(range 1 thru 5); endchar; %% ^dz %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "^dz/^j (oct010)"; beginchar(oct"010", mxzw#+1.75mxone#, mxlittle#, mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, -.5mxlow); z3 = (1.5mxhalf, y1); z2 = (.5[x1,x3], -mxlow); z4 = (1.2mxhalf, 0); z5 = (1.75mxone, mxlittle); draw z1{down}..{right}z2..{up}z3..z4; draw z4--z5; z6 = (.3mxhalf, 5/6mxlittle); z7 = (mxhalf, mxlittle); z8 = (1.5mxone, 0); z9 = (x5, .5mxthird); draw z6{up}..{right}z7..{right}z8..{dir 45}z9; penlabels(range 1 thru 9); endchar; %% dz %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "dz (j)"; beginchar("j", mxzw#+mxone#, mxheight#, 0); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, .5mxlittle); z2 = (mxhalf, 0); z3 = (mxone, y1); z4 = (x2, mxlittle); draw z1{down}..{right}z2..{up}z3..{left}z4..cycle; z5 = (x3, mxheight); draw z3--z5; penlabels(range 1 thru 5); endchar; %% k %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "k"; beginchar("k", mxzw#+mxone#, mxheight#, mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, mxthird); z2 = (mxhalf, 2mxthird); z3 = (mxone, 1.5mxthird); z4 = (x3, -.5mxlow); z5 = (x2, -mxlow); z6 = (x1, y4); z7 = (x3, mxheight); z8 = z7 - (mxhalf, mxthird); draw z1..z2..{down}z3--z4{down}..{left}z5..{up}z6; draw z3--z7--z8; penlabels(range 1 thru 8); endchar; %% .k %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar ".k (oct003)"; beginchar(oct"003", mxzw#+mxone#, mxlittle#, 1.5mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, -mxlow); z2 = (mxhalf, -1.5mxlow); z3 = (mxone, -.75mxlow); z4 = (x2, 0); z5 = (0, -1/6mxlittle); draw z1{down}..{right}z2..{up}z3..{left}z4..z5; z6 = (x3, .75mxthird); z7 = (x6, mxlittle); draw z4{right}..{up}z6--z7; penlabels(range 1 thru 7); endchar; %% l %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "l"; beginchar("l", mxzw#+2.4mxone#, mxlittle#, mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (mxfeet, 0); z2 = (0, .5mxlittle); z3 = (.8mxhalf, mxlittle); z4 = (.8mxone, mxmiddle); z9 = (.8mxone+.8mxhalf, y3); z10= (1.6mxone, y4); z5 = (1.6mxone+.8mxhalf, y3); z6 = (2.4mxone, y2); z7 = (2.4mxone-mxfeet, 0); z8 = (x6, -mxlow); draw z1..{up}z2..{right}z3..{down}z4; draw z4{up}..{right}z9..{down}z10; draw z10{up}..{right}z5..{down}z6..z7; draw z1..{dir -50}z8; penlabels(range 1 thru 10); endchar; %% m %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "m"; beginchar("m", mxzw#+mxone#, mxheight#, 0); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, .5mxlittle); z2 = (mxhalf, 0); z3 = (mxone, y1); z4 = (x2, mxlittle); draw z1{down}..{right}z2..{up}z3..{left}z4..cycle; z5 = (x3, mxheight-.5mxtop); z6 = (x4, mxheight); z7 = (0, y5); draw z3..z5{up}..{left}z6..{down}z7; penlabels(range 1 thru 7); endchar; %% n %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "n"; beginchar("n", mxzw#+mxone#, mxheight#, 0); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, .5mxlittle); z2 = (mxhalf, 0); z3 = (mxone, y1); z4 = (x2, mxlittle); draw z1{down}..{right}z2..{up}z3..{left}z4..cycle; z5 = (0, mxheight-.25mxtop); z6 = (.5mxhalf, mxheight); z7 = (x3, y6+.2mxtop); draw z1..z5{up}..{right}z6..{dir 75}z7; penlabels(range 1 thru 7); endchar; %% o %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "o"; beginchar("o", mxzw#+2mxone#, mxlittle#, 0); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (mxfeet, 0); z2 = (0, .5mxlittle); z3 = (mxhalf, mxlittle); z4 = (mxone, mxmiddle); z5 = (mxone+mxhalf, y3); z6 = (2mxone, y2); z7 = (2mxone-mxfeet, 0); draw z1..{up}z2..{right}z3..{down}z4; draw z4{up}..{right}z5..{down}z6..z7; penlabels(range 1 thru 7); endchar; %% p %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "p"; beginchar("p", mxzw#+2mxone#, mxlittle#, mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, .5mxlittle); z2 = (mxhalf, 0); z3 = (mxone, y1); z4 = (x3, mxmiddle); z5 = (x2, mxlittle); draw z1{down}..{right}z2..{up}z3..z4{up}..{left}z5..cycle; z6 = (mxhalf+mxone, y5); z7 = (2mxone, y1); z8 = (x6, 0); z9 = (x7, -.5mxlow); z11= (.75mxone, y9); z10= (.5[x11,x9], -mxlow); draw z4{up}..{right}z6..{down}z7..{left}z8; draw z8{right}..{down}z9..{left}z10..{dir 70}z11; penlabels(range 1 thru 11); endchar; %% .p %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar ".p (oct004)"; beginchar(oct"004", mxzw#+mxone#, mxthird#+mxheight#, 0); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, mxthird); z2 = (mxhalf, 0); z3 = (mxone, .5mxlittle); z4 = (x2, mxlittle); z5 = (x1, y4); draw z1{dir -80}..{right}z2..{up}z3..{left}z4--z5; z6 = (x3, mxlittle+.4mxtop); z7 = (x1, mxthird+mxheight); draw z4..{up}z6..{dir 110}z7; penlabels(range 1 thru 7); endchar; %% q %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "q"; beginchar("q", mxzw#+mxone#, mxlittle#, mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (mxfeet, mxlittle); z2 = (0, .5mxlittle); z3 = (mxhalf, 0); z4 = (mxone, y2); z5 = (x4 - mxfeet, y1); draw z1..{down}z2..{right}z3..{up}z4..z5; z6 = (x4, -.5mxlow); z7 = (x3, -mxlow); z8 = (x2, y6); draw z4--z6..{left}z7..{up}z8; penlabels(range 1 thru 8); endchar; %% r %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "r"; beginchar("r", mxzw#+2mxone#, mxthird#+mxheight#, 0); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (mxfeet, 0); z2 = (0, .5mxlittle); z3 = (mxhalf, mxlittle); z4 = (mxone, mxmiddle); z5 = (mxone+mxhalf, y3); z6 = (2mxone, y2); z7 = (2mxone-mxfeet, 0); z8 = (x6, mxheight+mxthird); draw z1..{up}z2..{right}z3..{down}z4; draw z4{up}..{right}z5..{down}z6..z7; draw z2{up}..{dir 70}z8; penlabels(range 1 thru 8); endchar; %% s %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "s"; beginchar("s", mxzw#+mxone#, mxheight#, 0); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z5 = (0, mxheight); z1 = (0, .5mxlittle); z2 = (mxhalf, 0); z3 = (mxone, y1); z4 = (1/3mxone, mxlittle); draw z5--z1{down}..{right}z2..{up}z3..{up}z4; penlabels(range 1 thru 5); endchar; %% ^s %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "^s (+s, oct005)"; beginchar(oct"005", mxzw#+mxhalf#+mxone#, mxheight#, 0); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (mxhalf, .5mxlittle); z2 = (mxhalf+mxhalf, 0); z3 = (mxone+mxhalf, y1); z4 = (x2, mxlittle); draw z1{down}..{right}z2..{up}z3..{left}z4..cycle; z5 = (x3, mxheight-.5mxtop); z6 = (x4, mxheight); z7 = (mxhalf, y5); draw z3..z5{up}..{left}z6..{down}z7; z8 = (0, y6); draw z7{up}..{left}z8; penlabels(range 1 thru 8); endchar; %% t %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "t"; beginchar("t", mxzw#+2mxone#, mxlittle#, 0); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, .5mxlittle); z2 = (mxhalf, 0); z3 = (mxone, y1); z4 = (x3, mxmiddle); z5 = (x2, mxlittle); draw z1{down}..{right}z2..{up}z3..z4{up}..{left}z5..cycle; z6 = (mxhalf+mxone, y5); z7 = (2mxone, y1); z8 = (x7-.mxfeet, 0); draw z4{up}..{right}z6..{down}z7..z8; penlabels(range 1 thru 8); endchar; %% .t %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar ".t (oct006)"; beginchar(oct"006", mxzw#+mxone#+mxhalf#, mxheight#, mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, .3mxlittle); z2 = (.5mxhalf+.5mxone, -mxlow); z3 = (mxone+mxhalf, y1); z4 = (x2, mxlittle); draw z1{down}..{right}z2..{up}z3..{left}z4..cycle; z5 = (x4, y4-1.2mxthird); z6 = (x4, y4+1.2mxthird); draw z4{left}..{right}z5..cycle; draw z4{left}..{right}z6..cycle; penlabels(range 1 thru 6); endchar; %% u %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "u"; beginchar("u", mxzw#+2.4mxone#, mxlittle#, mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, mxlittle); z2 = (x1, mxthird); z3 = (.8mxone, y2); z4 = (x3, mxmiddle); z5 = (.8mxone+.8mxhalf, y1); z6 = (1.6mxone, y4); z7 = (x6, 0); draw z1..{down}z2..{up}z3--z4..{right}z5..{down}z6--z7; z8 = (1.6mxone+.8mxhalf, y5); z9 = (2.4mxone, y4); z10= (x9, 0); z11= (x6, -mxlow); z12= (x3, -.5mxlow); draw z6{dir 75}..{right}z8..{down}z9--z10..{left}z11..{up}z12; penlabels(range 1 thru 12); endchar; %% v %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "v"; beginchar("v", mxzw#+mxone#, mxlittle#, 1.5mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, mxmiddle); z2 = (mxhalf, mxlittle); z3 = (mxone, .5mxlittle); z4 = (x2, 0); % z5 = (0, 1/6mxlittle); draw z1{up}..{right}z2..{down}z3..{left}z4; % ..z5; z6 = (x3, -.5mxlow); z7 = (x2, -1.5mxlow); z8 = (0, -mxlow); draw z4{right}..{down}z6..{left}z7..{up}z8; penlabels(range 1 thru 7); endchar; %% x %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "x"; beginchar("x", mxzw#+mxone#, mxheight#, 0); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, .5mxlittle); z2 = (mxhalf, 0); z3 = (mxone, y1); z4 = (x2, 5/6mxlittle); z6 = (x1, y4); draw z1{down}..{right}z2..{up}z3..{left}z4..z6; z5 = (0, mxheight); draw z1--z5; z7 = z6 +(1.8mxu, 1.8mxu); draw z6--z7; penlabels(range 1 thru 7); endchar; %% z %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "z"; beginchar("z", mxzw#+2mxone#, mxheight#, 0); % may be this letter is to wide! if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (mxone, .5mxlittle); z2 = (mxone+mxhalf, 0); z3 = (mxone+mxone, y1); z4 = (x2, 5/6mxlittle); z6 = (x1, y4); draw z1{down}..{right}z2..{up}z3..{left}z4..z6; z5 = (mxone, mxheight-.5mxtop); z11= (x5, mxheight); z8 = (mxhalf, y11); z9 = (0, y5); z10 =(x8, mxheight-mxtop); draw z1--z11..{left}z8..{down}z9..{right}z10..{up}z5; z7 = z6 + (1.8mxu, 1.8mxu); draw z6--z7; penlabels(range 1 thru 10); endchar; %% ^z %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mxedchar "^z (+z, oct007)"; beginchar(oct"007", mxzw#+mxone#, mxlittle#, mxlow#); if known cmbase: adjust_fit(0,0); fi pickup mxed_pen; z1 = (0, mxthird); z2 = (.5mxhalf, 0); z3 = (mxhalf, y1); z4 = (mxone, mxlittle); draw z1{down}..{right}z2..{up}z3..{up}z4; z5 = (x4, -.5mxlow); z6 = (x3, -mxlow); z7 = (0, y5); draw z4--z5..{left}z6..{up}z7; penlabels(range 1 thru 7); endchar; endinput;