From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- fonts/archaic/protosem/README | 92 ++ fonts/archaic/protosem/proto10.afm | 277 ++++++ fonts/archaic/protosem/proto10.pfb | Bin 0 -> 27907 bytes fonts/archaic/protosem/proto10.tfm | Bin 0 -> 500 bytes fonts/archaic/protosem/protosem.dtx | 1532 ++++++++++++++++++++++++++++++++ fonts/archaic/protosem/protosem.ins | 97 ++ fonts/archaic/protosem/protosem.pdf | Bin 0 -> 137005 bytes fonts/archaic/protosem/tryprotosem.pdf | Bin 0 -> 72113 bytes fonts/archaic/protosem/tryprotosem.tex | 78 ++ 9 files changed, 2076 insertions(+) create mode 100644 fonts/archaic/protosem/README create mode 100644 fonts/archaic/protosem/proto10.afm create mode 100644 fonts/archaic/protosem/proto10.pfb create mode 100644 fonts/archaic/protosem/proto10.tfm create mode 100644 fonts/archaic/protosem/protosem.dtx create mode 100644 fonts/archaic/protosem/protosem.ins create mode 100644 fonts/archaic/protosem/protosem.pdf create mode 100644 fonts/archaic/protosem/tryprotosem.pdf create mode 100644 fonts/archaic/protosem/tryprotosem.tex (limited to 'fonts/archaic/protosem') diff --git a/fonts/archaic/protosem/README b/fonts/archaic/protosem/README new file mode 100644 index 0000000000..08541a9da1 --- /dev/null +++ b/fonts/archaic/protosem/README @@ -0,0 +1,92 @@ + The protosem package provides fonts for the Proto-Semitic script in use +about 1600 BC, and which may have been a very early ancestor of many of the +world's alphabets. Files for using the font with LaTeX are also included. +This is one of a series of ancient fonts. + +Changes in version 1.3 (2005/07/21) +---------------------- +o Minor fix to encoding + +Changes in version 1.2 (2005/03/18) +---------------------- +o Font supplied as Postscript Type1 instead of MetaFont + +Changes in version 1.1 (2000/09/30) +---------------------- +o Minor changes to the glyph encoding to match other fonts in the series + +Changes in version 1.0 (1999/03/14) +---------------------- +o First public release + +------------------------------------------------------------------ + Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net + Copyright 2005 Peter R. Wilson + + This work may be distributed and/or modified under the + conditions of the Latex Project Public License, either + version 1.3 of this license or (at your option) any + later version. + The latest version of the license is in + http://www.latex-project.org/lppl.txt + and version 1.3 or later is part of all distributions of + LaTeX version 2003/06/01 or later. + + This work has the LPPL maintenance status "author-maintained". + + This work consists of the files: + README (this file) + protosem.dtx + protosem.ins + protosem.pdf + and the derived files + protosem.sty + ot1proto.fd + t1proto.fd + protosem.map + proto10.mf + +------------------------------------------------------------------ + The distribution consists of the following files: +README (this file) +protosem.dtx +protosem.ins +protosem.pdf (user manual) +tryprotosem.tex (example usage) +tryprotosem.pdf +proto10.afm +proto10.pfb +proto10.tfm + + To install the package: +o run: latex protosem.ins, which will generate: + protosem.sty + *.fd files + protosem.map + and posibly proto10.mf +o Move the *.sty and *.fd files to a location where LaTeX will find them + e.g. .../texmf-local/tex/latex/protosem +o Move the *.afm, *.pfb and *.tfm files where LaTeX looks for font information + e.g., .../texmf-var/fonts/afm/public/archaic/*.afm + .../texmf-var/fonts/type1/public/archaic/*.pfb + .../texmf-var/fonts/tfm/public/archaic/*.tfm +o Add the *.map information to the dvips/pdftex psfont maps + If you want the MetaFont version as well: + o Move the *.mf files to, e.g., .../texmf-var/fonts/source/public/protosem + o Add a linec like the following to the (texmf/fontname)special.map file: + proto10.mf public protosem +o Refresh the database + (for more information on the above see the FAQ). + +o run: latex tryprotosem for a test of the Proto-Semitic font + + To generate a second copy of the manual (which is already supplied as a PDF file): +o run: latex protosem.dtx +o (for an index run: makeindex -s gind.ist protosem.idx) +o run: latex protosem.dtx +o Print protosem.dvi for a hardcopy of the package manual + +2005/07/21 +Peter Wilson +herries dot press at earthlink dot net + diff --git a/fonts/archaic/protosem/proto10.afm b/fonts/archaic/protosem/proto10.afm new file mode 100644 index 0000000000..f5cf2df6ea --- /dev/null +++ b/fonts/archaic/protosem/proto10.afm @@ -0,0 +1,277 @@ +StartFontMetrics 2.0 +Comment Generated by pfaedit +Comment Creation Date: Fri Nov 11 18:21:51 2005 +FontName Archaic-ProtoSemitic +FullName Archaic ProtoSemitic +FamilyName Archaic +Weight Regular +Notice (Generated from MetaFont bitmap by mftrace 1.1.5, http://www.cs.uu.nl/~hanwen/mftrace/ Copyright 2005 Peter R. Wilson) +ItalicAngle 0 +IsFixedPitch false +UnderlinePosition -100 +UnderlineThickness 50 +Version 001.001 +EncodingScheme FontSpecific +FontBBox 118 -29 973 726 +XHeight 725 +Ascender 726 +Descender 80 +StartCharMetrics 256 +C 0 ; WX 0 ; N grave ; B 0 0 0 0 ; +C 1 ; WX 0 ; N acute ; B 0 0 0 0 ; +C 2 ; WX 0 ; N circumflex ; B 0 0 0 0 ; +C 3 ; WX 0 ; N tilde ; B 0 0 0 0 ; +C 4 ; WX 0 ; N dieresis ; B 0 0 0 0 ; +C 5 ; WX 0 ; N hungarumlaut ; B 0 0 0 0 ; +C 6 ; WX 0 ; N ring ; B 0 0 0 0 ; +C 7 ; WX 0 ; N caron ; B 0 0 0 0 ; +C 8 ; WX 0 ; N breve ; B 0 0 0 0 ; +C 9 ; WX 0 ; N macron ; B 0 0 0 0 ; +C 10 ; WX 0 ; N dotaccent ; B 0 0 0 0 ; +C 11 ; WX 0 ; N cedilla ; B 0 0 0 0 ; +C 12 ; WX 0 ; N ogonek ; B 0 0 0 0 ; +C 13 ; WX 0 ; N quotesinglbase ; B 0 0 0 0 ; +C 14 ; WX 0 ; N guilsinglleft ; B 0 0 0 0 ; +C 15 ; WX 0 ; N guilsinglright ; B 0 0 0 0 ; +C 16 ; WX 0 ; N quotedblleft ; B 0 0 0 0 ; +C 17 ; WX 0 ; N quotedblright ; B 0 0 0 0 ; +C 18 ; WX 0 ; N quotedblbase ; B 0 0 0 0 ; +C 19 ; WX 0 ; N guillemotleft ; B 0 0 0 0 ; +C 20 ; WX 0 ; N guillemotright ; B 0 0 0 0 ; +C 21 ; WX 0 ; N endash ; B 0 0 0 0 ; +C 22 ; WX 0 ; N emdash ; B 0 0 0 0 ; +C 23 ; WX 0 ; N cwm ; B 0 0 0 0 ; +C 24 ; WX 0 ; N perthousand ; B 0 0 0 0 ; +C 25 ; WX 0 ; N dotlessi ; B 0 0 0 0 ; +C 26 ; WX 0 ; N dotlessj ; B 0 0 0 0 ; +C 27 ; WX 0 ; N ff ; B 0 0 0 0 ; L l ffl ; L i ffi ; +C 28 ; WX 0 ; N fi ; B 0 0 0 0 ; +C 29 ; WX 0 ; N fl ; B 0 0 0 0 ; +C 30 ; WX 0 ; N ffi ; B 0 0 0 0 ; +C 31 ; WX 0 ; N ffl ; B 0 0 0 0 ; +C 32 ; WX 0 ; N space ; B 0 0 0 0 ; +C 33 ; WX 0 ; N exclam ; B 0 0 0 0 ; +C 34 ; WX 0 ; N quotedbl ; B 0 0 0 0 ; +C 35 ; WX 0 ; N numbersign ; B 0 0 0 0 ; +C 36 ; WX 0 ; N dollar ; B 0 0 0 0 ; +C 37 ; WX 0 ; N percent ; B 0 0 0 0 ; +C 38 ; WX 0 ; N ampersand ; B 0 0 0 0 ; +C 39 ; WX 860 ; N quoteright ; B 120 -24 740 725 ; +C 40 ; WX 0 ; N parenleft ; B 0 0 0 0 ; +C 41 ; WX 0 ; N parenright ; B 0 0 0 0 ; +C 42 ; WX 0 ; N asterisk ; B 0 0 0 0 ; +C 43 ; WX 0 ; N plus ; B 0 0 0 0 ; +C 44 ; WX 0 ; N comma ; B 0 0 0 0 ; +C 45 ; WX 0 ; N hyphen ; B 0 0 0 0 ; +C 46 ; WX 0 ; N period ; B 0 0 0 0 ; +C 47 ; WX 0 ; N slash ; B 0 0 0 0 ; +C 48 ; WX 0 ; N zero ; B 0 0 0 0 ; +C 49 ; WX 0 ; N one ; B 0 0 0 0 ; +C 50 ; WX 0 ; N two ; B 0 0 0 0 ; +C 51 ; WX 0 ; N three ; B 0 0 0 0 ; +C 52 ; WX 0 ; N four ; B 0 0 0 0 ; +C 53 ; WX 0 ; N five ; B 0 0 0 0 ; +C 54 ; WX 0 ; N six ; B 0 0 0 0 ; +C 55 ; WX 0 ; N seven ; B 0 0 0 0 ; +C 56 ; WX 0 ; N eight ; B 0 0 0 0 ; +C 57 ; WX 0 ; N nine ; B 0 0 0 0 ; +C 58 ; WX 0 ; N colon ; B 0 0 0 0 ; +C 59 ; WX 0 ; N semicolon ; B 0 0 0 0 ; +C 60 ; WX 0 ; N less ; B 0 0 0 0 ; +C 61 ; WX 0 ; N equal ; B 0 0 0 0 ; +C 62 ; WX 0 ; N greater ; B 0 0 0 0 ; +C 63 ; WX 0 ; N question ; B 0 0 0 0 ; +C 64 ; WX 0 ; N at ; B 0 0 0 0 ; +C 65 ; WX 860 ; N A ; B 119 -24 740 725 ; +C 66 ; WX 860 ; N B ; B 120 44 740 725 ; +C 67 ; WX 0 ; N C ; B 0 0 0 0 ; +C 68 ; WX 720 ; N D ; B 120 -25 600 725 ; +C 69 ; WX 580 ; N E ; B 119 -25 601 703 ; +C 70 ; WX 0 ; N F ; B 0 0 0 0 ; +C 71 ; WX 0 ; N G ; B 0 0 0 0 ; +C 72 ; WX 860 ; N H ; B 121 186 741 514 ; +C 73 ; WX 0 ; N I ; B 0 0 0 0 ; L J IJ ; +C 74 ; WX 0 ; N J ; B 0 0 0 0 ; +C 75 ; WX 860 ; N K ; B 119 -25 740 725 ; +C 76 ; WX 860 ; N L ; B 121 -24 741 726 ; +C 77 ; WX 0 ; N M ; B 0 0 0 0 ; +C 78 ; WX 0 ; N N ; B 0 0 0 0 ; +C 79 ; WX 1000 ; N O ; B 120 193 880 507 ; +C 80 ; WX 860 ; N P ; B 121 72 741 620 ; +C 81 ; WX 650 ; N Q ; B 120 -26 530 725 ; +C 82 ; WX 860 ; N R ; B 176 -24 740 656 ; +C 83 ; WX 1000 ; N S ; B 120 -24 880 549 ; +C 84 ; WX 580 ; N T ; B 119 -24 460 725 ; +C 85 ; WX 0 ; N U ; B 0 0 0 0 ; +C 86 ; WX 860 ; N V ; B 120 -24 741 725 ; +C 87 ; WX 0 ; N W ; B 0 0 0 0 ; +C 88 ; WX 860 ; N X ; B 120 -25 741 725 ; +C 89 ; WX 1000 ; N Y ; B 120 -25 880 724 ; +C 90 ; WX 0 ; N Z ; B 0 0 0 0 ; +C 91 ; WX 0 ; N bracketleft ; B 0 0 0 0 ; +C 92 ; WX 0 ; N backslash ; B 0 0 0 0 ; +C 93 ; WX 0 ; N bracketright ; B 0 0 0 0 ; +C 94 ; WX 0 ; N asciicircum ; B 0 0 0 0 ; +C 95 ; WX 0 ; N underscore ; B 0 0 0 0 ; +C 96 ; WX 1000 ; N quoteleft ; B 120 193 880 507 ; +C 97 ; WX 860 ; N a ; B 120 -24 740 725 ; +C 98 ; WX 860 ; N b ; B 120 113 741 586 ; +C 99 ; WX 0 ; N c ; B 0 0 0 0 ; +C 100 ; WX 1000 ; N d ; B 119 63 880 637 ; +C 101 ; WX 720 ; N e ; B 118 -24 601 725 ; +C 102 ; WX 0 ; N f ; B 0 0 0 0 ; L l fl ; L i fi ; L f ff ; +C 103 ; WX 790 ; N g ; B 120 207 670 491 ; +C 104 ; WX 720 ; N h ; B 119 -24 460 725 ; +C 105 ; WX 0 ; N i ; B 0 0 0 0 ; L j ij ; +C 106 ; WX 0 ; N j ; B 0 0 0 0 ; +C 107 ; WX 860 ; N k ; B 120 -25 740 725 ; +C 108 ; WX 860 ; N l ; B 120 -24 740 726 ; +C 109 ; WX 1000 ; N m ; B 120 282 880 419 ; +C 110 ; WX 1000 ; N n ; B 120 194 879 637 ; +C 111 ; WX 1000 ; N o ; B 120 193 880 507 ; +C 112 ; WX 860 ; N p ; B 119 80 741 620 ; +C 113 ; WX 1000 ; N q ; B 120 193 880 506 ; +C 114 ; WX 860 ; N r ; B 120 -24 705 725 ; +C 115 ; WX 1000 ; N s ; B 120 -24 880 725 ; +C 116 ; WX 860 ; N t ; B 120 46 740 654 ; +C 117 ; WX 0 ; N u ; B 0 0 0 0 ; +C 118 ; WX 860 ; N v ; B 120 -24 741 725 ; +C 119 ; WX 580 ; N w ; B 120 -5 460 725 ; +C 120 ; WX 1000 ; N x ; B 120 -24 880 725 ; +C 121 ; WX 1000 ; N y ; B 119 -29 973 637 ; +C 122 ; WX 860 ; N z ; B 121 185 741 515 ; +C 123 ; WX 0 ; N braceleft ; B 0 0 0 0 ; +C 124 ; WX 0 ; N bar ; B 0 0 0 0 ; +C 125 ; WX 0 ; N braceright ; B 0 0 0 0 ; +C 126 ; WX 0 ; N asciitilde ; B 0 0 0 0 ; +C 127 ; WX 0 ; N sfthyphen ; B 0 0 0 0 ; +C 128 ; WX 0 ; N Abreve ; B 0 0 0 0 ; +C 129 ; WX 0 ; N Aogonek ; B 0 0 0 0 ; +C 130 ; WX 0 ; N Cacute ; B 0 0 0 0 ; +C 131 ; WX 0 ; N Ccaron ; B 0 0 0 0 ; +C 132 ; WX 0 ; N Dcaron ; B 0 0 0 0 ; +C 133 ; WX 0 ; N Ecaron ; B 0 0 0 0 ; +C 134 ; WX 0 ; N Eogonek ; B 0 0 0 0 ; +C 135 ; WX 0 ; N Gbreve ; B 0 0 0 0 ; +C 136 ; WX 0 ; N Lacute ; B 0 0 0 0 ; +C 137 ; WX 0 ; N Lcaron ; B 0 0 0 0 ; +C 138 ; WX 0 ; N Lslash ; B 0 0 0 0 ; +C 139 ; WX 0 ; N Nacute ; B 0 0 0 0 ; +C 140 ; WX 0 ; N Ncaron ; B 0 0 0 0 ; +C 141 ; WX 0 ; N Eng ; B 0 0 0 0 ; +C 142 ; WX 0 ; N Ohungarumlaut ; B 0 0 0 0 ; +C 143 ; WX 0 ; N Racute ; B 0 0 0 0 ; +C 144 ; WX 0 ; N Rcaron ; B 0 0 0 0 ; +C 145 ; WX 0 ; N Sacute ; B 0 0 0 0 ; +C 146 ; WX 0 ; N Scaron ; B 0 0 0 0 ; +C 147 ; WX 0 ; N Scedilla ; B 0 0 0 0 ; +C 148 ; WX 0 ; N Tcaron ; B 0 0 0 0 ; +C 149 ; WX 0 ; N Tcedilla ; B 0 0 0 0 ; +C 150 ; WX 0 ; N Uhungarumlaut ; B 0 0 0 0 ; +C 151 ; WX 0 ; N Uring ; B 0 0 0 0 ; +C 152 ; WX 0 ; N Ydieresis ; B 0 0 0 0 ; +C 153 ; WX 0 ; N Zacute ; B 0 0 0 0 ; +C 154 ; WX 0 ; N Zcaron ; B 0 0 0 0 ; +C 155 ; WX 0 ; N Zdotaccent ; B 0 0 0 0 ; +C 156 ; WX 0 ; N IJ ; B 0 0 0 0 ; +C 157 ; WX 0 ; N Idotaccent ; B 0 0 0 0 ; +C 158 ; WX 0 ; N dcroat ; B 0 0 0 0 ; +C 159 ; WX 0 ; N section ; B 0 0 0 0 ; +C 160 ; WX 0 ; N abreve ; B 0 0 0 0 ; +C 161 ; WX 0 ; N aogonek ; B 0 0 0 0 ; +C 162 ; WX 0 ; N cacute ; B 0 0 0 0 ; +C 163 ; WX 0 ; N ccaron ; B 0 0 0 0 ; +C 164 ; WX 0 ; N dcaron ; B 0 0 0 0 ; +C 165 ; WX 0 ; N ecaron ; B 0 0 0 0 ; +C 166 ; WX 0 ; N eogonek ; B 0 0 0 0 ; +C 167 ; WX 0 ; N gbreve ; B 0 0 0 0 ; +C 168 ; WX 0 ; N lacute ; B 0 0 0 0 ; +C 169 ; WX 0 ; N lcaron ; B 0 0 0 0 ; +C 170 ; WX 0 ; N lslash ; B 0 0 0 0 ; +C 171 ; WX 0 ; N nacute ; B 0 0 0 0 ; +C 172 ; WX 0 ; N ncaron ; B 0 0 0 0 ; +C 173 ; WX 0 ; N eng ; B 0 0 0 0 ; +C 174 ; WX 0 ; N ohungarumlaut ; B 0 0 0 0 ; +C 175 ; WX 0 ; N racute ; B 0 0 0 0 ; +C 176 ; WX 0 ; N rcaron ; B 0 0 0 0 ; +C 177 ; WX 0 ; N sacute ; B 0 0 0 0 ; +C 178 ; WX 0 ; N scaron ; B 0 0 0 0 ; +C 179 ; WX 0 ; N scedilla ; B 0 0 0 0 ; +C 180 ; WX 0 ; N tcaron ; B 0 0 0 0 ; +C 181 ; WX 0 ; N tcedilla ; B 0 0 0 0 ; +C 182 ; WX 0 ; N uhungarumlaut ; B 0 0 0 0 ; +C 183 ; WX 0 ; N uring ; B 0 0 0 0 ; +C 184 ; WX 0 ; N ydieresis ; B 0 0 0 0 ; +C 185 ; WX 0 ; N zacute ; B 0 0 0 0 ; +C 186 ; WX 0 ; N zcaron ; B 0 0 0 0 ; +C 187 ; WX 0 ; N zdotaccent ; B 0 0 0 0 ; +C 188 ; WX 0 ; N ij ; B 0 0 0 0 ; +C 189 ; WX 0 ; N exclamdown ; B 0 0 0 0 ; +C 190 ; WX 0 ; N questiondown ; B 0 0 0 0 ; +C 191 ; WX 0 ; N sterling ; B 0 0 0 0 ; +C 192 ; WX 0 ; N Agrave ; B 0 0 0 0 ; +C 193 ; WX 0 ; N Aacute ; B 0 0 0 0 ; +C 194 ; WX 0 ; N Acircumflex ; B 0 0 0 0 ; +C 195 ; WX 0 ; N Atilde ; B 0 0 0 0 ; +C 196 ; WX 0 ; N Adieresis ; B 0 0 0 0 ; +C 197 ; WX 0 ; N Aring ; B 0 0 0 0 ; +C 198 ; WX 0 ; N AE ; B 0 0 0 0 ; +C 199 ; WX 0 ; N Ccedilla ; B 0 0 0 0 ; +C 200 ; WX 0 ; N Egrave ; B 0 0 0 0 ; +C 201 ; WX 0 ; N Eacute ; B 0 0 0 0 ; +C 202 ; WX 0 ; N Ecircumflex ; B 0 0 0 0 ; +C 203 ; WX 0 ; N Edieresis ; B 0 0 0 0 ; +C 204 ; WX 0 ; N Igrave ; B 0 0 0 0 ; +C 205 ; WX 0 ; N Iacute ; B 0 0 0 0 ; +C 206 ; WX 0 ; N Icircumflex ; B 0 0 0 0 ; +C 207 ; WX 0 ; N Idieresis ; B 0 0 0 0 ; +C 208 ; WX 0 ; N Eth ; B 0 0 0 0 ; +C 209 ; WX 0 ; N Ntilde ; B 0 0 0 0 ; +C 210 ; WX 0 ; N Ograve ; B 0 0 0 0 ; +C 211 ; WX 0 ; N Oacute ; B 0 0 0 0 ; +C 212 ; WX 0 ; N Ocircumflex ; B 0 0 0 0 ; +C 213 ; WX 0 ; N Otilde ; B 0 0 0 0 ; +C 214 ; WX 0 ; N Odieresis ; B 0 0 0 0 ; +C 215 ; WX 0 ; N OE ; B 0 0 0 0 ; +C 216 ; WX 0 ; N Oslash ; B 0 0 0 0 ; +C 217 ; WX 0 ; N Ugrave ; B 0 0 0 0 ; +C 218 ; WX 0 ; N Uacute ; B 0 0 0 0 ; +C 219 ; WX 0 ; N Ucircumflex ; B 0 0 0 0 ; +C 220 ; WX 0 ; N Udieresis ; B 0 0 0 0 ; +C 221 ; WX 0 ; N Yacute ; B 0 0 0 0 ; +C 222 ; WX 0 ; N Thorn ; B 0 0 0 0 ; +C 223 ; WX 0 ; N SS ; B 0 0 0 0 ; +C 224 ; WX 0 ; N agrave ; B 0 0 0 0 ; +C 225 ; WX 0 ; N aacute ; B 0 0 0 0 ; +C 226 ; WX 0 ; N acircumflex ; B 0 0 0 0 ; +C 227 ; WX 0 ; N atilde ; B 0 0 0 0 ; +C 228 ; WX 0 ; N adieresis ; B 0 0 0 0 ; +C 229 ; WX 0 ; N aring ; B 0 0 0 0 ; +C 230 ; WX 0 ; N ae ; B 0 0 0 0 ; +C 231 ; WX 0 ; N ccedilla ; B 0 0 0 0 ; +C 232 ; WX 0 ; N egrave ; B 0 0 0 0 ; +C 233 ; WX 0 ; N eacute ; B 0 0 0 0 ; +C 234 ; WX 0 ; N ecircumflex ; B 0 0 0 0 ; +C 235 ; WX 0 ; N edieresis ; B 0 0 0 0 ; +C 236 ; WX 0 ; N igrave ; B 0 0 0 0 ; +C 237 ; WX 0 ; N iacute ; B 0 0 0 0 ; +C 238 ; WX 0 ; N icircumflex ; B 0 0 0 0 ; +C 239 ; WX 0 ; N idieresis ; B 0 0 0 0 ; +C 240 ; WX 0 ; N eth ; B 0 0 0 0 ; +C 241 ; WX 0 ; N ntilde ; B 0 0 0 0 ; +C 242 ; WX 0 ; N ograve ; B 0 0 0 0 ; +C 243 ; WX 0 ; N oacute ; B 0 0 0 0 ; +C 244 ; WX 0 ; N ocircumflex ; B 0 0 0 0 ; +C 245 ; WX 0 ; N otilde ; B 0 0 0 0 ; +C 246 ; WX 0 ; N odieresis ; B 0 0 0 0 ; +C 247 ; WX 0 ; N oe ; B 0 0 0 0 ; +C 248 ; WX 0 ; N oslash ; B 0 0 0 0 ; +C 249 ; WX 0 ; N ugrave ; B 0 0 0 0 ; +C 250 ; WX 0 ; N uacute ; B 0 0 0 0 ; +C 251 ; WX 0 ; N ucircumflex ; B 0 0 0 0 ; +C 252 ; WX 0 ; N udieresis ; B 0 0 0 0 ; +C 253 ; WX 0 ; N yacute ; B 0 0 0 0 ; +C 254 ; WX 0 ; N thorn ; B 0 0 0 0 ; +C 255 ; WX 0 ; N germandbls ; B 0 0 0 0 ; +EndCharMetrics +EndFontMetrics diff --git a/fonts/archaic/protosem/proto10.pfb b/fonts/archaic/protosem/proto10.pfb new file mode 100644 index 0000000000..97082da51e Binary files /dev/null and b/fonts/archaic/protosem/proto10.pfb differ diff --git a/fonts/archaic/protosem/proto10.tfm b/fonts/archaic/protosem/proto10.tfm new file mode 100644 index 0000000000..ba1fc39d82 Binary files /dev/null and b/fonts/archaic/protosem/proto10.tfm differ diff --git a/fonts/archaic/protosem/protosem.dtx b/fonts/archaic/protosem/protosem.dtx new file mode 100644 index 0000000000..11d589027b --- /dev/null +++ b/fonts/archaic/protosem/protosem.dtx @@ -0,0 +1,1532 @@ +% \iffalse meta-comment +% +% protosem.dtx +% +% Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net +% Copyright 1999 -- 2005 Peter R. Wilson +% +% This work may be distributed and/or modified under the +% conditions of the Latex Project Public License, either +% version 1.3 of this license or (at your option) any +% later version. +% The latest version of the license is in +% http://www.latex-project.org/lppl.txt +% and version 1.3 or later is part of all distributions of +% LaTeX version 2003/06/01 or later. +% +% This work has the LPPL maintenance status "author-maintained". +% +% This work consists of the files listed in the README file. +% +%<*driver> +\documentclass[twoside]{ltxdoc} +\usepackage{docmfp} +\usepackage{url} +\usepackage[draft=false, + plainpages=false, + pdfpagelabels, + bookmarksnumbered, + hyperindex=false, + ]{hyperref} +\providecommand{\phantomsection}{} +\OnlyDescription %% comment this out for the full glory +\EnableCrossrefs +\CodelineIndex +\setcounter{StandardModuleDepth}{1} +\makeatletter + \@mparswitchfalse +\makeatother +\renewcommand{\MakeUppercase}[1]{#1} +\pagestyle{headings} +\newenvironment{addtomargins}[1]{% + \begin{list}{}{% + \topsep 0pt + \addtolength{\leftmargin}{#1}% + \addtolength{\rightmargin}{#1}% + \listparindent \parindent + \itemindent \parindent + \parsep \parskip + }% + \item[]}{\end{list}} +\begin{document} + \raggedbottom + \DocInput{protosem.dtx} +\end{document} +% +% +% \fi +% +% \CheckSum{389} +% +% \DoNotIndex{\',\.,\@M,\@@input,\@addtoreset,\@arabic,\@badmath} +% \DoNotIndex{\@centercr,\@cite} +% \DoNotIndex{\@dotsep,\@empty,\@float,\@gobble,\@gobbletwo,\@ignoretrue} +% \DoNotIndex{\@input,\@ixpt,\@m} +% \DoNotIndex{\@minus,\@mkboth,\@ne,\@nil,\@nomath,\@plus,\@set@topoint} +% \DoNotIndex{\@tempboxa,\@tempcnta,\@tempdima,\@tempdimb} +% \DoNotIndex{\@tempswafalse,\@tempswatrue,\@viipt,\@viiipt,\@vipt} +% \DoNotIndex{\@vpt,\@warning,\@xiipt,\@xipt,\@xivpt,\@xpt,\@xviipt} +% \DoNotIndex{\@xxpt,\@xxvpt,\\,\ ,\addpenalty,\addtolength,\addvspace} +% \DoNotIndex{\advance,\Alph,\alph} +% \DoNotIndex{\arabic,\ast,\begin,\begingroup,\bfseries,\bgroup,\box} +% \DoNotIndex{\bullet} +% \DoNotIndex{\cdot,\cite,\CodelineIndex,\cr,\day,\DeclareOption} +% \DoNotIndex{\def,\DisableCrossrefs,\divide,\DocInput,\documentclass} +% \DoNotIndex{\DoNotIndex,\egroup,\ifdim,\else,\fi,\em,\endtrivlist} +% \DoNotIndex{\EnableCrossrefs,\end,\end@dblfloat,\end@float,\endgroup} +% \DoNotIndex{\endlist,\everycr,\everypar,\ExecuteOptions,\expandafter} +% \DoNotIndex{\fbox} +% \DoNotIndex{\filedate,\filename,\fileversion,\fontsize,\framebox,\gdef} +% \DoNotIndex{\global,\halign,\hangindent,\hbox,\hfil,\hfill,\hrule} +% \DoNotIndex{\hsize,\hskip,\hspace,\hss,\if@tempswa,\ifcase,\or,\fi,\fi} +% \DoNotIndex{\ifhmode,\ifvmode,\ifnum,\iftrue,\ifx,\fi,\fi,\fi,\fi,\fi} +% \DoNotIndex{\input} +% \DoNotIndex{\jobname,\kern,\leavevmode,\let,\leftmark} +% \DoNotIndex{\list,\llap,\long,\m@ne,\m@th,\mark,\markboth,\markright} +% \DoNotIndex{\month,\newcommand,\newcounter,\newenvironment} +% \DoNotIndex{\NeedsTeXFormat,\newdimen} +% \DoNotIndex{\newlength,\newpage,\nobreak,\noindent,\null,\number} +% \DoNotIndex{\numberline,\OldMakeindex,\OnlyDescription,\p@} +% \DoNotIndex{\pagestyle,\par,\paragraph,\paragraphmark,\parfillskip} +% \DoNotIndex{\penalty,\PrintChanges,\PrintIndex,\ProcessOptions} +% \DoNotIndex{\protect,\ProvidesClass,\raggedbottom,\raggedright} +% \DoNotIndex{\refstepcounter,\relax,\renewcommand,\reset@font} +% \DoNotIndex{\rightmargin,\rightmark,\rightskip,\rlap,\rmfamily,\roman} +% \DoNotIndex{\roman,\secdef,\selectfont,\setbox,\setcounter,\setlength} +% \DoNotIndex{\settowidth,\sfcode,\skip,\sloppy,\slshape,\space} +% \DoNotIndex{\symbol,\the,\trivlist,\typeout,\tw@,\undefined,\uppercase} +% \DoNotIndex{\usecounter,\usefont,\usepackage,\vfil,\vfill,\viiipt} +% \DoNotIndex{\viipt,\vipt,\vskip,\vspace} +% \DoNotIndex{\wd,\xiipt,\year,\z@} +% +% \changes{v1.0}{1999/03/14}{First public release} +% \changes{v1.1}{2000/09/30}{Minor changes to glyph encodings} +% \changes{v1.2}{2005/03/18}{Updated details, added map file} +% \changes{v1.3}{2005/07/21}{Minor fixes} +% +% \def\fileversion{v1.0} \def\filedate{1999/03/14} +% \def\fileversion{v1.1} \def\filedate{2000/09/30} +% \def\fileversion{v1.2} \def\filedate{2005/03/18} +% \def\fileversion{v1.3} \def\filedate{2005/07/21} +% \newcommand*{\Lpack}[1]{\textsf {#1}} ^^A typeset a package +% \newcommand*{\Lopt}[1]{\textsf {#1}} ^^A typeset an option +% \newcommand*{\file}[1]{\texttt {#1}} ^^A typeset a file +% \newcommand*{\Lcount}[1]{\textsl {\small#1}} ^^A typeset a counter +% \newcommand*{\pstyle}[1]{\textsl {#1}} ^^A typeset a pagestyle +% \newcommand*{\Lenv}[1]{\texttt {#1}} ^^A typeset an environment +% \newcommand{\BC}{\textsc{bc}} +% \newcommand{\AD}{\textsc{ad}} +% \newcommand{\thisfont}{Proto-Semitic} +% +% \title{The \Lpack{Proto-Semitic} fonts\thanks{This +% file has version number \fileversion, last revised +% \filedate.}} +% +% \author{% +% Peter Wilson\thanks{\texttt{herries dot press at earthlink dot net}}\\ +% Herries Press } +% \date{\filedate} +% \maketitle +% \begin{abstract} +% The \Lpack{protosem} package provides a set of fonts for the +% Proto-Semitic alphabet which was used around 1600~\BC{} in the Middle East. +% \end{abstract} +% \tableofcontents +% +% +% \section{Introduction} +% +% The Phoenician alphabet and characters is a direct ancestor of our modern day +% Latin alphabet and fonts. +% The font presented here is one of a series of fonts intended to show how +% the modern Latin alphabet has evolved from its original Phoenician form +% to its present day appearance. +% +% This manual is typeset according to the conventions of the +% \LaTeX{} \textsc{docstrip} utility which enables the automatic +% extraction of the \LaTeX{} macro source files~\cite{GOOSSENS94}. +% +% Section~\ref{sec:usc} describes the usage of the package. +% Later sections, if any, contain commented code for the fonts +% and source code for the package. +% +% \subsection{An alphabetic tree} +% +% Scholars are reasonably agreed that all the world's alphabets are descended +% from a Semitic alphabet invented about 1600~\BC{} in the Middle +% East~\cite{DRUCKER95}. The word `Semitic' refers +% to the family of languages used in the geographical area from +% Sinai in the south, up the Mediterranean coast to Asia Minor in the north and +% west to the valley of the Euphrates. +% +% The Phoenician alphabet was stable by about 1100~\BC{} and the script was +% written right to left. In earlier times the writing direction was variable, +% and so were +% the shapes and orientation of the characters. The alphabet consisted of +% 22 letters and they were named after things. For example, their first two +% letters were called \textit{aleph} (ox), and \textit{beth} (house). +% The Phoenician script had +% only one case --- unlike our modern fonts which have both upper- and +% lower-cases. In modern terms the Phoenician abecedary was: \\ +% A B G D E Y Z H $\Theta$ I K L M N X O P ts Q R S T \\ +% where the `Y' (\textit{vau}) character was sometimes written as `F', and +% `ts' stands for the \textit{tsade} character. +% +% The Greek alphabet is one of the descendants of the Phoenician alphabet; +% another was Aramaic which is the ancestor of the Arabic, Persian and Indian +% scripts. +% Initially Greek was written right to left but around the 6th C~\BC{} became +% \textit{boustrophedron}, meaning that the lines +% alternated in direction. At about 500~\BC{} the writing direction stabilised +% as left to +% right. The Greeks modified the Phoenician alphabet to match the vocalisation +% of their language. They kept the Phoenician names of the letters, suitably +% `greekified', so \textit{aleph} became the familar \textit{alpha} and +% \textit{beth} became \textit{beta}. At this +% point the names of the letters had no meaning. Their were several variants +% of the Greek character glyphs until they were finally fixed in Athens in +% 403~\BC. +% The Greeks did not develop a lower-case +% script until about 600--700~\AD. +% +% The Etruscans based their alphabet on the Greek one, and again modified it. +% However, the Etruscans wrote right to left, so their borrowed characters are +% mirror images of the original Greek ones. Like the Phoenicians, the Etruscan +% script consisted of only one case; they died out before ever needing a +% lower-case script. The Etruscan script was used up until the first century +% \AD, even though the Etruscans themselves had dissapeared by that time. +% +% +% In turn, the Romans based their alphabet on the Etruscan one, but as they +% wrote left to right, the characters were again mirrored (although the early +% Roman inscriptions are boustrophedron). +% +% As the English alphabet is descended from the Roman alphabet +% it has a pedigree of some three and a half thousand years. +% +% \section{The \Lpack{protosem} package} \label{sec:usc} +% +% The Proto-Semitic alphabet provided by this package is probably +% a precursor to the Phoenician alphabet. As far as I can make out +% from Davies~\cite{DAVIES97}, Drucker~\cite{DRUCKER95} and +% Healey~\cite{HEALEY90}, there may have been several proto- alphabets +% being referred to as Proto-Siniatic or Proto-Canaanite for example. +% I have taken what I can from the sources available to me and +% produced a sort of generic Proto-Semitic font. +% +% The alphabet consisted of 23 letters, some of which came in two +% different forms. The writing direction was normally left to right +% but could also be vertical. +% +% \begin{table} +% \begin{addtomargins}{-2in} +% \centering +% \caption{Names and meanings of \thisfont{} letters}\label{tab} +% \begin{tabular}{cllclcl} \hline +% & & & & & \multicolumn{2}{c}{Alternative} \\ +% Value & Name & Meaning & ASCII & command & ASCII & Command \\ \hline +% \textit{a} & alpu & ox & ' a & |\Arq| |\Aa| |\Aaleph| & A & |\AAa| |\AAaleph| \\ +% \textit{b} & betu & house & b & |\Ab| |\Abeth| & B & |\AAb| |\AAbeth| \\ +% \textit{g} & & throw-stick? & g & |\Ag| |\Agimel| & & \\ +% \textit{d} & & fish & d & |\Ad| |\Adaleth| & D & |\AAd| |\AAdaleth| \\ +% \textit{h} & & man? & e & |\Ah| |\Ahe| & E & |\AAh| |\AAhe| \\ +% \textit{w} & wawwu & hook/peg & w & |\Aw| |\Avav| & & \\ +% \textit{z} & & & z & |\Az| |\Azayin| & & \\ +% \textit{\d{h}} & hotu & fence & h & |\Ahd| |\Aheth| & H & |\AAhd| |\AAheth| \\ +% \textit{\d{t}} & & twisted flax & T & |\Atd| |\Ateth| & & \\ +% \textit{y} & yadu & hand/arm & y & |\Ay| |\Ayod| & Y & |\AAy| |\AAyod| \\ +% \textit{k} & kappu & palm of hand & k & |\Ak| |\Akaph| & K & |\AAk| |\AAkaph| \\ +% \textit{l} & lamdu & ox goad/whip & l & |\Al| |\Alamed| & L & |\AAl| |\AAlamed| \\ +% \textit{m} & mayyuma? & water & m & |\Am| |\Amem| & & \\ +% \textit{n} & nahasu & snake & n & |\An| |\Anun| & & \\ +% \textit{o} & enu & eye & ` o & |\Alq| |\Ao| |\Aayin| & O & |\AAo| |\AAayin| \\ +% \textit{s} & & & s & |\As| |\Asamekh| & & \\ +% \textit{p} & & leg/foot? & p & |\Ap| |\Ape| & P & |\AAp| |\AApe| \\ +% \textit{\d{s}} & & plant? & x & |\Asd| |\Asade| & X & |\AAsd| |\AAsade| \\ +% \textit{q} & & knot? & q & |\Aq| |\Aqoph| & Q & |\AAq| |\AAqoph| \\ +% \textit{r} & rasu & head & r & |\Ar| |\Aresh| & R & |\AAr| |\AAresh| \\ +% \textit{\v{s}} & & lotus pool? & S & |\Asv| |\Ashin| & & \\ +% \textit{t} & tawwu & mark & t & |\At| |\Atav| & & \\ +% ??? & & & v & |\Av| |\Ahelmet| & V & |\AAv| |\AAhelmet| \\ +% \hline +% \end{tabular} +% \end{addtomargins} +% \end{table} +% +% Table~\ref{tab} lists, in what I hope is the Proto-Semitic alphabetic order, the +% transliterated values of the characters and, where I know it, the name and +% meaning of the corresponding Proto-Semitic letter. +% Several of the glyphs are obviously based on Egyptian hieroglyphs. +% There seems to be general agreement that the glyphs I have coded as: \\ +% |a b g d e w H T y k l m n o r S t| \\ +% fall into this category. +% +% +% \DescribeMacro{\protofamily} +% This command selects the \thisfont{} font family. The family name is |proto|. +% +% \DescribeMacro{\textproto} +% The command |\textproto{|\meta{text}|}| typesets \meta{text} in the +% \thisfont{} font. +% +% I have provided two means of accessing the \thisfont{} glyphs: +% (a) by ASCII characters, and (b) via commands. These are shown in +% Table~\ref{tab}. The columns headed `Alternative' are for accessing +% an alternative form of the glyph, if it exists. +% +% \DescribeMacro{\translitproto} +% The command |\translitproto{|\meta{commands}|}| will typeset the +% transliteration of the \thisfont{} character commands (those in the +% fifth and seventh columns of Table~\ref{tab}). +% +% \DescribeMacro{\translitprotofont} +% The font used for the transliteration is defined by this macro, +% which is initialsed to an italic font (i.e., |\itshape|). +% +% \StopEventually{ +% \bibliographystyle{alpha} +% +% \begin{thebibliography}{GMS94} +% +% \bibitem[Dav97]{DAVIES97} +% W. V. Davies. +% \newblock \emph{Reading the Past: Egyptian Hieroglyphs}. +% \newblock University of California Press/British Museum, 1997. +% \newblock (ISBN 0-520-06287-6) +% +% \bibitem[Dru95]{DRUCKER95} +% Johanna Drucker. +% \newblock \emph{The Alphabetic Labyrinth}. +% \newblock Thames and Hudson, 1995. +% +% \bibitem[Fir93]{FIRMAGE93} +% Richard A.~Firmage. +% \newblock \emph{The Alphabet Abecedarium}. +% \newblock David R.~Goodine, 1993. +% +% \bibitem[GMS94]{GOOSSENS94} +% Michel Goossens, Frank Mittelbach, and Alexander Samarin. +% \newblock \emph{The LaTeX Companion}. +% \newblock Addison-Wesley Publishing Company, 1994. +% +% \bibitem[Hea90]{HEALEY90} +% John F.~Healey. +% \newblock \emph{Reading the Past: The Early Alphabet}. +% \newblock University of California Press/British Museum, 1990. +% \newblock (ISBN 0-520-07309-6) +% +% \end{thebibliography} +% } +% +% +% \section{The Metafont code} \label{sec:mf} +% +% \subsection{The parameter file} +% +% We deal with the parameter file first, and start by announcing +% what it is for. +% \begin{macrocode} +%<*up> +%%% PROTO10.MF Computer Proto-Semitic font 10 point design size. + +% \end{macrocode} +% Specify the font size. +% \begin{macrocode} + +font_identifier:="protosem"; font_size 10pt#; + +% \end{macrocode} +% +% +% \begin{macro}{u} +% \begin{macro}{ht} +% \begin{macro}{s} +% \begin{macro}{o} +% \begin{macro}{px} +% \begin{macro}{font-normal-space} +% \begin{macro}{font-normal-shrink} +% \begin{macro}{font-x-height} +% \begin{macro}{font-quad} +% Define the very simple font parameters. +% \begin{macrocode} +u#:=.2pt#; % unit width +ht#:=7pt#; % height of characters (CM cap-height is approx 6.8pt) +s#:=1.5pt#; % width correction (right and left) +o#:=1/20pt#; % overshoot +px#:=.6pt#; % horizontal width of pen +font_normal_space:=7pt#; % width of a blank space +font_normal_shrink:=.9pt#; % width correction for blank space +font_x_height:=4.5pt#; % height of one ex +font_quad:=10pt#; % an em + +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% For a full font, the driver file would normally be called here. +% In this case I have embedded it. +% \begin{macrocode} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% end of parameters +% start of driver code +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% \end{macrocode} +% +% +% \subsection{The driver file} +% +% If there was a seperate driver file, this would be its contents. +% +% \begin{macrocode} + +font_coding_scheme:="Protosem glyphs"; +mode_setup; + +% \end{macrocode} +% +% \begin{macro}{ho} +% \begin{macro}{leftloc} +% \begin{macro}{py} +% Perform additional setup. +% \begin{macrocode} +ho#:=o#; % horizontal overshoot +leftloc#:=s#; % leftmost xcoord of character +py#:=.8px#; % vertical thickness of the pen + +define_pixels(s,u); +define_blacker_pixels(px,py); +define_good_x_pixels(leftloc); +define_corrected_pixels(o); % turn on overshoot correction +define_horizontal_corrected_pixels(ho); + +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{midloc} +% \begin{macro}{rightloc} +% Variables for the middle xcoord and rightmost xcoord of a character. +% \begin{macrocode} +numeric midloc, rightloc; +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{stylus} +% Define the pen. +% \begin{macrocode} +pickup pencircle xscaled px yscaled py; +stylus:=savepen; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{beginglyph} +% A macro to save some typing of beginchar arguments. +% \begin{macrocode} +def beginglyph(expr code, unit_width) = + beginchar(code, unit_width*ht#+2s#, ht#, 0); + midloc:=1/2w; rightloc:=(w-s); + pickup stylus enddef; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{cmchar} +% |cmchar| should precede each character +% \begin{macrocode} +let cmchar=\; + +% \end{macrocode} +% \end{macro} +% +% That would be the end of a driver file, except for calling the glyph code. +% +% +% \subsection{The glyph code} +% +% The following code generates the glyphs for the Proto-Semitic font. +% The characters +% are defined in the Phoenician alphabetic ordering. +% +% \begin{macrocode} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% end of driver code +% start of glyph code +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% \end{macrocode} +% +% \begin{macro}{'} +% The Proto-Semitic letter \textit{alpu} (ox). Left profile of an oxhead. +% \begin{macrocode} + +cmchar "Proto-Semitic letter ' (alpu)"; +beginglyph("'",0.8); +numeric n[]; +n1 := rightloc-leftloc; % glyph width +z1=(leftloc, 1/10h); % nose +z5=(x1+y1,0); +z3=(x1+7/8n1, 3/4h); % top of neck +z4=(x3, 1/2y3); % bottom of neck +z2=(1/2[x3,x1],y3); % top of forehead +z6=(x1,h); z7=(rightloc,7/8[y2,y6]); % tips of horns +z10=(1/4[x2,x3],2/3[y4,y3]); % eye +z11=z10 shifted (px*down); +draw z1--z2--z3--z4--z5--cycle; % head +draw z10--z11; % eye +draw z2{left}..z6{up}; % a horn +draw z3..z7{up}; % other horn +labels(1,2,3,4,5,6,7,10); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{a} +% The Proto-Semitic letter \textit{alpu} (ox). Left profile of an oxhead. +% \begin{macrocode} + +cmchar "Proto-Semitic letter alpu (coded as a)"; +beginglyph("a",0.8); +numeric n[]; +n1 := rightloc-leftloc; % glyph width +z1=(leftloc, 1/10h); % nose +z5=(x1+y1,0); +z3=(x1+7/8n1, 3/4h); % top of neck +z4=(x3, 1/2y3); % bottom of neck +z2=(1/2[x3,x1],y3); % top of forehead +z6=(x1,h); z7=(rightloc,7/8[y2,y6]); % tips of horns +z10=(1/4[x2,x3],2/3[y4,y3]); % eye +z11=z10 shifted (px*down); +draw z1--z2--z3--z4--z5--cycle; % head +draw z10--z11; % eye +draw z2{left}..z6{up}; % a horn +draw z3..z7{up}; % other horn +labels(1,2,3,4,5,6,7,10); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{A} +% Alternate Proto-Semitic \textit{alpu} (ox). Right profile of an oxhead. +% \begin{macrocode} + +cmchar "Alternate Proto-Semitic a"; +beginglyph("A",0.8); +numeric n[]; +n1 := rightloc-leftloc; % glyph width +z1=(rightloc, 1/10h); % nose +z5=(x1-y1,0); +z3=(x1-7/8n1, 3/4h); % top of neck +z4=(x3, 1/2y3); % bottom of neck +z2=(1/2[x3,x1],y3); % top of forehead +z6=(x1,h); z7=(leftloc,7/8[y2,y6]); % tips of horns +z10=(1/4[x2,x3],2/3[y4,y3]); % eye +z11=z10 shifted (px*down); +draw z1--z2--z3--z4--z5--cycle; % head +draw z10--z11; % eye +draw z2{right}..z6{up}; % a horn +draw z3..z7{up}; % other horn +labels(1,2,3,4,5,6,7,10); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{b} +% The Proto-Semitic \textit{betu} (house). A square with an opening. +% \begin{macrocode} + +cmchar "Proto-Semitic letter b"; +beginglyph("b",0.8); +z1=(leftloc, 0.2h); z3=(rightloc,0.8h); +z2=(x1,y3); z4=(x3,y1); +z5=1/3[z1,z4]; +draw z1--z2--z3--z4--z5; +labels(1,2,3,4); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{B} +% An alternative Proto-Semitic \textit{betu} (house), a square with a chimney. +% \begin{macrocode} + +cmchar "Proto-Semitic alternate b"; +beginglyph("B",0.8); +z1=(leftloc, 0.1h); z3=(rightloc,0.8h); +z2=(x1,y3); z4=(x3,y1); +z5=1/3[z2,z3]; z6=(x5,h); +z7=2/3[z2,z3]; z8=(x7,y6); +draw z8--z7--z3--z4--z1--z2--z5--z6; +labels(1,2,3,4,5,6,7,8); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{g} +% The Proto-Semitic G. Like a broken stick or a +% throw-stick +% \begin{macrocode} + +cmchar "Proto-Semitic letter g"; +beginglyph("g", 0.7); +x1=leftloc; x3=rightloc; +x2=3/8[x1,x3]; +y1=2/3h; y2=y3=1/3h; +draw z1--z2--z3; +labels(1,2,3,4); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{d} +% The Proto-Semitic fish, facing right. +% \begin{macrocode} + +cmchar "Proto-Semitic letter fish (d)"; +beginglyph("d",1.0); +numeric alpha; +alpha := 3/16h; +%% body +x1=x6=leftloc; x4=rightloc; x2=1/4[x1,x4]; +y2=y4=1/2h; +x3=x5=1/2[x2,x4]; +y1=y5=y2-alpha; y6=y3=y2+alpha; +%% fins +z13=(x3-alpha,y3+alpha); +z15=(x5-alpha,y5-alpha); +draw z1..z2..z3{right}..z4; % body +draw z4..z5{left}..z2..z6--z1; +draw z3--z13; draw z5--z15; % fins +labels(1,2,3,4,5,6,13,15); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{D} +% Alternate Proto-Semitic fish, upright. +% \begin{macrocode} + +cmchar "Alternate Proto-Semitic fish (d)"; +beginglyph("D",0.6); +numeric n[]; +n1 := rightloc-leftloc; % glyph width +numeric alpha; +alpha := 3/8n1; +%% body +z4=(midloc,h); +x1=x3=x4-alpha; x7=x5=x4+alpha; +y1=y7=0; +x2=1/4[x1,x7]; +x6=3/4[x1,x7]; +y2=y6=1/4h; +y3=y5=1/2[y2,y4]; +%% fins +z13=(leftloc,y3-alpha); z15=(rightloc,y13); +draw z1..z2{up}..z3{up}..z4; % body +draw z4..z5{down}..z6{down}..z7--z1; +draw z3--z13; draw z5--z15; % fins +labels(1,2,3,4,5,6,7,13,15); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{E} +% The Proto-Semitic h?, stick man with upraised arms. +% \begin{macrocode} + +cmchar "Proto-Semitic letter h? (E)"; +beginglyph("E",0.6); +numeric alpha, beta; +z1=(midloc,3/4h); +alpha := 1/2(h-y1); +beta := 24/16alpha; % 20/16 too small +z2=(x1,1/2y1); +z3=(leftloc, 1/2[y1,h]); +z4=(x3,2/3[y2,y1]); +z7=(rightloc,y3); +z6=(x7,y4); +z8=(x3,0); +z9=(x7,y8); +z10=(x1,h-alpha); +draw z3--z4--z6--z7; % arms +draw z8--z2--z9; % legs +draw z1--z2; % body +draw fullcircle scaled beta shifted z10; % head +labels(1,2,3,4,5,6,7,8,9,10); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{e} +% An alternate Proto-Semitic h?, abstract stick man +% with upraised arms. +% \begin{macrocode} + +cmchar "Proto-Semitic alternate h? (coded as e)"; +beginglyph("e",0.6); +numeric alpha; +z1=(midloc,h); +alpha := 1/2(h-y1); +z2=(x1,1/3y1); +z3=(leftloc, y1); +z4=(x3,2/3y1); +z7=(rightloc,y3); +z6=(x7,y4); +z8=(x7,y2); +z9=(x8,0); +draw z3--z4--z6--z7; % arms +draw z1--z2--z8--z9; % head, body, and leg +labels(1,2,3,4,5,6,7,8,9,10); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{z} +% Proto-Semitic letter z?. Two horizontal parallel lines. +% \begin{macrocode} + +cmchar "Proto-Semitic letter z? (z)"; +beginglyph("z",0.8); +numeric alpha; +alpha:=0.2h; +x1=x6=leftloc; x5=x10=rightloc; +y1=y5=1/2h+alpha; +y6=y10=1/2h-alpha; +draw z1--z5; % top +draw z6--z10; % bottom +labels(1,2,3,4,5,6,7,8,9,10); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{H} +% The Proto-Semitic \textit{hotu} (fence?) (h sub dot?). Looks like a fence. +% \begin{macrocode} + +cmchar "Proto-Semitic letter hotu (h sub dot?) (coded as H)"; +beginglyph("H", 0.8); +numeric alpha; +alpha:=0.2h; +x1=x6=leftloc; x5=x10=rightloc; +y1=y2=y3=y4=y5=1/2h+alpha; +y6=y7=y8=y9=y10=1/2h-alpha; +x2=x7=1/4[x1,x5]; +x4=x9=3/4[x1,x5]; +x3=x8=1/2[x2,x4]; +draw z1--z5; % fence top +draw z6--z10; % fence bottom +draw z2--z7; draw z3--z8; draw z4--z9; % stakes +labels(1,2,3,4,5,6,7,8,9,10); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{h} +% An alternate Proto-Semitic \textit{hotu} (fence?). Looks like a vertical fence. +% \begin{macrocode} + +cmchar "Alternate Proto-Semitic hotu (coded as h)"; +beginglyph("h", 0.4); +numeric alpha; +x1=x2=x3=x4=x5=leftloc; +x7=x8=x9=rightloc; +y1=0; y5=h; +y2=y7=1/4h; +y4=y9=3/4h; +y3=y8=1/2[y2,y4]; +draw z1--z5; draw z7--z9; % verticals +draw z2--z7; draw z3--z8; draw z4--z9; % horizontals +labels(1,2,3,4,5,6,7,8,9,10); endchar; + +% \end{macrocode} +% \end{macro} +% +% +% \begin{macro}{T} +% The Proto-Semitic t sub dot?. Twisted flax hieroglyph. +% \begin{macrocode} + +cmchar "Proto-Semitic letter t sub dot? (T)"; +beginglyph("T",0.4); +x1=x8=x3=x6=leftloc; x9=x2=x7=x4=rightloc; +x5=midloc; +y1=y9=0; y5=h; +y8=y2=3/12h; +y6=y4=10/12h; +y3=y7=1/2[y8,y6]; +z2'=1/2[z9,z2]; z8'=1/2[z1,z8]; +draw z1{(z2'-z1)}...z2{up}..z3{up}..z4{up}..z5{left}.. + z6{down}..z7{down}..z8{down}...{(z9-z8')}z9; +labels(1,2,3,4,5,6,7,8,9); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{y} +% The Proto-Semitic \textit{yadu} (hand/arm). +% \begin{macrocode} + +cmchar "Proto-Semitic letter y"; +beginglyph("y",1.0); +numeric alpha,beta;; +alpha := 3/8h; +beta := 1/2alpha; +%% the L +x1=x2=leftloc; x3=rightloc; +y1=1/2h+alpha; y2=y3=1/2h-alpha; +%% the TV arial +z4=1/2[z2,z3]; +z6=(x3,3/4[y2,y1]); +z5=1/2[z4,z6]; +z4l=z4 shifted (beta*dir(135)); z4r=z4 shifted (beta*dir(-45)); +z5l=z5 shifted (beta*dir(135)); z5r=z5 shifted (beta*dir(-45)); +z6l=z6 shifted (beta*dir(135)); z6r=z6 shifted (beta*dir(-45)); + +draw z1--z2--z3; +draw z4--z6; +draw z4l--z4r; draw z5l--z5r; draw z6l--z6r; +labels(1,2,3,4,5,6); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{Y} +% Alternate Proto-Semitic \textit{yadu} (hand/arm). +% \begin{macrocode} + +cmchar "Alternate Proto-Semitic y"; +beginglyph("Y",1.0); +z1=(leftloc,h); z3=(rightloc,0); +z2=1/2[z1,z3]; +z4=(x2,y1); z5=(x3,y2); +draw z1--z3; +draw z4--z2--z5; +labels(1,2,3,4,5,6); endchar; + +% \end{macrocode} +% \end{macro} +% +% +% \begin{macro}{k} +% The Proto-Semitic \textit{kappu} (palm of the hand). +% \begin{macrocode} + +cmchar "Proto-Semitic letter k"; +beginglyph("k",0.8); +numeric alpha; +alpha:=0.8; +numeric n[]; +n1 := rightloc-leftloc; % glyph width +n2 := 1/8n1; +z1=(leftloc+n2, h); z3=(rightloc-n2, y1); +z11=(leftloc, 1/4h); z13=(rightloc,y11); +z2=(midloc,0); +z6=(1/3[x1,x3], y1); z7=(x6, 0.2h); +z8=(2/3[x1,x3], y6); z9=(x8,y7); +draw z1..{down}z11..z2..{up}z13..z3; % bowl +draw z6--z7; draw z8--z9; % uprights +labels(1,2,3,4,5,6,7,8,9,10,11,12,13); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{K} +% An alternate Proto-Semitic \textit{kappu}. +% \begin{macrocode} + +cmchar "Alternate Proto-Semitic k"; +beginglyph("K",0.8); +numeric alpha; +alpha:=0.8; +numeric n[]; +n1 := rightloc-leftloc; % glyph width +n2 := 1/8n1; +z1=(leftloc+n2, h); z3=(rightloc-n2, y1); +z11=(leftloc, 1/3h); z13=(rightloc,y11); +z2=(midloc,0); +z6=(x2, y1); z7=(x6, 0); +z8=(2/3[x1,x3], y6); z9=(x8,y7); +draw z1..{down}z11..z2..{up}z13..z3; % bowl +draw z6--z7; %% draw z8--z9; % uprights +labels(1,2,3,4,5,6,7,8,9,10,11,12,13); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{l} +% The Proto-Semitic \textit{lamdu} (ox goad). A long spiral. +% \begin{macrocode} + +cmchar "Proto-Semitic letter l"; +beginglyph("l",0.8); +z1=(1/4[leftloc,rightloc], 2/3h); +z3=(x1,h); +z4=(leftloc,1/2[y1,y3]); +z2=(1/2[leftloc,rightloc],y4); +z6=(rightloc,0); +z5=(1/2[x4,x3], 8/10[y6,y1]); +draw z1{right}..z2{up}..z3{left}..z4{down}..z5..z6; +labels(1,2,3,4,5,6); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{L} +% Alternate Proto-Semitic \textit{lamdu} (ox goad). A long spiral. +% \begin{macrocode} + +cmchar "Alternate Proto-Semitic l"; +beginglyph("L",0.8); +z1=(1/4[rightloc,leftloc], 2/3h); +z3=(x1,h); +z4=(rightloc,1/2[y1,y3]); +z2=(1/2[rightloc,leftloc],y4); +z6=(leftloc,0); +z5=(1/2[x4,x3], 8/10[y6,y1]); +draw z1{left}..z2{up}..z3{right}..z4{down}..z5..z6; +labels(1,2,3,4,5,6); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{m} +% The Proto-Semitic \textit{mayyuma} (water). A jagged line. +% \begin{macrocode} + +cmchar"Proto-Semitic letter m"; +beginglyph("m",1.0); +numeric alpha; +alpha := 1/16h; +z1=(leftloc,1/2h-alpha); +z10=(rightloc,1/2h+alpha); +x2=1/7[x1,x10]; +x3=2/7[x1,x10]; +x4=3/7[x1,x10]; +x5=4/7[x1,x10]; +x6=5/7[x1,x10]; +x7=6/7[x1,x10]; +y2=y4=y6=y10; +y3=y5=y7=y1; +draw z1--z2--z3--z4--z5--z6--z7--z10; +labels(1,2,3,4,5,6,7,8,9,10); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{n} +% The Proto-Semitic \textit{nahasu} (snake). A wriggling cobra. +% \begin{macrocode} + +cmchar "Proto-Semitic letter n"; +beginglyph("n",1.0); +numeric alpha; +alpha := 3/8h; +z1=(leftloc,1/2h+alpha); +z3=(1/4[leftloc,rightloc],1/2h); +z5=(rightloc,y3-1/2alpha); +z4=(3/4[leftloc,rightloc],y3); +draw z1{dir(-20)}..{down}z3--z4{right}..z5; +labels(1,2,3,4,5); endchar; + +% \end{macrocode} +% \end{macro} +% +% +% +% \begin{macro}{`} +% The Proto-Semitic \textit{enu} (eye). +% \begin{macrocode} + +cmchar "Proto-Semitic letter enu (`)"; +beginglyph("`",1.0); +numeric alpha; +path pth[]; +alpha := 3/16h; +z1=(leftloc,1/2h); +z3=(rightloc,y1); +z2=(1/2[x1,x3],y1+alpha); +z4=(x2,y1-alpha); +pth1 := z1..z2..z3; +pth2 := z1..z4..z3; +z5 = point 0.75 of pth1; +z7 = point 1.25 of pth1; +z6=1/2[z1,z3]; +draw pth1; draw pth2; % the eye +draw z5..z6..z7; % the pupil +labels(1,2,3,4,5,6,7); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{o} +% The Proto-Semitic \textit{enu} (eye). +% \begin{macrocode} + +cmchar "Proto-Semitic letter enu (coded as o)"; +beginglyph("o",1.0); +numeric alpha; +path pth[]; +alpha := 3/16h; +z1=(leftloc,1/2h); +z3=(rightloc,y1); +z2=(1/2[x1,x3],y1+alpha); +z4=(x2,y1-alpha); +pth1 := z1..z2..z3; +pth2 := z1..z4..z3; +z5 = point 0.75 of pth1; +z7 = point 1.25 of pth1; +z6=1/2[z1,z3]; +draw pth1; draw pth2; % the eye +draw z5..z6..z7; % the pupil +labels(1,2,3,4,5,6,7); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{O} +% An alternative Proto-Semitic \textit{enu} (eye). +% \begin{macrocode} + +cmchar "Alternative Proto-Semitic o"; +beginglyph("O",1.0); +numeric alpha; +path pth[]; +alpha := 3/16h; +z1=(leftloc,1/2h); +z3=(rightloc,y1); +z2=(1/2[x1,x3],y1+alpha); +z4=(x2,y1-alpha); +pth1 := z1..z2..z3; +pth2 := z1..z4..z3; +%z5 = point 0.75 of pth1; +%z7 = point 1.25 of pth1; +%z6=1/2[z1,z3]; +draw pth1; draw pth2; % the eye +%draw z5..z6..z7; % the pupil +labels(1,2,3,4,5,6,7); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{s} +% The Proto-Semitic letter s?. A box with a tail. +% \begin{macrocode} + +cmchar "Proto-Semitic letter s? (s)"; +beginglyph("s", 1.0); +numeric alpha; +alpha := 0.1*(rightloc-leftloc); +z1=(leftloc+alpha, h/2); z3=(rightloc,y1); +z2=(1/2[x1,x3], h); z4=(x2,0); +z5=(leftloc,1/2[y1,y4]); +draw z1--z2--z3--z4--cycle; +draw z1--z5; +labels(1,2,3,4,5); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{q} +% The Proto-Semitic q? figure of eight (a knot?). +% \begin{macrocode} + +cmchar "Proto-semitic letter q? figure-of-eight (q)"; +beginglyph("q", 1.0); +numeric alpha; +alpha := 3/16h; +z1=(leftloc,h/2); z6=(rightloc,y1); +%% left oval +z3=2/3[z1,z6]; +x4=x2=1/2[x1,x3]; y2=y1+alpha; y4=y1-alpha; +%% right oval +x5=x7=1/2[x3,x6]; y5=y1+3/4alpha; y7=y1-3/4alpha; +draw z1..z2..z3..z4..cycle; +draw z3..z5..z6..z7..cycle; +labels(1,2,3,4,5,6,7); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{Q} +% An alternate Proto-Semitic figure of eight (a knot?). +% \begin{macrocode} + +cmchar "Alternate Proto-Semitic figure-of-eight (coded as Q)"; +beginglyph("Q", 0.5); +numeric alpha; +z1=(midloc,0); z6=(midloc,h); +%% bottom oval +z3=2/3[z1,z6]; +y4=y2=1/2[y1,y3]; x2=leftloc; x4=rightloc; +%% top oval +y5=y7=1/2[y3,y6]; x5=1/2[x2,x3]; x7=1/2[x3,x4]; +draw z1..z2..z3..z4..cycle; +draw z3..z5..z6..z7..cycle; +labels(1,2,3,4,5,6,7); endchar; + +% \end{macrocode} +% \end{macro} +% +% +% \begin{macro}{w} +% The Proto-Semitic \textit{wawwu} (hook/peg). Like a lamppost. +% \begin{macrocode} + +cmchar "Proto-Semitic letter w"; +beginglyph("w",0.4); +numeric alpha; +x1=leftloc; +x3=rightloc; +alpha=0.5(x3-x1); % circle radius +y2=h; +y4=y2-2alpha; +bot y5=-o; +x2=x4=x5=midloc; +y1=y3=h-alpha; +draw z1..z2..z3..z4..cycle; % the circle +draw z5--z4; % the upright +labels(1,2,3,4,5); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{r} +% The Proto-Semitic \textit{rasu} (head). It looks like a head in left +% profile wearing a skull cap. +% \begin{macrocode} + +cmchar "Proto-Semitic letter r"; +beginglyph("r", 0.8); +numeric alpha,beta; +alpha := 1/20w; +pair vec[]; +z2=(leftloc,1/3h); % tip of nose +z9=(rightloc,0); % base of back of neck +z1=(1/3[leftloc,rightloc],0); % base of front of neck +z3=(x1,3/4h); % front of hat +z6=(1/2[x1,x9], 3/4[y1,y2]); % nape of neck +z5=(1/2[x6,x9], 1/2[y2,y3]); % back of hat +z4=(9/12[x3,x5], h); % top of head +z10'=9/16[z2,z3]; % eye +z10=(x10'+5/2alpha, y10'); +beta := angle(z5-z3); +vec1 := dir(beta); +vec2=(z3-z2); +z11=z10 shifted (alpha*vec1); +z9'=(x5,y9); +draw z1{up}..z2; % chin +draw z2--z3{vec2}..z4{right}..z5..z6..{down}z9'; % head +draw z3--z5; % hat +draw z10--z11; % eye +labels(1,2,3,4,5,6,7,8,9,9',10,11); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{R} +% An alternate Proto-Semitic \textit{rasu} (head). It looks like a head in +% right profile. +% \begin{macrocode} + +cmchar "Alternate Proto-Semitic r (coded as R)"; +beginglyph("R", 0.8); +numeric alpha, beta; +alpha := 1/20w; +pair vec[]; +z2=(rightloc,1/3h); % tip of nose +z9=(leftloc,0); % base of back of neck +z1=(1/3[rightloc,leftloc],0); % base of front of neck +z3=(x1,3/4h); % front of hat +z6=(1/2[x1,x9], 3/4[y1,y2]); % nape of neck +z5=(1/2[x6,x9], 1/2[y2,y3]); % back of hat +z4=(9/12[x3,x5], 9/10h); % top of head +z10'=11/16[z2,z3]; % eye +z10=(x10'-5/2alpha, y10'); +beta := angle(z5-z3); +vec1 := dir(angle(z5-z3)); +vec2=(z3-z2); +z11=z10 shifted (alpha*vec1); +z9'=(x5,y9); +draw z1{up}..z2; % chin +draw z2--z3{vec2}..z4{left}..z5..z6..{down}z9'; % head +%%draw z3--z5; % hat +draw z10--z11; % eye +labels(1,2,3,4,5,6,7,8,9,9',10,11); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{S} +% The Proto-Semitic letter s sup v. It's like a modern lowercase w. +% \begin{macrocode} + +cmchar "Proto-Semitic letter s sup v (coded as S)"; +beginglyph("S", 1.0); +z2=(leftloc,1/4h); z6=(rightloc,y2); +z3=(1/4[x2,x6], 0); z5=(3/4[x2,x6], y3); +z1=(x3,6/8h); z7=(x5,y1); +z4=(1/2[x3,x5],y2); +draw z1..z2{down}..z3{right}..{up}z4; +draw z7..z6{down}..z5{left}..{up}z4; +labels(1,2,3,4,5,6,7); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{t} +% The Proto-Semitic \textit{tawwu} (mark). A cross. +% \begin{macrocode} + +cmchar "Proto-Semitic letter t"; +beginglyph("t", 0.8); +numeric alpha; +alpha := midloc-leftloc; +z10=(midloc,1/2h); +z1=(leftloc,y10); z2=(rightloc,y1); +z3=(x10,y10+alpha); +z4=(x3,y10-alpha); +draw z1--z2; % horizontal +draw z3--z4; % vertical +labels(1,2,3,4,10); endchar; + + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{p} +% The Proto-Semitic letter looking like a leg \& foot, p?. +% \begin{macrocode} + +cmchar "Proto-Semitic letter like a leg & foot (p)"; +beginglyph("p", 0.8); +x1=x2=leftloc; y1=17/20h; y2=3/20h; +z3=(rightloc,y2); +x6=1/4[x2,x3]; y6=y1; +x5=x6; y5 = y2 + (x6-x1); +x4=x3 -(y5-y2); y4=y5; +draw z1--z2--z3; +draw z6--z5--z4{right}..{down}z3; +labels(1,2,3,4,5,6); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{P} +% Alternate Proto-Semitic letter looking like a leg \& foot. Looks like an +% elbow in this case. +% \begin{macrocode} + +cmchar "Alternate Proto-Semitic letter like a leg & foot (coded as P)"; +beginglyph("P", 0.8); +numeric alpha; +alpha := 2/10(rightloc-leftloc); +x1=rightloc; x2=leftloc; y1=17/20h; y2=3/20h; +z5=(x1-alpha, y1); +z6=(x2,y2+alpha); +z0=(x1,y2); z10=(x2,y1); +z3=3/20[z0,z10]; +z7=7/20[z0,z10]; +draw z1{down}..z3..{left}z2; +draw z5{down}..z7..{left}z6; +labels(1,2,3,4,5,6,7,8); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{x} +% The Proto-Semitic letter looking like a plant. S sub dot? +% \begin{macrocode} + +cmchar "Proto-Semitic letter like a plant, S sub dot? (coded as x)"; +beginglyph("x", 1.0); +x1=x2=midloc; +x3=leftloc; x4=rightloc; +y1=0; y2=h; +y3=y4=2/3h; +draw z1--z2; % the stem +draw z1{up}..z3; draw z1{up}..z4; % the leaves +labels(1,2,3,4); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{X} +% Alternate Proto-Semitic letter looking like a plant. +% \begin{macrocode} + +cmchar "Alternate Proto-Semitic letter like a plant (X)"; +beginglyph("X", 0.8); +x1=x2=midloc; +x3=leftloc; x4=rightloc; +y1=0; y2=h; +z5=1/2[z1,z2]; +y3=y4=h; +draw z1--z2; % the stem +draw z5{up}..z3; draw z5{up}..z4; % the leaves +labels(1,2,3,4); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{v} +% Proto-Semitic letter looking like a viking helmet. +% \begin{macrocode} + +cmchar "Proto-Semitic letter like a viking helmet (v)"; +beginglyph("v", 0.8); +path pth[]; +%% helmet +z1=(leftloc,0); z7=(rightloc,0); +z4=(midloc,h); +pth1 := z1{up}..{(1,2)}z4{(1,-2)}..z7{down}; +%% wings +z3 = point 0.75 of pth1; +z13=(leftloc,h); +z5 = point 1.25 of pth1; +z15=(rightloc,y13); +draw pth1; draw z7--z1; % helmet +draw z3--z13; draw z5--z15; % 2 wings +labels(1,2,3,4,5,6,7,13,15,16); endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{V} +% Alternate Proto-Semitic letter looking like a viking helmet. +% \begin{macrocode} + +cmchar "Alternate Proto-Semitic letter like a viking helmet (V)"; +beginglyph("V", 0.8); +path pth[]; +%% helmet +z1=(leftloc,0); z7=(rightloc,0); +z4=(midloc,13/16h); +y2=y6=3/4[y1,y4]; +x2=2/10[x1,x7]; x6=2/10[x7,x1]; +pth1 := z1--z2{(z2-z1)}..z4{right}..{(z7-z6)}z6--z7--cycle; +pth2 := subpath (1,3) of pth1; +%% wings +z3 = point 0.5 of pth2; +z13=(leftloc,h); +z5 = point 1.5 of pth2; +z15=(rightloc,y13); +z16'=z6 shifted (h*(2,1)); +z16=whatever[z6,z16']; x16=rightloc; +draw pth1; % helmet +draw z3--z13; draw z5--z15; draw z6--z16; % 3 wings +labels(1,2,3,4,5,6,7,13,15,16); endchar; + +% \end{macrocode} +% \end{macro} +% +% The end of the glyphs and the file +% +% \begin{macrocode} + +end + +% +% \end{macrocode} +% +% +% +% \section{The font definition files} \label{sec:fd} +% +% \begin{macrocode} +%<*fdot1> +\DeclareFontFamily{OT1}{proto}{} + \DeclareFontShape{OT1}{proto}{m}{n}{ <-> proto10 }{} + \DeclareFontShape{OT1}{proto}{bx}{n}{ <-> sub proto/m/n }{} + \DeclareFontShape{OT1}{proto}{b}{n}{ <-> sub proto/m/n }{} + \DeclareFontShape{OT1}{proto}{m}{sl}{ <-> sub proto/m/n }{} + \DeclareFontShape{OT1}{proto}{m}{it}{ <-> sub proto/m/n }{} +% +% \end{macrocode} +% +% +% \begin{macrocode} +%<*fdt1> +\DeclareFontFamily{T1}{proto}{} + \DeclareFontShape{T1}{proto}{m}{n}{ <-> proto10 }{} + \DeclareFontShape{T1}{proto}{bx}{n}{ <-> sub proto/m/n }{} + \DeclareFontShape{T1}{proto}{b}{n}{ <-> sub proto/m/n }{} + \DeclareFontShape{T1}{proto}{m}{sl}{ <-> sub proto/m/n }{} + \DeclareFontShape{T1}{proto}{m}{it}{ <-> sub proto/m/n }{} +% +% \end{macrocode} +% +% \section{The \Lpack{protosem} package code} \label{sec:code} +% +% Announce the name and version of the package, which requires +% \LaTeXe{}. +% \begin{macrocode} +%<*usc> +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{protosem}[2005/03/18 v1.2 package for Proto-Semitic fonts] +% \end{macrocode} +% +% +% \begin{macro}{\protofamily} +% Selects the font family in the T1 encoding. +% \begin{macrocode} +\newcommand{\protofamily}{\usefont{T1}{proto}{m}{n}} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\textproto} +% Text command for the font family. +% \begin{macrocode} +\DeclareTextFontCommand{\textproto}{\protofamily} + +% \end{macrocode} +% \end{macro} +% +% The commands for the signs. +% \changes{v1.3}{2005/07/21}{Changed \cs{Amum} to \cs{Amem}} +% \begin{macrocode} +\chardef\Arq=`' +\chardef\Aa=`a \chardef\Aaleph=`a +\chardef\Ab=`b \chardef\Abeth=`b +\chardef\Ag=`g \chardef\Agimel=`g +\chardef\Ad=`d \chardef\Adaleth=`d +\chardef\Az=`z \chardef\Azayin=`z +\chardef\Ah=`e \chardef\Ahe=`e +\chardef\Aw=`w \chardef\Avav=`w +\chardef\Ahd=`H \chardef\Aheth=`H +\chardef\Atd=`T \chardef\Ateth=`T +\chardef\Ay=`y \chardef\Ayod=`y +\chardef\Ak=`k \chardef\Akaph=`k +\chardef\Al=`l \chardef\Alamed=`l +\chardef\Am=`m \chardef\Amem=`m +\chardef\An=`n \chardef\Anun=`n +\chardef\Alq=`` +\chardef\Ao=`o \chardef\Aayin=`o +\chardef\As=`s \chardef\Asamekh=`s +\chardef\Ap=`p \chardef\Ape=`p +\chardef\Asd=`x \chardef\Asade=`x +\chardef\Aq=`q \chardef\Aqoph=`q +\chardef\Ar=`r \chardef\Aresh=`r +\chardef\Asv=`S \chardef\Ashin=`S +\chardef\Av=`v \chardef\Ahelmet=`v +\chardef\At=`t \chardef\Atav=`t + +\chardef\AAa=`A \chardef\AAaleph=`A +\chardef\AAb=`B \chardef\AAbeth=`B +\chardef\AAd=`D \chardef\AAdaleth=`D +\chardef\AAh=`E \chardef\AAhe=`E +\chardef\AAhd=`h \chardef\AAheth=`h +\chardef\AAy=`Y \chardef\AAyod=`Y +\chardef\AAk=`K \chardef\AAkaph=`K +\chardef\AAl=`L \chardef\AAlamed=`L +\chardef\AAo=`O \chardef\AAayin=`O +\chardef\AAp=`P \chardef\AApe=`P +\chardef\AAsd=`X \chardef\AAsade=`X +\chardef\AAq=`Q \chardef\AAqoph=`Q +\chardef\AAr=`R \chardef\AAresh=`R +\chardef\AAv=`V \chardef\AAhelmet=`V + +% \end{macrocode} +% +% \begin{macro}{\translitproto} +% \begin{macro}{\transliprotofont} +% |\translitproto{|\meta{commands}|}| transliterates +% \meta{commands} using the |\translitproto| font. +% \begin{macrocode} +\newcommand{\translitproto}[1]{{% + \@translitPS\translitprotofont #1}} +\newcommand{\translitprotofont}{\itshape} + +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\@translitPS} +% This macro redefines all the character commands to produce +% the transliterated value instead of the glyph. There must be no +% spaces in the definition. +% \begin{macrocode} +\newcommand{\@translitPS}{% +\def\Arq{'}% +\def\Aa{'}\def\Aaleph{\Aa}\def\AAa{\Aa}\def\AAaleph{\Aa}% +\def\Ab{b}\def\Abeth{\Ab}\def\AAb{\Ab}\def\AAbeth{\Ab}% +\def\Ag{g}\def\Agimel{\Ag}% +\def\Ad{d}\def\Adaleth{\Ad}\def\AAd{\Ad}\def\AAdaleth{\Ad}% +\def\Ae{h}\def\Ahe{\Ae}\def\AAe{\Ae}\def\AAhe{\Ae}% +\def\Az{z}\def\Azayin{\Az}% +\def\Aw{w}\def\Avav{\Aw}% +\def\Ahd{\d{h}}\def\Aheth{\Ahd}\def\AAhd{\Ahd}\def\AAheth{\Ahd}% +\def\Atd{\d{t}}\def\Ateth{\Atd}% +\def\Ay{y}\def\Ayod{\Ay}\def\AAy{\Ay}\def\AAyod{\Ay}% +\def\Ak{k}\def\Akaph{\Ak}\def\AAk{\Ak}\def\AAkaph{\Ak}% +\def\Al{l}\def\Alamed{\Al}\def\AAl{\Al}\def\AAlamed{\Al}% +\def\Am{m}\def\Amem{\Am}% +\def\An{n}\def\Anun{\An}% +\def\Alq{`}% +\def\Ao{`}\def\Aayin{\Ao}\def\AAo{\Ao}\def\AAayin{\Ao}% +\def\As{s}\def\Asamekh{\As}% +\def\Ap{p}\def\Ape{\Ap}\def\AAp{\Ap}\def\AApe{\Ap}% +\def\Asd{\d{s}}\def\Asade{\Asd}\def\AAsd{\Asd}\def\AAsade{\Asd}% +\def\Aq{q}\def\Aqoph{\Aq}\def\AAq{\Aq}\def\AAqoph{\Aq}% +\def\Ar{r}\def\Aresh{\Ar}\def\AAr{\Ar}\def\AAresh{\Ar}% +\def\Asv{\v{s}}\def\Ashin{\Asv}% +\def\Av{?}\def\Ahelmet{\Av}\def\AAv{\Av}\def\AAhelmet{\Av}% +\def\At{t}\def\Atav{\At}% +} + +% \end{macrocode} +% \end{macro} +% +% +% +% The end of this package. +% \begin{macrocode} +% +% \end{macrocode} +% +% \section{The Postscript Type1 map} \label{sec:map} +% +% Just one line. +% \changes{v1.2}{2005/03/18}{Added map file} +% \begin{macrocode} +%<*map> +proto10 Archaic-ProtoSemitic +% \end{macrocode} +% +% \Finale +% \PrintIndex +% +\endinput + +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} + + diff --git a/fonts/archaic/protosem/protosem.ins b/fonts/archaic/protosem/protosem.ins new file mode 100644 index 0000000000..8fdd0c07c1 --- /dev/null +++ b/fonts/archaic/protosem/protosem.ins @@ -0,0 +1,97 @@ +%% protosem.ins +%% Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net +%% Copyright 1999 -- 2005 Peter R. Wilson +%% +%% This work may be distributed and/or modified under the +%% conditions of the Latex Project Public License, either +%% version 1.3 of this license or (at your option) any +%% later version. +%% The latest version of the license is in +%% http://www.latex-project.org/lppl.txt +%% and version 1.3 or later is part of all distributions of +%% LaTeX version 2003/06/01 or later. +%% +%% This work has the LPPL maintenance status "author-maintained". +%% +%% This work consists of the files listed in the README file. +%% +%% This file will generate fast loadable files from the doc files +%% in this work when run through LaTeX +%% +%% --------------------- start of docstrip commands -------------- +%% +\def\batchfile{protosem.ins} +\input docstrip.tex +\preamble +------------------------------------------------------------------ + Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net + Copyright 1999 -- 2005 Peter R. Wilson + + This work may be distributed and/or modified under the + conditions of the Latex Project Public License, either + version 1.3 of this license or (at your option) any + later version. + The latest version of the license is in + http://www.latex-project.org/lppl.txt + and version 1.3 or later is part of all distributions of + LaTeX version 2003/06/01 or later. + + This work has the LPPL maintenance status "author-maintained". + + This work consists of the files listed in the README file. +------------------------------------------------------------------ +\endpreamble + +\keepsilent + +%%% \Msg{*** Generating the driver file ***} +%%% \generateFile{protosem.drv}{t}{\from{protosem.dtx}{driver}} + +%%%\Msg{*** Generating the Metafont files ***} +%%%\usepostamble\empty +%%%\generateFile{proto10.mf}{t}{\from{protosem.dtx}{up}} + +\Msg{*** Generating the Font Definition files ***} +\usepostamble\defaultpostamble + +\generateFile{ot1proto.fd}{t}{\from{protosem.dtx}{fdot1}} +\generateFile{t1proto.fd}{t}{\from{protosem.dtx}{fdt1}} + +\Msg{*** Generating the LaTeX2e package files ***} +\usepostamble\defaultpostamble + +\generateFile{protosem.sty}{t}{\from{protosem.dtx}{usc}} + +\Msg{*** Generating the Postscript Type1 map files ***} +\usepreamble\empty +\usepostamble\empty +\generateFile{protosem.map}{t}{\from{protosem.dtx}{map}} + +\Msg{***********************************************************} +\Msg{*} +\Msg{* To continue the installation you have to move the following} +\Msg{* files into directories searched by TeX:} +\Msg{*} +%%\Msg{* Move these into the font source area:} +%%\Msg{* \space\space proto10.mf} +%%\Msg{* \space\space protoglyph.mf} +%%\Msg{* \space\space prototitle.mf} +\Msg{*} +\Msg{* Move these into the LaTeX macro area:} +\Msg{* \space\space ot1proto.fd} +\Msg{* \space\space t1proto.fd} +\Msg{* \space\space protosem.sty} +\Msg{*} +\Msg{* Further installation instructions are in the README} +\Msg{*} +\Msg{* To produce the documentation run the files ending with} +\Msg{* `.dtx' through LaTeX.} +\Msg{* Process any name.idx file by:} +\Msg{* \space\space\space\space makeindex -s gind.ist name} +\Msg{* Process any name.glo file by:} +\Msg{* \space\space\space\space makeindex -s gglo.ist -o name.gls name.glo} +\Msg{*} +\Msg{* Happy TeXing} +\Msg{***********************************************************} + +\endinput diff --git a/fonts/archaic/protosem/protosem.pdf b/fonts/archaic/protosem/protosem.pdf new file mode 100644 index 0000000000..ce760ad371 Binary files /dev/null and b/fonts/archaic/protosem/protosem.pdf differ diff --git a/fonts/archaic/protosem/tryprotosem.pdf b/fonts/archaic/protosem/tryprotosem.pdf new file mode 100644 index 0000000000..5c318100c7 Binary files /dev/null and b/fonts/archaic/protosem/tryprotosem.pdf differ diff --git a/fonts/archaic/protosem/tryprotosem.tex b/fonts/archaic/protosem/tryprotosem.tex new file mode 100644 index 0000000000..4a2bbed130 --- /dev/null +++ b/fonts/archaic/protosem/tryprotosem.tex @@ -0,0 +1,78 @@ +% tryprotosem.tex Test Proto-Semitic fonts +\documentclass[11pt]{article} +\usepackage{protosem} + +\newcommand{\thisfont}{Proto-Semitic} +\newcommand{\ABC}{A B D e E Y K L O P X Q R V} +\newcommand{\abc}{a b g d z h w H T y k l m n o s p x q r S v t} + +\providecommand{\translitproto}[1]{} + +\title{The Proto-Semitic Fonts} +\author{Peter Wilson \\ \texttt{herries dot press at earthlink dot net}} +%%\author{} +\date{} +\begin{document} +\maketitle + + This provides a short test of the characters in the \thisfont{} fonts +--- the \verb|proto| font family. + + Following the declaration \verb?\protofamily? the \thisfont{} font +is used. For just a few characters the \verb?\textproto{arg}? macro will +typeset \verb?arg? in the \thisfont{} font. + +\begin{center} +The \thisfont{} font, and alternate glyphs, in the huge size \\ +{\protofamily\huge \abc\\ \ABC\\} +\end{center} + +\begin{center} +The font, and alternates, in its normal size followed by the Computer Modern Roman +for comparison \\ +\textproto{\abc} \\ \textproto{\ABC} \\ +\abc \\ \ABC +\end{center} + + The macro \verb?\translitproto{}? will give a transliteration +of the commands in its argument. For example, + \thisfont, as near as possible, in \thisfont{} is: \textproto{proto Semitig}, +which transliterates as \translitproto{\Ap\Ar\Ao\At\Ao{} \Asv\Ae\Am\At\Ag}. + + +\begin{table} +\centering +\caption{Alphabet and commands} +\begin{tabular}{|l|l|c|c|c|l|} \hline +Name & Meaning & Value & Glyph(s) & ASCII & Commands \\ \hline +alpu & ox & \translitproto{\Aa} & \textproto{a} \textproto{A} & a A & \verb|\Aa| \verb|\Aaleph| \verb|\AAa| \verb|\AAaleph| \\ +betu & house & \translitproto{\Ab} & \textproto{b} \textproto{B} & b B & \verb|\Ab| \verb|\Abeth| \verb|\AAb| \verb|\AAbeth| \\ +?? & throw-stick? & \translitproto{\Ag} & \textproto{g} & g & \verb|\Ag| \verb|\Agimel| \\ +?? & fish? & \translitproto{\Ad}? & \textproto{d} \textproto{D} & d D & \verb|\Ad| \verb|\Adaleth| \verb|\AAd| \verb|\AAdaleth| \\ +?? & man? & \translitproto{\Ah}? & \textproto{e} \textproto{E} & e E & \verb|\Ae| \verb|\Ahe| \verb|\AAe| \verb|\AAhe| \\ +wawwu & hook/peg & \translitproto{\Aw} & \textproto{w} & w & \verb|\Aw| \verb|\Avav| \\ +?? & ?? & \translitproto{\Az} & \textproto{z} & z & \verb|\Az| \verb|\Azayin| \\ +hotu & fence & \translitproto{\Ahd} & \textproto{h} \textproto{H} & h H & \verb|\Ahd| \verb|\Aheth| \verb|\AAhd| \verb|\AAheth| \\ +?? & twisted flax & \translitproto{\Atd}? & \textproto{T} & T & \verb|\Atd| \verb|\Ateth| \\ +yadu & hand/arm & \translitproto{\Ay} & \textproto{y} \textproto{Y} & y Y & \verb|\Ay| \verb|\Ayod| \verb|\AAy| \verb|\AAyod| \\ +kappu & palm of hand & \translitproto{\Ak} & \textproto{k} \textproto{K} & k K & \verb|\Ak| \verb|\Akaph| \verb|\AAk| \verb|\AAkaph| \\ +lamdu & ox goad & \translitproto{\Al} & \textproto{l} \textproto{L} & l L & \verb|\Al| \verb|\Alamed| \verb|\AAl| \verb|\AAlamed| \\ +mayyuma? & water & \translitproto{\Am} & \textproto{m} & m & \verb|\Am| \verb|\Amem| \\ +nahasu & snake & \translitproto{\An} & \textproto{n} & n & \verb|\An| \verb|\Anun| \\ +enu & eye & \translitproto{\Ao} & \textproto{o} \textproto{O} & o O & \verb|\Ao| \verb|\Aayin| \verb|\AAo| \verb|\AAayin| \\ +?? & ?? & \translitproto{\As}? & \textproto{s} & s & \verb|\As| \verb|\Asamekh| \\ +?? & leg/foot? & \translitproto{\Ap}? & \textproto{p} \textproto{P} & p P & \verb|\Ap| \verb|\Ape| \verb|\AAp| \verb|\AApe| \\ +?? & plant? & \translitproto{\Asd}? & \textproto{x} \textproto{X} & x X & \verb|\Asd| \verb|\Asade| \verb|\AAsd| \verb|\AAsade| \\ +?? & knot? & \translitproto{\Aq}? & \textproto{q} \textproto{Q} & q Q & \verb|\Aq| \verb|\Aqoph| \verb|\AAq| \verb|\AAqoph| \\ +rasu & head & \translitproto{\Ar} & \textproto{r} \textproto{R} & r R & \verb|\Ar| \verb|\Aresh| \verb|\AAr| \verb|\AAresh| \\ +?? & lotus pool? & \translitproto{\Asv} & \textproto{S} & S & \verb|\Asv| \verb|\Ashin| \\ +tawwu & mark & \translitproto{\At} & \textproto{t} & t & \verb|\At| \verb|\Atav| \\ +%%%?? & ?? & \translitproto{\Au} & \textproto{u} \textproto{U} & u U & \verb|\Au| \verb|\Afoot| \verb|\AAu| \verb|\AAfoot| \\ +?? & ?? & \translitproto{\Av} & \textproto{v} \textproto{V} & v V & \verb|\Av| \verb|\Ahelmet| \verb|\AAv| \verb|\AAhelmet| \\ +\hline +\end{tabular} +\end{table} + + + +\end{document} -- cgit v1.2.3