%		cypriote.mf
% This font was designed by Alan M Stanier	( alan@essex.ac.uk ),
% at Essex University Computer Service, Colchester, Essex CO4 3EA. England.
% 
% If you make significant additions or improvements to the font,
% please email me an updated version
%
%
%
mg:=1.0;	% CHANGE THIS TO GET DIFFERENT SIZES OF FONT (font size = 10*mg pt)

mode_setup;
tracingtitles := 1;
pensize#:=mg*0.5pt;
height#:=mg*9.6pt#;
fullwidth#:=mg*7.5pt#;
narrowwidth#:=mg*5.5pt#;
define_pixels(height,fullwidth,marrowwidth);

def getpen = pickup pencircle scaled pensize# enddef;

beginchar("a",fullwidth#,height#,0); "a";
getpen;
draw (0,mg*5) -- (mg*25,mg*30);
draw (0,mg*30) -- (mg*25,mg*5);
draw (mg*12.5,mg*5) -- (mg*12.5,mg*30);
endchar;

beginchar("e",fullwidth#,height#,0); "e";
getpen;
draw (0,mg*5) -- (mg*25,mg*30);
draw (0,mg*30) -- (mg*25,mg*5);
draw (mg*12.5,mg*5) -- (mg*12.5,mg*30);
draw (mg*12.5,mg*17.5) -- (mg*25,mg*17.5);
endchar;

beginchar("i",fullwidth#,height#,0); "i";
getpen;
draw (0,mg*5) -- (mg*25,mg*30);
draw (0,mg*30) -- (mg*25,mg*5);
draw (mg*12.5,mg*15) -- (mg*12.5,mg*30);
endchar;

beginchar("o",fullwidth#,height#,0); "o";
getpen;
draw (0,mg*5) -- (mg*25,mg*5);
draw (0,mg*17.5) -- (mg*12.5,mg*5) -- (mg*25,mg*17.5);
draw (0,mg*30) -- (mg*12.5,mg*17.5) -- (mg*25,mg*30);
endchar;

beginchar("u",fullwidth#,height#,0); "u";
getpen;
draw (0,mg*20) -- (mg*6.25,mg*30) -- (mg*12.5,mg*20) -- (mg*18.75,mg*30) -- (mg*25,mg*20);
draw (mg*12.5,mg*20) -- (mg*12.5,mg*5);
endchar;

beginchar("y",fullwidth#,height#,0); "ya";
getpen;
draw (mg*12.5,mg*5) -- (0,mg*20) & flex((0,mg*20),(mg*12.5,mg*30),(mg*25,mg*20))
	.. (mg*25,mg*20) -- (mg*12.5,mg*5);
endchar;

beginchar("w",fullwidth#,height#,0); "wa";
getpen;
draw (0,0) -- (mg*10,mg*15) -- (0,mg*30);
draw (mg*25,0) -- (mg*15,mg*15) -- (mg*25,mg*30);
draw (mg*6.25,0) -- (mg*12.5,mg*8) -- (mg*18.75,0);
endchar;

beginchar("r",fullwidth#,height#,0); "ra";
getpen;
draw (0,0) -- (mg*25,0);
draw (mg*10,0) .. (0,mg*20){up} .. (mg*12.5,mg*30){right} .. (mg*25,mg*20){down} .. (mg*15,0);
endchar;

beginchar("l",fullwidth#,height#,0); "la";
getpen;
draw (0,mg*5) -- (mg*20,mg*5);
draw (0,mg*20) -- (mg*10,mg*5) -- (mg*20,mg*20) -- (mg*25,mg*15);
endchar;

beginchar("m",fullwidth#,height#,0); "ma";
getpen;
draw (0,0) -- (mg*10,mg*15) -- (0,mg*30);
draw (mg*25,0) -- (mg*15,mg*15) -- (mg*25,mg*30);
draw (mg*6.25,mg*30) -- (mg*12.5,mg*22) -- (mg*18.75,mg*30);
endchar;

beginchar("n",fullwidth#,height#,0); "na";
getpen;
draw (0,mg*30) -- (mg*25,mg*30);
draw (0,mg*20) -- (mg*25,mg*20);
draw (mg*12.5,mg*20) -- (mg*12.5,mg*5);
endchar;

beginchar("p",narrowwidth#,height#,0); "pa";
getpen;
draw (0,mg*10) -- (mg*15,mg*10);
draw (0,mg*20) -- (mg*15,mg*20);
draw (mg*7.5,0) -- (mg*7.5,mg*30);
endchar;

beginchar("t",narrowwidth#,height#,0); "ta";
getpen;
draw (0,0) -- (0,mg*30);
draw (0,mg*15) -- (mg*15,mg*15);
endchar;

beginchar("k",fullwidth#,height#,0); "ka";
getpen;
draw (0,mg*20) -- (mg*12.5,mg*30) -- (mg*25,mg*20);
draw (mg*12.5,mg*30) -- (mg*12.5,0);
draw (0,0) -- (mg*25,0);
endchar;

beginchar("s",fullwidth#,height#,0); "sa";
getpen;
draw (0,mg*25) -- (mg*12.5,mg*5) -- (mg*25,mg*25);
endchar;

beginchar("z",fullwidth#,height#,0); "za";
getpen;
draw (0,0) -- (mg*10,mg*15) -- (0,mg*30);
draw (mg*25,0) -- (mg*15,mg*15) -- (mg*25,mg*30);
draw (mg*15,mg*30) -- (mg*20,mg*23);
draw (mg*12,mg*25) -- (mg*17,mg*18);
endchar;

beginchar("x",fullwidth#,height#,0); "xa";
getpen;
draw flex((0,0),(mg*7.5,mg*15),(0,mg*30));
draw flex((mg*25,0),(mg*17.5,mg*15),(mg*25,mg*30));
endchar;

beginchar("A",fullwidth#,height#,0); "we";
getpen;
draw (0,0) -- (mg*25,0);
draw (0,mg*30) -- (mg*25,mg*30);
draw (mg*12.5,mg*30) -- (mg*12.5,0);
endchar;

beginchar("B",fullwidth#,height#,0); "re";
getpen;
draw (0,mg*15) -- (mg*12.5,mg*25) -- (mg*25,mg*15);
draw (mg*7.5,0) -- (mg*7.5,mg*15);
draw (mg*17.5,0) -- (mg*17.5,mg*15);
endchar;

beginchar("C",fullwidth#,height#,0); "le";
getpen;
draw (0,mg*7.5){down} .. (mg*12.5,0){right} .. (mg*25,mg*7.5){up}
	.. (mg*12.5,mg*15){left} .. (0,mg*7.5){down};
draw (0,mg*22.5){down} .. (mg*12.5,mg*15){right} .. (mg*25,mg*22.5){up}
	.. (mg*12.5,mg*30){left} .. (0,mg*22.5){down};
endchar;

beginchar("D",fullwidth#,height#,0); "me";
getpen;
draw (0,mg*5) -- (mg*25,mg*30);
draw (0,mg*30) -- (mg*25,mg*5);
draw (mg*5,mg*10) .. (mg*7,mg*11) .. (mg*7,0){right} .. (mg*15,mg*3);
endchar;

beginchar("E",fullwidth#,height#,0); "ne";
getpen;
draw (mg*3,mg*5) -- (mg*3,mg*25);
draw (mg*22,mg*5) -- (mg*22,mg*25);
draw (mg*17.5,mg*30) -- (mg*7.5,mg*20) -- (mg*17.5,mg*10) -- (mg*7.5,0);
endchar;

beginchar("F",narrowwidth#,height#,0); "pe";
getpen;
draw (mg*15,mg*30) -- (0,mg*20) -- (mg*15,mg*10) -- (0,0);
endchar;

beginchar("G",fullwidth#,height#,0); "te";
getpen;
draw (0,mg*5) -- (mg*25,mg*5);
draw (mg*12.5,mg*5) -- (0,mg*15);
draw (mg*12.5,mg*5) -- (mg*25,mg*15);
draw (mg*12.5,mg*5) -- (mg*12.5,mg*25);
endchar;

beginchar("H",fullwidth#,height#,0); "ke";
getpen;
draw (0,mg*9) -- (mg*7,mg*3) -- (mg*25,mg*24) -- (mg*18,mg*30);
draw (mg*16,mg*13.5) -- (mg*9,mg*19.5);
draw (mg*4.2857,0) -- (mg*7,mg*3) -- (mg*10.5,0);
endchar;

beginchar("I",fullwidth#,height#,0); "se";
getpen;
draw (0,0) -- (0,mg*30);
draw (0,mg*20) -- (mg*25,mg*20) -- (mg*25,mg*30);
draw (mg*12.5,mg*20) -- (mg*12.5,mg*30);
endchar;

beginchar("J",fullwidth#,height#,0); "xe";
getpen;
draw (mg*10,0) .. (0,mg*15){up} .. (mg*10,mg*30);
draw (mg*10,mg*15) -- (mg*25,mg*15);
draw (mg*25,mg*5) -- (mg*25,mg*25);
endchar;

beginchar("1",fullwidth#,height#,0); "wi";
getpen;
draw (0,0) -- (mg*10,mg*15) -- (0,mg*30);
draw (mg*25,0) -- (mg*15,mg*15) -- (mg*25,mg*30);
draw (mg*12.5,mg*20) -- (mg*12.5,mg*30);
endchar;

beginchar("2",fullwidth#,height#,0); "ri";
getpen;
draw (0,mg*6) -- (mg*7,0) -- (mg*25,mg*21) -- (mg*18,mg*27);
draw (mg*16,mg*10.5) -- (mg*9,mg*16.5);
endchar;

beginchar("3",fullwidth#,height#,0); "li";
getpen;
draw (0,0) -- (mg*25,0);
draw (mg*25,mg*10) -- (0,mg*10) -- (mg*25,mg*25);
endchar;

beginchar("4",fullwidth#,height#,0); "mi";
getpen;
draw (0,mg*15) -- (mg*5,mg*20) -- (mg*12.5,mg*5) -- (mg*20,mg*20) -- (mg*25,mg*15);
draw (mg*5,mg*5) -- (mg*20,mg*5);
endchar;

beginchar("5",fullwidth#,height#,0); "ni";
getpen;
draw (0,mg*6) -- (mg*7,0) -- (mg*25,mg*21) -- (mg*18,mg*27);
draw (mg*16,mg*10.5) -- (mg*9,mg*16.5);
draw (0,0) -- (mg*25,0);
endchar;

beginchar("6",fullwidth#,height#,0); "pi";
getpen;
draw (0,mg*17.5) -- (mg*12.5,mg*5) -- (mg*25,mg*17.5);
draw (0,mg*30) -- (mg*12.5,mg*17.5) -- (mg*25,mg*30);
endchar;

beginchar("7",fullwidth#,height#,0); "ti";
getpen;
draw (0,mg*20) -- (mg*12.5,mg*30) -- (mg*25,mg*20);
draw (mg*12.5,mg*30) -- (mg*12.5,0);
endchar;

beginchar("8",fullwidth#,height#,0); "ki";
getpen;
draw (0,mg*15) -- (mg*6.25,mg*25) -- (mg*12.5,mg*15) --
	(mg*18.75,mg*25) -- (mg*25,mg*15);
draw (mg*12.5,mg*15) -- (mg*12.5,0);
draw (mg*7.5,0) -- (mg*17.5,0);
draw (mg*7.5,mg*30) -- (mg*17.5,mg*30);
endchar;

beginchar("9",fullwidth#,height#,0); "si";
getpen;
draw (0,mg*15) -- (mg*12.5,mg*30) -- (mg*25,mg*15);
draw (mg*10,mg*20) -- (mg*10,mg*5) -- (mg*20,mg*5);
draw (mg*5,0) -- (mg*20,0);
endchar;

beginchar("Y",fullwidth#,height#,0); "yo";
getpen;
draw (0,mg*6.25) -- (mg*6.25,0) -- (mg*12.5,mg*6.25) --
	(mg*18.75,0) -- (mg*25,mg*6.25);
draw (mg*12.5,0) -- (mg*25,0);
endchar;

beginchar("W",fullwidth#,height#,0); "wo";
getpen;
draw (0,mg*20) -- (mg*12.5,mg*30) -- (mg*25,mg*20);
draw (0,0){right} .. (mg*12.5,mg*20){up};
endchar;

beginchar("R",fullwidth#,height#,0); "ro";
getpen;
draw (0,0) .. (mg*12.5,mg*8) .. (mg*25,mg*20){up} .. (mg*12.5,mg*30){left}
	.. (0,mg*20){down} .. (mg*12.5,mg*8) .. (mg*25,0);
endchar;

beginchar("L",fullwidth#,height#,0); "lo";
getpen;
draw (0,mg*12.5) -- (mg*25,mg*12.5);
draw (mg*12.5,0) -- (mg*12.5,mg*25);
endchar;

beginchar("M",fullwidth#,height#,0); "mo";
getpen;
draw (0,mg*15){down} .. (mg*12.5,mg*5){right} .. (mg*25,mg*15){up}
	.. (mg*12.5,mg*25){left} .. (0,mg*15){down};
draw (mg*12.5,mg*5) -- (mg*12.5,mg*25);
endchar;

beginchar("N",fullwidth#,height#,0); "no";
getpen;
draw (0,mg*5) -- (mg*10,mg*25) -- (0,mg*30);
draw (mg*5,0) -- (mg*15,mg*25) -- (mg*25,mg*20);
endchar;

beginchar("P",fullwidth#,height#,0); "po";
getpen;
draw (0,0) -- (mg*15,mg*15) & flex((mg*15,mg*15),(mg*10,mg*22.5),(mg*25,mg*25));
endchar;

beginchar("T",fullwidth#,height#,0); "to";
getpen;
draw (0,mg*30) -- (mg*25,mg*30);
draw (mg*7.5,0) -- (mg*7.5,mg*30);
draw (mg*7.5,mg*15) -- (mg*25,mg*15);
endchar;

beginchar("K",fullwidth#,height#,0); "ko";
getpen;
draw (0,0) -- (mg*7.5,mg*30) -- (mg*17.5,mg*30) -- (mg*25,0);
endchar;

beginchar("S",fullwidth#,height#,0); "so";
getpen;
draw (0,mg*5) -- (mg*25,mg*5);
draw (0,mg*17.5) -- (mg*12.5,mg*5) -- (mg*25,mg*17.5);
draw (0,mg*30) -- (mg*12.5,mg*17.5) -- (mg*25,mg*30);
draw (0,0) -- (mg*25,0);
endchar;

beginchar("Z",fullwidth#,height#,0); "zo";
getpen;
draw (mg*10,mg*30) -- (0,mg*20) -- (mg*10,mg*10) -- (0,0);
draw (mg*25,mg*30) -- (mg*15,mg*20) -- (mg*25,mg*10) -- (mg*15,0);
endchar;

beginchar("b",fullwidth#,height#,0); "ru";
getpen;
draw flex((0,mg*5),(mg*10,mg*17.5),(0,mg*30));
draw flex((mg*25,mg*5),(mg*15,mg*17.5),(mg*25,mg*30));
draw (mg*20,mg*5) -- (mg*25,0);
endchar;

beginchar("c",fullwidth#,height#,0); "lu";
getpen;
draw (0,0){up} .. (mg*12.5,mg*30){right} .. (mg*25,0){down};
draw (mg*7.5,mg*10){down} .. (mg*12.5,0){right} .. (mg*17.5,mg*10){up};
endchar;

beginchar("d",fullwidth#,height#,0); "mu";
getpen;
draw (0,0) -- (mg*25,mg*25);
draw (0,mg*25) -- (mg*25,0);
draw (0,mg*7.5) -- (0,mg*17.5);
draw (mg*25,mg*7.5) -- (mg*25,mg*17.5);
endchar;

beginchar("f",fullwidth#,height#,0); "nu";
getpen;
draw (0,0) -- (mg*15,mg*15) -- (0,mg*30);
draw (mg*25,0) -- (mg*25,mg*10);
draw (mg*25,mg*20) -- (mg*25,mg*30);
endchar;

beginchar("g",fullwidth#,height#,0); "pu";
getpen;
draw (mg*5,mg*5) -- (mg*20,mg*5);
draw (mg*7.5,mg*25) -- (0,mg*15) -- (mg*12.5,mg*5) -- (mg*25,mg*15) -- (mg*17.5,mg*25);
draw (mg*12.5,mg*5) -- (mg*12.5,mg*20);
endchar;

beginchar("h",fullwidth#,height#,0); "tu";
getpen;
draw (0,0) -- (mg*10,mg*30);
draw (0,mg*30) -- (mg*25,mg*30);
draw (mg*5,mg*15) -- (mg*25,mg*15);
draw (mg*15,0) -- (mg*15,mg*10);
draw (mg*20,0) -- (mg*20,mg*10);
endchar;

beginchar("j",fullwidth#,height#,0); "ku";
getpen;
draw (0,mg*5) -- (mg*25,mg*30);
draw (0,mg*30) -- (mg*25,mg*5);
draw (mg*12.5,mg*15) -- (mg*12.5,0);
draw (mg*6.25,mg*30) -- (mg*12.5,mg*23) -- (mg*18.75,mg*30);
endchar;

beginchar("q",fullwidth#,height#,0); "su";
getpen;
draw (0,0){right} .. (mg*10,mg*15){up} .. (0,mg*30){left};
draw (mg*10,mg*15) -- (mg*25,mg*15);
draw (mg*15,mg*5) -- (mg*20,mg*10) -- (mg*20,mg*25);
draw (mg*20,mg*10) -- (mg*25,mg*5);
endchar;



end