summaryrefslogtreecommitdiff
path: root/fonts/cypriote
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/cypriote
Initial commit
Diffstat (limited to 'fonts/cypriote')
-rw-r--r--fonts/cypriote/cypriote.mf396
-rw-r--r--fonts/cypriote/cypriote.sty69
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}}