diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/cypriote |
Initial commit
Diffstat (limited to 'fonts/cypriote')
-rw-r--r-- | fonts/cypriote/cypriote.mf | 396 | ||||
-rw-r--r-- | fonts/cypriote/cypriote.sty | 69 |
2 files changed, 465 insertions, 0 deletions
diff --git a/fonts/cypriote/cypriote.mf b/fonts/cypriote/cypriote.mf new file mode 100644 index 0000000000..30768ee3c4 --- /dev/null +++ b/fonts/cypriote/cypriote.mf @@ -0,0 +1,396 @@ +% 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 diff --git a/fonts/cypriote/cypriote.sty b/fonts/cypriote/cypriote.sty new file mode 100644 index 0000000000..62578c3763 --- /dev/null +++ b/fonts/cypriote/cypriote.sty @@ -0,0 +1,69 @@ +% cypriote.sty +% +% This style file was written by Alan M Stanier +% of Essex University Computer Service (alan@essex.ac.uk) +% for use with the cypriote font. +% +% The file defines a macro for each character in the font. +% +% a e i o and u are defined by the macros La, Le, etc, +% while all others are given as L<syllable>. +% Thus potoline is written as \Lpo\Lto\Lli\Lne. + +% +\font\cypriote=cypriote +\def\La{{\cypriote a}} +\def\Le{{\cypriote e}} +\def\Li{{\cypriote i}} +\def\Lo{{\cypriote o}} +\def\Lu{{\cypriote u}} +\def\Lya{{\cypriote y}} +\def\Lwa{{\cypriote w}} +\def\Lra{{\cypriote r}} +\def\Lla{{\cypriote l}} +\def\Lma{{\cypriote m}} +\def\Lna{{\cypriote n}} +\def\Lpa{{\cypriote p}} +\def\Lta{{\cypriote t}} +\def\Lka{{\cypriote k}} +\def\Lsa{{\cypriote s}} +\def\Lza{{\cypriote z}} +\def\Lxa{{\cypriote x}} +\def\Lwe{{\cypriote A}} +\def\Lre{{\cypriote B}} +\def\Lle{{\cypriote C}} +\def\Lme{{\cypriote D}} +\def\Lne{{\cypriote E}} +\def\Lpe{{\cypriote F}} +\def\Lte{{\cypriote G}} +\def\Lke{{\cypriote H}} +\def\Lse{{\cypriote I}} +\def\Lxe{{\cypriote J}} +\def\Lwi{{\cypriote 1}} +\def\Lri{{\cypriote 2}} +\def\Lli{{\cypriote 3}} +\def\Lmi{{\cypriote 4}} +\def\Lni{{\cypriote 5}} +\def\Lpi{{\cypriote 6}} +\def\Lti{{\cypriote 7}} +\def\Lki{{\cypriote 8}} +\def\Lsi{{\cypriote 9}} +\def\Lyo{{\cypriote Y}} +\def\Lwo{{\cypriote W}} +\def\Lro{{\cypriote R}} +\def\Llo{{\cypriote L}} +\def\Lmo{{\cypriote M}} +\def\Lno{{\cypriote N}} +\def\Lpo{{\cypriote P}} +\def\Lto{{\cypriote T}} +\def\Lko{{\cypriote K}} +\def\Lso{{\cypriote S}} +\def\Lzo{{\cypriote Z}} +\def\Lru{{\cypriote b}} +\def\Llu{{\cypriote c}} +\def\Lmu{{\cypriote d}} +\def\Lnu{{\cypriote f}} +\def\Lpu{{\cypriote g}} +\def\Ltu{{\cypriote h}} +\def\Lku{{\cypriote j}} +\def\Lsu{{\cypriote q}} |