%		itgeorgian.mf
% This font was designed by me, Alan M Stanier	( alanessex.ac.uk ),
% at Essex University Computer Service, Colchester, Essex CO4 3EA. England.
% It isn't very good, but it serves the purpose for which I designed it.
% I have the copyright, but please feel free to use in in any way you want.
% No charge, but if you're really impressed, leave me an extremely large bequest in your will.
% If you make significant additions or improvements to the font, please email me an updated version

% The font is based on georgian, but recoded to match that of mxed10,
% and characters given an italic slant.

mg:=1.0;	% CHANGE THIS TO GET DIFFERENT SIZES OF FONT (font size = 10*mg pt)

mode_setup;
xpensize#:=mg*0.8pt;
ypensize#:=mg*0.2pt;
lheight#:=mg*7.5pt#;
sheight#:=mg*4.7pt#;
uheight#:=mg*2.7pt#;
define_pixels(lheight,sheight,uheight);
def getpen = pickup pencircle xscaled xpensize# yscaled ypensize# rotated 30 enddef;

beginchar(97,0.6lheight#,sheight#,0);
getpen;
draw flex((mg*10.83,mg*17.5),(mg*8.17,mg*14),(mg*11,mg*12)) & (mg*11,mg*12) .. (mg*13.67,mg*14) &
	flex((mg*13.67,mg*14),(mg*16.33,mg*13),(mg*15.5,mg*7.5)) & flex((mg*15.5,mg*7.5),(mg*7.5,0),(mg*4.5,mg*7.5));
endchar;

beginchar(98,0.6lheight#,lheight#,0);
getpen;
draw (mg*11.33,mg*25) -- (mg*12.17,mg*27.5) -- (mg*21.17,mg*27.5) -- (mg*13.33,mg*17.5);
draw (mg*13.33,mg*17.5) .. (mg*4.92,mg*8.75) .. (mg*7.5,0) .. (mg*15.92,mg*8.75) .. (mg*13.33,mg*17.5) .. cycle;
endchar;

beginchar(103,0.6lheight#,sheight#,uheight#);
getpen;
draw (mg*10,0) .. (mg*5,0) .. (mg*0.33,mg*-5) .. (mg*4.17,mg*-10) .. (mg*11.33,mg*-5) .. (mg*10,0) -- (mg*13.33,mg*10) &
	flex((mg*13.33,mg*10),(mg*13.33,mg*17.5),(mg*8.33,mg*10));
endchar;

beginchar(100,0.8lheight#,sheight#,uheight#);
getpen;
draw (mg*12.33,mg*13) .. (mg*9.67,mg*5) .. (mg*13,0) .. (mg*20.67,mg*8) .. (mg*18.83,mg*17.5) .. (mg*12.33,mg*13) ..
	flex((mg*12.33,mg*13),(mg*10.67,mg*17),(mg*6.33,mg*13)) & (mg*6.33,mg*13) -- (mg*2,0) -- (mg*11.67,mg*-10);
endchar;

beginchar(101,0.6lheight#,sheight#,uheight#);
getpen;
draw flex((mg*6.17,mg*12.5),(mg*13.33,mg*17.5),(mg*17.17,mg*12.5)) & (mg*17.17,mg*12.5) -- (mg*11.33,mg*-5) &
	flex((mg*11.33,mg*-5),(mg*4.17,mg*-10),(mg*0.33,mg*-5));
endchar;

beginchar(118,0.6lheight#,sheight#,uheight#);
getpen;
draw (mg*6.17,mg*12.5) .. (mg*12.83,mg*17.5) & flex((mg*12.83,mg*17.5),(mg*13.67,mg*5),(mg*5,0)) & (mg*5,0) .. (mg*10,0) ..
	(mg*6.67,mg*-10) .. (mg*1.67,mg*-10) .. (mg*0.33,mg*-5);
endchar;

beginchar(122,0.6lheight#,lheight#,0);
getpen;
draw (mg*17.5,mg*22.5) .. (mg*13.33,mg*25) .. (mg*16.67,mg*27.5) .. (mg*17.5,mg*22.5) .. cycle;
draw (mg*17.5,mg*22.5) -- (mg*13.33,mg*17.5);
draw (mg*13.33,mg*17.5) .. (mg*4.92,mg*8.75) .. (mg*7.5,0) .. (mg*15.92,mg*8.75) .. (mg*13.33,mg*17.5) .. cycle;
endchar;

beginchar(116,0.8lheight#,sheight#,0);
getpen;
draw (mg*15,mg*12) .. (mg*13.33,mg*17.5) .. (mg*4.67,mg*8) .. (mg*7.5,0) .. (mg*12.67,mg*5) .. (mg*15,mg*12) &
	flex((mg*15,mg*12),(mg*20.67,mg*17),(mg*21.33,mg*10)) .. (mg*21.33,mg*10) .. (mg*18,0);
endchar;

beginchar(105,0.6lheight#,sheight#,0);
getpen;
draw (mg*2,0) -- (mg*6,mg*12) & flex((mg*6,mg*12),(mg*13.33,mg*17.5),(mg*17,mg*12)) & (mg*17,mg*12) -- (mg*13,0);
endchar;

beginchar(3,0.6lheight#,sheight#,uheight#);
getpen;
draw flex((mg*10.83,mg*17.5),(mg*13.67,mg*5),(mg*5,0)) & (mg*5,0) .. (mg*10,0) .. (mg*6.67,mg*-10) .. (mg*1.67,mg*-10)
.. (mg*0.33,mg*-5);
endchar;

beginchar(108,1.1lheight#,lheight#,uheight#);
getpen;
draw (mg*28,0) -- (mg*32.33,mg*13) & flex((mg*32.33,mg*13),(mg*29.67,mg*17),(mg*22.67,mg*11)) &
	flex((mg*22.67,mg*11),(mg*20.67,mg*17),(mg*14.67,mg*11)) & flex((mg*14.67,mg*11),(mg*12.67,mg*17),(mg*6.67,mg*11))
	.. (mg*6.67,mg*11) -- (mg*3,0) -- (mg*16.67,mg*-10);
endchar;

beginchar(109,0.6lheight#,lheight#,0);
getpen;
draw flex((mg*9.5,mg*22.5),(mg*16.67,mg*27.5),(mg*20.5,mg*22.5)) & (mg*20.5,mg*22.5) -- (mg*16.33,mg*10) .. (mg*7.5,0)
	.. (mg*5.33,mg*10) .. (mg*13.33,mg*17.5) .. (mg*18.33,mg*16);
endchar;

beginchar(110,0.6lheight#,lheight#,0);
getpen;
draw (mg*22.17,mg*27.5) -- (mg*11.17,mg*27.5) .. (mg*5.33,mg*10) .. (mg*7.5,0) .. (mg*16.33,mg*10) .. (mg*13.33,mg*17.5) ..
	(mg*7.33,mg*16);
endchar;

beginchar(111,0.8lheight#,sheight#,0);
getpen;
draw (mg*2,0) -- (mg*6.17,mg*12.5) & flex((mg*6.17,mg*12.5),(mg*11.83,mg*17.5),(mg*14.17,mg*12.5)) &
	flex((mg*14.17,mg*12.5),(mg*19.83,mg*17.5),(mg*22.17,mg*12.5)) & (mg*22.17,mg*12.5) .. (mg*18,0);
endchar;

beginchar(4,0.6lheight#,lheight#,0);
getpen;
draw (mg*3.33,mg*4) .. (mg*7.5,0) .. (mg*16.33,mg*10) ..
	(mg*13.33,mg*17.5){left} & flex((mg*13.33,mg*17.5),(mg*18.5,mg*22.5),(mg*13.17,mg*27.5));
endchar;

beginchar(7,0.6lheight#,sheight#,uheight#);
getpen;
draw flex((mg*3.67,mg*5),(mg*3.5,0),(mg*6.67,mg*5)) .. (mg*6.67,mg*5) -- (mg*18.83,mg*17.5) -- (mg*11.33,mg*-5) &
	flex((mg*11.33,mg*-5),(mg*4.17,mg*-10),(mg*0.33,mg*-5));
endchar;

beginchar(114,0.8lheight#,lheight#,0);
getpen;
draw (mg*2,0) -- (mg*6.17,mg*12.5) & flex((mg*6.17,mg*12.5),(mg*11.83,mg*17.5),(mg*14.17,mg*12.5)) &
	flex((mg*14.17,mg*12.5),(mg*19.83,mg*17.5),(mg*22.17,mg*12.5)) & (mg*22.17,mg*12.5) .. (mg*18,0);
draw (mg*11.83,mg*17.5) -- (mg*22.17,mg*27.5);
endchar;

beginchar(115,0.6lheight#,sheight#,0);
getpen;
draw (mg*11.17,mg*27.5) -- (mg*5.33,mg*10) .. (mg*7.5,0) .. (mg*16.33,mg*10) .. (mg*11.67,mg*14);
endchar;

beginchar(6,0.8lheight#,lheight#,uheight#);
getpen;
draw (mg*9.5,mg*22.5) -- (mg*2,0) & flex((mg*2,0),(mg*7.33,mg*-8),(mg*18,0)) & flex((mg*18,0),(mg*16.33,mg*10),(mg*8,0)) &
	flex((mg*8,0),(mg*10,mg*-3),(mg*14,0));
draw (mg*15.83,mg*10) .. (mg*23.42,mg*16.25) .. (mg*20,mg*22.5) .. (mg*12.42,mg*16.25) .. (mg*15.83,mg*10) .. cycle;
endchar;

beginchar(117,0.6lheight#,sheight#,uheight#);
getpen;
draw flex((mg*0.5,mg*-4.5),(mg*4.17,mg*-10),(mg*11.5,mg*-4.5)) & (mg*11.5,mg*-4.5) -- (mg*17.33,mg*13) &
	flex((mg*17.33,mg*13),(mg*14.67,mg*17),(mg*9.33,mg*13)) & (mg*9.33,mg*13) -- (mg*6.67,mg*5);
draw (mg*9.33,mg*13) -- (mg*7.33,mg*16);
endchar;

beginchar(112,0.8.lheight#,sheight#,uheight#);
getpen;
draw flex((mg*0.33,mg*-5),(mg*6.67,mg*-10),(mg*16.33,mg*-5)) & flex((mg*16.33,mg*-5),(mg*15.33,mg),(mg*12,0),(mg*10.33,mg*4))
	.. (mg*10.33,mg*4) -- (mg*13.33,mg*13) & flex((mg*13.33,mg*13),(mg*19.33,mg*17.5),(mg*22.33,mg*13)) ..
	(mg*22.33,mg*13) -- (mg*19.33,mg*4) .. (mg*12,0);
draw flex((mg*13.33,mg*13),(mg*11,mg*16.5),(mg*6.33,mg*13)) .. (mg*6.33,mg*13) -- (mg*3.33,mg*4) &
	flex((mg*3.33,mg*4),(mg*5.5,0),(mg*10.33,mg*4));
endchar;

beginchar(107,0.6lheight#,lheight#,uheight#);
getpen;
draw flex((mg*0.5,mg*-4.5),(mg*4.17,mg*-10),(mg*11.5,mg*-4.5)) .. (mg*14.5,mg*4.5) -- (mg*22.17,mg*27.5) -- (mg*16.33,mg*25);
draw flex((mg*6,mg*12),(mg*13.33,mg*17.5),(mg*17,mg*12));
endchar;

beginchar(2,0.8lheight#,lheight#,uheight#);
getpen;
draw (mg*18,0) -- (mg*21.67,mg*11) & flex((mg*21.67,mg*11),(mg*19.67,mg*17),(mg*13.67,mg*11)) &
	flex((mg*13.67,mg*11),(mg*11.67,mg*17),(mg*5.67,mg*11)) .. (mg*5.67,mg*11) -- (mg*2,0) -- (mg*11.67,mg*-10);
endchar;

beginchar(113,0.6lheight#,sheight#,uheight#);
getpen;
draw (mg*7.83,mg*17.5) -- (mg*3.5,mg*4.5) & flex((mg*3.5,mg*4.5),(mg*7.5,0),(mg*14.5,mg*4.5)) ..
	(mg*14.5,mg*4.5) -- (mg*18.83,mg*17.5);
draw (mg*14.5,mg*4.5) -- (mg*11.5,mg*-4.5) & flex((mg*11.5,mg*-4.5),(mg*4.17,mg*-10),(mg*0.5,mg*-4.5));
endchar;

beginchar(5,0.6lheight#,sheight#,0);
getpen;
draw (mg*15.17,mg*8) .. (mg*13.33,mg*17.5) .. (mg*4.67,mg*8) .. (mg*7.5,0) .. (mg*15.67,mg*8) -- (mg*20.5,mg*22.5) &
	flex((mg*20.5,mg*22.5),(mg*19.42,mg*27.5),(mg*15,mg*22.5)) & flex((mg*15,mg*22.5),(mg*13.92,mg*27.5),(mg*9.5,mg*22.5));
endchar;

beginchar(1,0.6lheight#,lheight#,0);
getpen;
draw (mg*2,0) -- (mg*6,mg*12) & flex((mg*6,mg*12),(mg*13.33,mg*17.5),(mg*17,mg*12)) & (mg*17,mg*12) -- (mg*13,0);
draw (mg*6,mg*12) -- (mg*10.33,mg*25) & flex((mg*10.33,mg*25),(mg*13.67,mg*27.5),(mg*15.33,mg*25)) .. (mg*15.33,mg*25)
	.. (mg*8.67,mg*20);
endchar;

beginchar(99,0.6lheight#,sheight#,uheight#);
getpen;
draw (mg*7.83,mg*17.5) -- (mg*0.5,mg*-4.5) & flex((mg*0.5,mg*-4.5),(mg*4.17,mg*-10),(mg*11.5,mg*-4.5)) &
	flex((mg*11.5,mg*-4.5),(mg*8.67,mg*-1),(mg*5,0));
draw flex((mg*5,0),(mg*16.33,mg*10),(mg*16.17,mg*12.5)) .. (mg*16.17,mg*12.5) -- (mg*7.83,mg*17.5);
endchar;

beginchar(106,0.6lheight#,sheight#,0);
getpen;
draw (mg*27.5,mg*27.5) -- (mg*16.33,mg*10) .. (mg*7.5,0) .. (mg*5.33,mg*10) .. (mg*13.33,mg*17.5) .. (mg*18.33,mg*16);
endchar;

beginchar(0,0.6lheight#,lheight#,uheight#);
getpen;
draw flex((mg*21.08,mg*24.25),(mg*19.42,mg*27.5),(mg*15.58,mg*24.25)) &
	flex((mg*15.58,mg*24.25),(mg*14.33,mg*27.25),(mg*10.08,mg*24.25)) .. (mg*10.08,mg*24.25) -- (mg*-1.33,mg*-10)
	-- (mg*16.33,mg*10) & flex((mg*16.33,mg*10),(mg*12.67,mg*15.5),(mg*5.33,mg*10));
endchar;

beginchar(121,0.6lheight#,lheight#,uheight#);
getpen;
draw (mg*12,mg*24) -- (mg*16.67,mg*27.5) -- (mg*7.5,0) .. (mg*11.33,mg*-5) .. (mg*4.17,mg*-10) .. (mg*0.33,mg*-5);
draw (mg*13.33,mg*4) -- (mg*7.33,mg*13) -- (mg*4.33,mg*4) -- (mg*16.33,mg*13);
endchar;

beginchar(120,0.6lheight#,lheight#,0);
getpen;
draw (mg*11.17,mg*27.5) .. (mg*5.33,mg*10) .. (mg*7.5,0) .. (mg*16.33,mg*10) .. (mg*13.33,mg*17.5) ..
	(mg*7.33,mg*16) -- (mg*15.33,mg*22);
endchar;

beginchar(8,0.6lheight#,sheight#,uheight#);
getpen;
draw flex((mg*17.83,mg*17.5),(mg*18.33,mg*16),(mg*2.33,mg*-5)) & flex((mg*2.33,mg*-5),(mg*2.5,mg*-7.5),(mg*-1.33,mg*-10));
draw flex((mg*7.33,mg*16),(mg*8.83,mg*17.5),(mg*8.67,mg*-10),(mg*10,mg*-9));
endchar;

beginchar(104,0.6lheight#,lheight#,0);
getpen;
draw (mg*3.67,mg*5) .. (mg*7.5,0) .. (mg*14.67,mg*5) .. (mg*13,mg*6) -- (mg*19.33,mg*25) -- (mg*11.17,mg*27.5);
draw (mg*11.5,mg*22.5) -- (mg*18.5,mg*22.5);
draw (mg*9.83,mg*17.5) -- (mg*16.83,mg*17.5);
endchar;
end