% 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