% 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