summaryrefslogtreecommitdiff
path: root/fonts/archaic/ugarite
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/archaic/ugarite
Initial commit
Diffstat (limited to 'fonts/archaic/ugarite')
-rw-r--r--fonts/archaic/ugarite/README86
-rw-r--r--fonts/archaic/ugarite/cugar10.afm278
-rw-r--r--fonts/archaic/ugarite/cugar10.pfbbin0 -> 26654 bytes
-rw-r--r--fonts/archaic/ugarite/cugar10.tfmbin0 -> 516 bytes
-rw-r--r--fonts/archaic/ugarite/tryugarite.pdfbin0 -> 59343 bytes
-rw-r--r--fonts/archaic/ugarite/tryugarite.tex80
-rw-r--r--fonts/archaic/ugarite/ugarite.dtx1767
-rw-r--r--fonts/archaic/ugarite/ugarite.ins90
-rw-r--r--fonts/archaic/ugarite/ugarite.pdfbin0 -> 142076 bytes
9 files changed, 2301 insertions, 0 deletions
diff --git a/fonts/archaic/ugarite/README b/fonts/archaic/ugarite/README
new file mode 100644
index 0000000000..be9199f870
--- /dev/null
+++ b/fonts/archaic/ugarite/README
@@ -0,0 +1,86 @@
+ The ugarite bundle provides fonts for the Ugaritic Cuniform script in use
+about 1300 BC.
+This is one of a series of ancient scripts.
+
+Changes in version 1.2 (2005/06/18)
+o Font supplied as Postscript Type1 instead of MetaFont
+
+Changes in version 1.1 (2000/09/30)
+o Minor encoding changes
+
+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 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:
+ README (this file)
+ ugarite.dtx
+ ugarite.ins
+ ugarite.pdf
+ and the derived files
+ ugarite.sty
+ ot1cugar.fd
+ t1cugar.fd
+ ugarite.map
+ cugar10.mf
+
+------------------------------------------------------------------
+ The distribution consists of the following files:
+README (this file)
+ugarite.dtx
+ugarite.ins
+ugarite.pdf (user manual)
+tryugarite.tex (example usage)
+tryugarite.pdf
+cugar10.afm
+cugar10.pfb
+cugar10.tfm
+
+ To install the bundle:
+o If you want MetaFont sources uncomment the appropriate lines in ugarite.ins.
+o run: latex ugarite.ins, which will generate:
+ ugarite.sty
+ *.fd files
+ ugarite.map
+ and possibly cugar10.mf
+o Move *.sty and *.fd files to a location where LaTeX will find them
+ e.g., .../texmf-local/tex/latex/ugarite
+o Move *.afm, *.pfb and *.tfm files to 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 font maps
+ If you want the MetaFont version as well:
+ o Move the *.mf files to, e.g., .../texmf-var/fonts/source/public/ugarite
+ o Add a line like the following to the (texmf/fontname/)special.map file:
+ cugar10.mf public ugarite
+o Refresh the database
+ (for more information on the above see the FAQ).
+
+o run: (pdf)latex tryugarite for a test of the font
+
+ If you want a full manual with all the MetaFont and LaTeX code and commentry,
+comment out the \OnlyDescription line in ugarite.dtx.
+o run: (pdf)latex ugarite.dtx
+o (for an index run: makeindex -s gind.ist *.idx)
+o run: (pdf)latex *.dtx
+o Print *.(pdf|dvi) for a hardcopy of the package manual
+
+2005/06/18
+Peter Wilson
+herries dot press at earthlink dot net
+
diff --git a/fonts/archaic/ugarite/cugar10.afm b/fonts/archaic/ugarite/cugar10.afm
new file mode 100644
index 0000000000..964d037637
--- /dev/null
+++ b/fonts/archaic/ugarite/cugar10.afm
@@ -0,0 +1,278 @@
+StartFontMetrics 2.0
+Comment Generated by pfaedit
+Comment Creation Date: Sat Jun 18 14:57:43 2005
+FontName Archaic-Ugaritic-Cuneiform
+FullName Archaic Ugaritic Cuneiform
+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 151 -22 1238 933
+CapHeight 800
+XHeight 800
+Ascender 800
+Descender 134
+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 1100 ; N quoteright ; B 151 267 971 533 ;
+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 567 ; N colon ; B 151 180 416 600 ;
+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 0 ; N A ; B 0 0 0 0 ;
+C 66 ; WX 0 ; N B ; B 0 0 0 0 ;
+C 67 ; WX 0 ; N C ; B 0 0 0 0 ;
+C 68 ; WX 900 ; N D ; B 152 -21 750 800 ;
+C 69 ; WX 0 ; N E ; B 0 0 0 0 ;
+C 70 ; WX 0 ; N F ; B 0 0 0 0 ;
+C 71 ; WX 1100 ; N G ; B 151 32 971 555 ;
+C 72 ; WX 1367 ; N H ; B 151 -21 1216 800 ;
+C 73 ; WX 567 ; N I ; B 151 -20 416 800 ; L J IJ ;
+C 74 ; WX 833 ; N J ; B 181 -21 704 800 ;
+C 75 ; WX 0 ; N K ; B 0 0 0 0 ;
+C 76 ; WX 0 ; N L ; B 0 0 0 0 ;
+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 0 ; N O ; B 0 0 0 0 ;
+C 80 ; WX 0 ; N P ; B 0 0 0 0 ;
+C 81 ; WX 0 ; N Q ; B 0 0 0 0 ;
+C 82 ; WX 0 ; N R ; B 0 0 0 0 ;
+C 83 ; WX 0 ; N S ; B 0 0 0 0 ;
+C 84 ; WX 1100 ; N T ; B 151 135 949 800 ;
+C 85 ; WX 0 ; N U ; B 0 0 0 0 ;
+C 86 ; WX 1367 ; N V ; B 152 -20 1215 800 ;
+C 87 ; WX 0 ; N W ; B 0 0 0 0 ;
+C 88 ; WX 1233 ; N X ; B 152 -20 1081 800 ;
+C 89 ; WX 0 ; N Y ; B 0 0 0 0 ;
+C 90 ; WX 1233 ; N Z ; B 151 68 1083 732 ;
+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 633 ; N quoteleft ; B 152 68 483 732 ;
+C 97 ; WX 1100 ; N a ; B 151 267 971 533 ;
+C 98 ; WX 900 ; N b ; B 151 0 750 800 ;
+C 99 ; WX 0 ; N c ; B 0 0 0 0 ;
+C 100 ; WX 1167 ; N d ; B 151 0 1017 800 ;
+C 101 ; WX 0 ; N e ; B 0 0 0 0 ;
+C 102 ; WX 0 ; N f ; B 0 0 0 0 ; L l fl ; L i fi ; L f ff ;
+C 103 ; WX 567 ; N g ; B 151 -20 416 800 ;
+C 104 ; WX 1100 ; N h ; B 151 0 971 800 ;
+C 105 ; WX 1100 ; N i ; B 151 -21 972 933 ; L j ij ;
+C 106 ; WX 0 ; N j ; B 0 0 0 0 ;
+C 107 ; WX 1300 ; N k ; B 151 134 1170 666 ;
+C 108 ; WX 1100 ; N l ; B 151 -21 950 800 ;
+C 109 ; WX 1100 ; N m ; B 151 -21 950 800 ;
+C 110 ; WX 1300 ; N n ; B 151 267 1171 533 ;
+C 111 ; WX 633 ; N o ; B 152 68 483 732 ;
+C 112 ; WX 1100 ; N p ; B 151 134 971 666 ;
+C 113 ; WX 1100 ; N q ; B 151 135 949 665 ;
+C 114 ; WX 1300 ; N r ; B 151 134 1170 666 ;
+C 115 ; WX 833 ; N s ; B 151 -22 683 800 ;
+C 116 ; WX 1100 ; N t ; B 151 267 970 533 ;
+C 117 ; WX 1367 ; N u ; B 151 0 1238 800 ;
+C 118 ; WX 0 ; N v ; B 0 0 0 0 ;
+C 119 ; WX 1300 ; N w ; B 151 134 1170 666 ;
+C 120 ; WX 833 ; N x ; B 151 -21 683 800 ;
+C 121 ; WX 833 ; N y ; B 151 -21 683 800 ;
+C 122 ; WX 567 ; N z ; B 151 -20 416 800 ;
+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/ugarite/cugar10.pfb b/fonts/archaic/ugarite/cugar10.pfb
new file mode 100644
index 0000000000..a81dea1eac
--- /dev/null
+++ b/fonts/archaic/ugarite/cugar10.pfb
Binary files differ
diff --git a/fonts/archaic/ugarite/cugar10.tfm b/fonts/archaic/ugarite/cugar10.tfm
new file mode 100644
index 0000000000..9331e27737
--- /dev/null
+++ b/fonts/archaic/ugarite/cugar10.tfm
Binary files differ
diff --git a/fonts/archaic/ugarite/tryugarite.pdf b/fonts/archaic/ugarite/tryugarite.pdf
new file mode 100644
index 0000000000..f98b19ee8d
--- /dev/null
+++ b/fonts/archaic/ugarite/tryugarite.pdf
Binary files differ
diff --git a/fonts/archaic/ugarite/tryugarite.tex b/fonts/archaic/ugarite/tryugarite.tex
new file mode 100644
index 0000000000..e58f858512
--- /dev/null
+++ b/fonts/archaic/ugarite/tryugarite.tex
@@ -0,0 +1,80 @@
+% tryugarite.tex Test Ugaritic Cuneiform fonts
+\documentclass[11pt]{article}
+\usepackage{ugarite}
+
+\newcommand{\thisfont}{Ugaritic Cuneiform}
+\newcommand{\ABC}{A B G D Z E W H I Y K L M N O P U V Q R S X T}
+\newcommand{\abc}{a b g H d h w z I J y k S l m D n Z s ` p x q r T G t i u X :}
+\newcommand{\UCABC}{ABGDZEWHIYKLMNOPUVQRSXT}
+
+
+\title{Try Ugaritic Cuneiform 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|cugar| font family.
+
+\begin{center}
+The \thisfont{} font in the huge size \\
+{\cugarfamily\huge \abc\\}
+\end{center}
+
+\begin{center}
+The font in its normal size \\
+\textcugar{\abc} \\
+and the Computer Modern Roman for comparison \\
+\abc
+\end{center}
+
+ \thisfont{} in \thisfont{} is (as near as possible): \\
+\textcugar{ugaritiG:Gunirm}, which transliterates as: \\
+\translitcugar{\Au\Agimel\Aaleph\Aresh\Ai\Atav\Ai\Agd\Awd\Agd\Au\Anun\Ai\Aresh\Amem}.
+
+
+
+\begin{table}
+\centering
+\caption{Alphabet and commands}
+\begin{tabular}{|c|c|c|l|l|} \hline
+Value & Glyph & ASCII & Command & Command \\ \hline
+\translitcugar{\Arq} & \textcugar{a} & ' a & \verb|\Arq| \verb|\Aa| & \verb|\Aaleph| \\
+\translitcugar{\Ab} & \textcugar{b} & b & \verb|\Ab| & \verb|\Abeth| \\
+\translitcugar{\Ag} & \textcugar{g} & g & \verb|\Ag| & \verb|\Agimel| \\
+\translitcugar{\Ahu} & \textcugar{I} & I & \verb|\Ahu| & \\
+\translitcugar{\Ad} & \textcugar{d} & d & \verb|\Ad| & \verb|\Adaleth| \\
+\translitcugar{\Ah} & \textcugar{h} & h & \verb|\Ah| & \verb|\Ahe| \\
+\translitcugar{\Aw} & \textcugar{w} & w & \verb|\Aw| & \verb|\Avav| \\
+\translitcugar{\Az} & \textcugar{z} & z & \verb|\Az| & \verb|\Azayin| \\
+\translitcugar{\Ahd} & \textcugar{H} & H & \verb|\Ahd| & \verb|\Aheth| \\
+\translitcugar{\Atd} & \textcugar{T} & T & \verb|\Atd| & \verb|\Ateth| \\
+\translitcugar{\Ay} & \textcugar{y} & y & \verb|\Ay| & \verb|\Ayod| \\
+\translitcugar{\Ak} & \textcugar{k} & k & \verb|\Ak| & \verb|\Akaph| \\
+\translitcugar{\Asa} & \textcugar{X} & X & \verb|\Asa| & \\
+\translitcugar{\Al} & \textcugar{l} & l & \verb|\Al| & \verb|\Alamed| \\
+\translitcugar{\Am} & \textcugar{m} & m & \verb|\Am| & \verb|\Amem| \\
+\translitcugar{\Adb} & \textcugar{D} & D & \verb|\Adb| & \\
+\translitcugar{\An} & \textcugar{n} & n & \verb|\An| & \verb|\Anun| \\
+\translitcugar{\Azd} & \textcugar{Z} & Z & \verb|\Azd| & \\
+\translitcugar{\As} & \textcugar{s} & s & \verb|\As| & \verb|\Asamekh| \\
+\translitcugar{\Alq} & \textcugar{`} & ` o & \verb|\Alq| \verb|\Ao| & \verb|\Aayin| \\
+\translitcugar{\Ap} & \textcugar{p} & p & \verb|\Ap| & \verb|\Ape| \\
+\translitcugar{\Asd} & \textcugar{x} & x & \verb|\Asd| & \verb|\Asade| \\
+\translitcugar{\Aq} & \textcugar{q} & q & \verb|\Aq| & \verb|\Aqoph| \\
+\translitcugar{\Ar} & \textcugar{r} & r & \verb|\Ar| & \verb|\Aresh| \\
+\translitcugar{\Atb} & \textcugar{J} & J & \verb|\Atb| & \\
+\translitcugar{\Agd} & \textcugar{G} & G & \verb|\Agd| & \\
+\translitcugar{\At} & \textcugar{t} & t & \verb|\At| & \verb|\Atav| \\
+\translitcugar{\Ai} & \textcugar{i} & i & \verb|\Ai| & \\
+\translitcugar{\Au} & \textcugar{u} & u & \verb|\Au| & \\
+\translitcugar{\Asg} & \textcugar{V} & V & \verb|\Asg| & \\
+\translitcugar{\Awd} & \textcugar{:} & : & \verb|\Awd| & \\
+\hline
+\end{tabular}
+\end{table}
+
+
+\end{document}
diff --git a/fonts/archaic/ugarite/ugarite.dtx b/fonts/archaic/ugarite/ugarite.dtx
new file mode 100644
index 0000000000..574c5baaec
--- /dev/null
+++ b/fonts/archaic/ugarite/ugarite.dtx
@@ -0,0 +1,1767 @@
+% \iffalse meta-comment
+%
+% ugarite.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{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}}
+\makeatletter
+ \DeclareTextCommand{\Uunder}{OT1}[1]^^A
+ {{\o@lign{\relax#1\crcr\hidewidth\sh@ft{29}^^A
+ \vbox to.2ex{\hbox{\char21}\vss}\hidewidth}}}
+\makeatother
+\begin{document}
+ \raggedbottom
+ \DocInput{ugarite.dtx}
+\end{document}
+%</driver>
+%
+% \fi
+%
+% \CheckSum{309}
+%
+% \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}{Changed some encodings to match the series}
+% \changes{v1.2}{2005/06/18}{Added map file}
+%
+% \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/06/18}
+% \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}{Ugaritic Cuneiform}
+%
+%
+% \title{The \Lpack{Ugaritic Cuneiform} font\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{ugarite} bundle provides a set of fonts for the
+% \thisfont{} alphabetic script which was used around 1300~\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 \thisfont{} 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.
+% Commented code for the fonts and source code for the package is in
+% later sections.
+%
+% \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{ugarite} package} \label{sec:usc}
+%
+% The earliest cuneiform writing, about 2800~\BC, was used by
+% the Sumerians in the Middle East~\cite{WALKER87,HEALEY90}.
+% Other cuneiform scripts were used for Akkadian (2300~\BC) and
+% Babylonian (2000~\BC). These were partly ideographic and partly
+% syllabic scripts. The last dated use of a cuneiform script was
+% in 75~\AD.
+%
+% The \thisfont{} script came from Ugarit (Ras Shamura) on the
+% Syrian coast and was used for a language related to Hebrew and
+% one of the precusors of Phoenician. Unlike the other cuneiform
+% scripts, \thisfont{} is alphabetic, and the order is known from
+% some abecedaries that have been found.
+%
+% The full alphabetic script has 30 letters, plus a word divider in
+% the form of a short vertical stroke. The full script was used in
+% administrative texts, but the last three letters were dropped when
+% writing literary texts.
+%
+%
+% Table~\ref{tab} lists, in the \thisfont{} alphabetical order, the
+% transliterated value of the characters and, where I know it, the
+% modern name of the character.
+%
+% \begin{table}
+% \centering
+% \caption{The \thisfont{} script and alphabet}\label{tab}
+% \begin{tabular}{clcll} \hline
+% Value & Name? & ASCII & Command & Command \\ \hline
+% \textit{a} &
+% aleph &
+% ' a & |\Arq| |\Aa| &
+% |\Aaleph|
+% \\
+% \textit{b} &
+% beth &
+% b & |\Ab| &
+% |\Abeth|
+% \\
+% \textit{g} &
+% gimel &
+% g & |\Ag| &
+% |\Agimel|
+% \\
+% \textit{\Uunder{h}} &
+% &
+% I & |\Ahu| &
+%
+% \\
+% \textit{d} &
+% daleth &
+% d & |\Ad| &
+% |\Adaleth|
+% \\
+% \textit{h} &
+% he &
+% h & |\Ah| &
+% |\Ahe|
+% \\
+% \textit{w} &
+% vav &
+% w & |\Aw| &
+% |\Avav|
+% \\
+% \textit{z} &
+% zayin &
+% z & |\Az| &
+% |\Azayin|
+% \\
+% \textit{\d{h}} &
+% heth &
+% H & |\Ahd| &
+% |\Aheth|
+% \\
+% \textit{\d{t}} &
+% teth &
+% T & |\Atd| &
+% |\Ateth|
+% \\
+% \textit{y} &
+% yod &
+% y & |\Ay| &
+% |\Ayod|
+% \\
+% \textit{k} &
+% kaph &
+% k & |\Ak| &
+% |\Akaph|
+% \\
+% \textit{\'{s}} &
+% &
+% X & |\Asa| &
+%
+% \\
+% \textit{l} &
+% lamed &
+% l & |\Al| &
+% |\Alamed|
+% \\
+% \textit{m} &
+% mem &
+% m & |\Am| &
+% |\Amem|
+% \\
+% \textit{\b{d}} &
+% &
+% D & |\Adb| &
+%
+% \\
+% \textit{n} &
+% nun &
+% n & |\An| &
+% |\Anun|
+% \\
+% \textit{\d{z}} &
+% &
+% Z & |\Azd| &
+%
+% \\
+% \textit{s} &
+% samekh &
+% s & |\As| &
+% |\Asamekh|
+% \\
+% \textit{`} &
+% ayin &
+% ` o & |\Alq| |\Ao| &
+% |\Aayin|
+% \\
+% \textit{p} &
+% pe &
+% p & |\Ap| &
+% |\Ape|
+% \\
+% \textit{\d{s}} &
+% sade &
+% x & |\Asd| &
+% |\Asade|
+% \\
+% \textit{q} &
+% qoph &
+% q & |\Aq| &
+% |\Aqoph|
+% \\
+% \textit{r} &
+% resh &
+% r & |\Ar| &
+% |\Aresh|
+% \\
+% \textit{\b{t}} &
+% &
+% J & |\Atb| &
+%
+% \\
+% \textit{\.{g}} &
+% &
+% G & |\Agd| &
+%
+% \\
+% \textit{t} &
+% tav &
+% t & |\At| &
+% |\Atav|
+% \\
+% \textit{i} &
+% &
+% i & |\Ai| &
+%
+% \\
+% \textit{u} &
+% &
+% u & |\Au| &
+%
+% \\
+% \textit{\`{s}} &
+% &
+% V & |\Asg| &
+%
+% \\
+% \textit{:} &
+% word divider &
+% : & |\Awd| &
+%
+% \\
+% \hline
+% \end{tabular}
+% \end{table}
+%
+%
+% \DescribeMacro{\cugarfamily}
+% This command selects the \thisfont{} font family.
+% The family name is |cugar|.
+%
+% \DescribeMacro{\textcugar}
+% The command |\textcugar{|\meta{ASCII/commands}|}|
+% typesets \meta{ASCII/commands} in the
+% \thisfont{} font.
+%
+% I have provided two, and sometimes three, ways of accessing the \thisfont{} glyphs:
+% (a) by ASCII characters,
+% (b) by commands whose names are based on the transliterated values, and
+% (c) by commands whose names are based on the (modern) name of the
+% character.
+% These are shown in Table~\ref{tab}.
+%
+%
+% \DescribeMacro{\translitcugar}
+% The command |\translitcugar{|\meta{commands}|}| will typeset the
+% transliteration of the Ugarite character commnds (those in the
+% last two columns of Table~\ref{tab}).
+%
+% \DescribeMacro{\translitcugarfont}
+% The font used for the transliteration is defined by this macro,
+% which is initialised 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)
+%
+% \bibitem[Wal87]{WALKER87}
+% C.~B.~F.~Walker.
+% \newblock \emph{Reading the Past: Cuneiform}.
+% \newblock University of California Press/British Museum, 1987.
+% \newblock (ISBN 0-520-06115-2)
+%
+% \end{thebibliography}
+% \PrintIndex
+% }
+%
+%
+% \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>
+%%% CUGAR10.MF Computer Ugaritic Cuneiform font 10 point design size.
+
+% \end{macrocode}
+% Specify the font size.
+% \begin{macrocode}
+
+font_identifier:="ugarite"; 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#:=8pt#; % height of characters (CM cap-height is approx 6.8pt)
+s#:=1.5pt#; % width correction (right and left)
+o#:=1/20pt#; % overshoot
+px#:=.4pt#; % 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 driver file, this would be its contents.
+%
+% \begin{macrocode}
+
+font_coding_scheme:="Ugarite 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#:=px#; % 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}
+% \begin{macro}{aw}
+% Variables for the middldle and rightmost xcoord of a character, and
+% the actual width of a character.
+% \begin{macrocode}
+numeric midloc, rightloc, aw;
+% \end{macrocode}
+% \end{macro}
+% \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}{trht}
+% \begin{macro}{trbs}
+% The normal height and base of a triangle.
+% \begin{macrocode}
+numeric trht, trbs;
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{th}
+% \begin{macro}{tb}
+% The ratio of the normal height and base of a triangle with respect to
+% the character height.
+% \begin{macrocode}
+numeric th, tb;
+th = 6/24; tb = 8/24;
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{wiht}
+% \begin{macro}{wibs}
+% The normal height and base of a wing.
+% \begin{macrocode}
+numeric wiht, wibs;
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{wh}
+% \begin{macro}{wb}
+% The ratio of the normal height and base of a wing with respect to
+% the character height.
+% \begin{macrocode}
+numeric wh, wb;
+wh = 10/24; wb = 20/24;
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+%
+% \begin{macro}{beginglyph}
+% A macro to save some typing of beginchar arguments, and also assigns
+% values to various variables.
+%
+% \begin{macrocode}
+def beginglyph(expr code, unit_width) =
+ beginchar(code, unit_width*ht#+2s#, ht#, 0);
+ midloc:=1/2w; rightloc:=(w-s); aw := rightloc-leftloc;
+ trht := th*h; trbs := tb*h;
+ wiht := wh*h; wibs := wb*h;
+ pickup stylus enddef;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{cmchar}
+% |cmchar| should precede each character
+% \begin{macrocode}
+let cmchar=\;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{triangle}
+% |triangle($, ht, base, angle)| calculates the points on a triangle
+% whose apex is at |z$|, of height |ht| and base width |base| rotated
+% at |angle| from pointing along the positive |x| axis.
+% \begin{macrocode}
+
+def triangle(suffix $)(expr ht, bs, ang) =
+ path pth[];
+ pair pr[];
+ pr1 := (x$-ht,y$); % midpoint of base in default position
+ pr2 := pr1 shifted (1/2bs*up); % base points
+ pr3 := pr1 shifted (1/2bs*down);
+ z$trl = pr2 rotatedaround(z$, ang);
+ z$trr = pr3 rotatedaround(z$, ang);
+ z$trc = 1/2[z$trl,z$trr];
+ z$tic = 1/2[z$,z$trc];
+ pth$ := z$--z$trl--z$trr--cycle;
+enddef;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{trir}
+% |trir($, ht, base)| calculates the points on a triangle
+% whose apex is at |z$|, of height |ht| and base width |base|
+% pointing in the positive |x| direction (i.e., Right).
+% \begin{macrocode}
+
+def trir(suffix $)(expr ht, bs) =
+ path pth[];
+ z$trc = (x$-ht, y$); % midpoint of base
+ z$trl = (x$trc, y$trc+1/2bs); % base points
+ z$trr = (x$trc, y$trc-1/2bs);
+ z$tic = 1/2[z$,z$trc];
+ pth$ := z$--z$trl--z$trr--cycle;
+enddef;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{triu}
+% |triu($, ht, base)| calculates the points on a triangle
+% whose apex is at |z$|, of height |ht| and base width |base|
+% pointing in the positive |y| direction (i.e. Up).
+% \begin{macrocode}
+
+def triu(suffix $)(expr ht, bs) =
+ path pth[];
+ z$trc = (x$, y$-ht); % midpoint of base
+ z$trl = (x$-1/2bs, y$trc); % base points
+ z$trr = (x$+1/2bs, y$trc); % base points
+ z$tic = 1/2[z$,z$trc];
+ pth$ := z$--z$trl--z$trr--cycle;
+enddef;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{tril}
+% |tril($, ht, base)| calculates the points on a triangle
+% whose apex is at |z$|, of height |ht| and base width |base|
+% pointing in the negative |x| direction (i.e., Left).
+% \begin{macrocode}
+
+def tril(suffix $)(expr ht, bs) =
+ path pth[];
+ z$trc = (x$+ht, y$); % midpoint of base
+ z$trl = (x$trc, y$trc-1/2bs); % base points
+ z$trr = (x$trc, y$trc+1/2bs);
+ z$tic = 1/2[z$,z$trc];
+ pth$ := z$--z$trl--z$trr--cycle;
+enddef;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{trid}
+% |tril($, ht, base)| calculates the points on a triangle
+% whose apex is at |z$|, of height |ht| and base width |base|
+% pointing in the negative |x| direction (i.e., Left).
+% \begin{macrocode}
+
+def tril(suffix $)(expr ht, bs) =
+ path pth[];
+ z$trc = (x$+ht, y$); % midpoint of base
+ z$trl = (x$trc, y$trc-1/2bs); % base points
+ z$trr = (x$trc, y$trc+1/2bs);
+ z$tic = 1/2[z$,z$trc];
+ pth$ := z$--z$trl--z$trr--cycle;
+enddef;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{trid}
+% |trid($, ht, base)| calculates the points on a triangle
+% whose apex is at |z$|, of height |ht| and base width |base|
+% pointing in the negative |y| direction (i.e. Down).
+% \begin{macrocode}
+
+def trid(suffix $)(expr ht, bs) =
+ path pth[];
+ z$trc = (x$, y$+ht); % midpoint of base
+ z$trl = (x$+1/2bs, y$trc); % base points
+ z$trr = (x$-1/2bs, y$trc); % base points
+ z$tic = 1/2[z$,z$trc];
+ pth$ := z$--z$trl--z$trr--cycle;
+enddef;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{wing}
+% |wing($, ht, base, angle)| calculates the points on a `flying wing'
+% whose apex is at |z$|, of height |ht| and base width |base| rotated
+% at |angle| from pointing along the negative |x| axis.
+% \begin{macrocode}
+
+def wing(suffix $)(expr ht, bs, ang) =
+ path pth[];
+ pair pr[];
+ pr1 := (x$+ht,y$); % midpoint of base in default position
+ pr2 := pr1 shifted (1/2bs*down); % base points
+ pr3 := pr1 shifted (1/2bs*up);
+ pr4 := pr1 rotatedaround(z$, ang);
+ z$wil = pr2 rotatedaround(z$, ang);
+ z$wir = pr3 rotatedaround(z$, ang);
+ z$wic = 1/2[z$,pr4];
+ pth$ := z$--z$wil{(z$wic-z$wil)}..z$wic..{(z$wir-z$wic)}z$wir--cycle;
+enddef;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{wingl}
+% |wingl($, ht, base)| calculates the points on a `flying wing'
+% whose apex is at |z$|, of height |ht| and base width |base|
+% pointing in the negative |x| direction (i.e., Left).
+% \begin{macrocode}
+
+def wingl(suffix $)(expr ht, bs) =
+ path pth[];
+ z$wil = (x$+ht, y$-1/2bs); % base points
+ z$wir = (x$wil, y$+1/2bs);
+ z$wic = (1/2[x$,x$wil], y$); % midpoint of base curve
+ pth$ := z$--z$wil{(z$wic-z$wil)}..z$wic..{(z$wir-z$wic)}z$wir--cycle;
+enddef;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{wingd}
+% |wingd($, ht, base)| calculates the points on a `flying wing'
+% whose apex is at |z$|, of height |ht| and base width |base|
+% pointing in the negative |y| direction (i.e., Down).
+% \begin{macrocode}
+
+def wingd(suffix $)(expr ht, bs) =
+ path pth[];
+ z$wil = (x$+1/2bs, y$+ht); % base points
+ z$wir = (x$-1/2bs, y$wil);
+ z$wic = (x$, 1/2[y$,y$wil]); % midpoint of base curve
+ pth$ := z$--z$wil{(z$wic-z$wil)}..z$wic..{(z$wir-z$wic)}z$wir--cycle;
+enddef;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{wingr}
+% |wingr($, ht, base)| calculates the points on a `flying wing'
+% whose apex is at |z$|, of height |ht| and base width |base|
+% pointing in the positive |x| direction (i.e., Right).
+% \begin{macrocode}
+
+def wingr(suffix $)(expr ht, bs) =
+ path pth[];
+ z$wil = (x$-ht, y$+1/2bs); % base points
+ z$wir = (x$wil, y$-1/2bs);
+ z$wic = (1/2[x$,x$wil], y$); % midpoint of base curve
+ pth$ := z$--z$wil{(z$wic-z$wil)}..z$wic..{(z$wir-z$wic)}z$wir--cycle;
+enddef;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{wingu}
+% |wingu($, ht, base)| calculates the points on a `flying wing'
+% whose apex is at |z$|, of height |ht| and base width |base|
+% pointing in the positive |y| direction (i.e., Up).
+% \begin{macrocode}
+
+def wingu(suffix $)(expr ht, bs) =
+ path pth[];
+ z$wil = (x$-1/2bs, y$-ht); % base points
+ z$wir = (x$+1/2bs, y$wil);
+ z$wic = (x$, 1/2[y$,y$wil]); % midpoint of base curve
+ pth$ := z$--z$wil{(z$wic-z$wil)}..z$wic..{(z$wir-z$wic)}z$wir--cycle;
+enddef;
+
+% \end{macrocode}
+% \end{macro}
+%
+% This would be the end of a seperate driver file, except for calling
+% the glyph code.
+%
+% \subsection{The glyph code}
+%
+% The following code generates the glyphs for the \thisfont{} font.
+% The characters
+% are defined in the original alphabetic ordering.
+%
+% \begin{macrocode}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% end of driver code
+% start of glyph code
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+% \end{macrocode}
+%
+% \begin{macro}{'}
+% The \thisfont{} ' (semitic aleph).
+% \begin{macrocode}
+
+cmchar "Ugarite letter '";
+beginglyph("'", 24/24);
+ z1trc=(leftloc,1/2h);
+ trir(1, trht, trbs); fill pth1;
+ z2trc=z1;
+ trir(2, trht, trbs); fill pth2;
+ z4=(rightloc,y1tic); draw z1tic--z4;
+ labels(1,1trc,2,3,4);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{a}
+% The \thisfont{} ' (semitic aleph).
+% \begin{macrocode}
+
+cmchar "Ugarite letter ' (coded as a)";
+beginglyph("a", 24/24);
+ z1trc=(leftloc,1/2h);
+ trir(1, trht, trbs); fill pth1;
+ z2trc=z1;
+ trir(2, trht, trbs); fill pth2;
+ z4=(rightloc,y1tic); draw z1tic--z4;
+ labels(1,1trc,2,3,4);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{b}
+% The \thisfont{} B.
+% \begin{macrocode}
+
+cmchar "Ugarite letter b";
+beginglyph("b", (th+3/2tb));
+ z1trr=(leftloc,0); % bottom pin
+ trir(1, trht, trbs); fill pth1;
+ z3trc=(x1,h); % left pin
+ trid(3, trht, trbs); fill pth3;
+ z4trr=z3trl; % right pin
+ trid(4, trht, trbs); fill pth4;
+ z2=(x4,y1);
+ trir(2, trht, trbs); fill pth2; % second bottom head
+ rt x21 = rightloc; y21=y1tic; % bodies
+ draw z1tic--z21;
+ draw z3tic--z1; draw z4tic--z2;
+ labels(1,2,3,4);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{g}
+% The \thisfont{} G.
+% \begin{macrocode}
+
+cmchar "Ugarite letter g";
+beginglyph("g", tb);
+ z1trc=(midloc,h);
+ trid(1, trht, trbs); fill pth1;
+ z13=(x1,0); draw z1tic--z13;
+ labels(1,1trl,1trc,1trr,11,13);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{I}
+% The \thisfont{} letter H with a u under.
+% \begin{macrocode}
+
+cmchar "Ugarite letter h sub u (I)";
+beginglyph("I", tb);
+ z1trc=(midloc,h);
+ trid(1, trht, trbs); fill pth1; % top head
+ z2trc=(x1trc,y1);
+ trid(2, trht, trbs); fill pth2; % middle head
+ z3trc=(x1trc,y2);
+ trid(3, trht, trbs); fill pth3; % bottom head
+ z13=(x1,0); draw z1tic--z13;
+ labels(1,2,3,4,5,6,11,13);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{d}
+% The \thisfont{} letter D.
+% \begin{macrocode}
+
+cmchar "Ugarite letter d";
+beginglyph("d", (th+5/2tb));
+ z1trr=(leftloc,0);
+ trir(1, trht, trbs); fill pth1; % bottom left head
+ z11trc=(x1,h); % top left head
+ trid(11, trht, trbs); fill pth11;
+ z12trr=z11trl; % top center head
+ trid(12, trht, trbs); fill pth12;
+ z13trr=z12trl; % top right head
+ trid(13, trht, trbs); fill pth13;
+ z2=(x12,y1); % bottom center head
+ trir(2, trht, trbs); fill pth2;
+ z3=(x13,y1); % bottom right head
+ trir(3, trht, trbs); fill pth3;
+ rt x3' = rightloc; y3'=y1tic; % bodies
+ draw z1tic--z3';
+ draw z11tic--z1; draw z12tic--z2; draw z13tic--z3;
+ labels(1,2,3,4,11,12,13);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{h}
+% The \thisfont{} letter H.
+% \begin{macrocode}
+
+cmchar "Ugarite letter h";
+beginglyph("h",24/24);
+ z2trc = (leftloc,1/2h); % center head
+ trir(2, trht, trbs); fill pth2;
+ z1trr=z2trl; % top head
+ trir(1, trht, trbs); fill pth1;
+ z3trl=z2trr; % bottom head
+ trir(3, trht, trbs); fill pth3;
+ y1'' = y1; y2'' = y2; y3'' = y3; % bodies
+ x1'' = x2'' = x3'' = rightloc;
+ draw z1tic--z1''; draw z2tic--z2''; draw z3tic--z3'';
+labels(1,2,3,4,5,6,7,8,9,10); endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{w}
+% The \thisfont{} letter W.
+% \begin{macrocode}
+
+cmchar "Ugarite letter w";
+beginglyph("w", (5th));
+ z1trr=(leftloc,1/2h); % top head
+ trir(1, trht, trbs); fill pth1;
+ z2trl=z1trr; % bottom head
+ trir(2, trht, trbs); fill pth2;
+ z3trc=(3/6aw, 1/2h); % center left head
+ trir(3, trht, trbs); fill pth3;
+ z4trc=z3; % center right head
+ trir(4, trht, trbs); fill pth4;
+ x1''=x3trc; y1'' = y1; % left bodies
+ x2''=x3trc; y2'' = y2;
+ x3''=rightloc; y3'' = y3;
+ draw z1tic--z1'';
+ draw z2tic--z2'';
+ draw z3tic--z3'';
+ labels(1,2,3,4,5,6,7,8,9,10);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{z}
+% The \thisfont{} letter Z.
+% \begin{macrocode}
+
+cmchar "Ugarite letter z";
+beginglyph("z", tb);
+ z1trc=(midloc,h);
+ trid(1, trht, trbs); fill pth1; % top head
+ z2trc=(x1trc,y1);
+ trid(2, trht, trbs); fill pth2; % middle head
+ z1''=(x1,0); draw z1tic--z1'';
+ labels(1,2,3,4,5,6,7,8,9,10);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{H}
+% The \thisfont{} letter H sub d.
+% \begin{macrocode}
+
+cmchar "Ugarite letter H sub d (H)";
+beginglyph("H", (4tb)); % 3tb too small
+ numeric n[];
+ z1trc=(leftloc,1/2h); % left head
+ trir(1, trht, trbs); fill pth1;
+ z2trc=(midloc,h); % top middle head
+ trid(2, trht, trbs); fill pth2;
+ n1 := 3/2trbs; % base of small wing % 2trbs too large
+ n2 := 1/2n1; % height of small wing
+ z3 = (rightloc-n2,y1);
+ wingl(3, n2, n1); fill pth3;
+ z4 = (x2,y1);
+ z5=(1/2[x1,x3], y4-trht-1/2trbs); % bottom head
+ triangle(5, trht, trbs, -45); fill pth5;
+ z5'=whatever[z5trc,z5]; y5'=0;
+ draw z1tic--z3;
+ draw z2tic--z4;
+ draw z5tic--z5';
+ labels(1,2,3,4,5,6,7,8,9,10);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{T}
+% The \thisfont{} letter T sub d.
+% \begin{macrocode}
+
+cmchar "Ugarite letter T sub d (T)";
+beginglyph("T", (3tb));
+ numeric n[];
+ z1trc=(leftloc,1/2h); % left head
+ trir(1, trht, trbs); fill pth1;
+ z2trc=(midloc,h); % top middle head
+ trid(2, trht, trbs); fill pth2;
+ n1 := 2trbs; % base of small wing
+ n2 := 1/2n1; % height of small wing
+ z3 = (rightloc-n2,y1);
+ wingl(3, n2, n1); fill pth3;
+ z4 = (x2,y1);
+ draw z1tic--z3;
+ draw z2tic--z4;
+ labels(1,2,3,4,5,6,7,8,9,10);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{y}
+% The \thisfont{} letter Y.
+% \begin{macrocode}
+
+cmchar "Ugarite letter y";
+beginglyph("y", (2tb));
+%% left pin
+ z1trr=(leftloc,h);
+ trid(1, trht, trbs); fill pth1; % top head
+ z2trc=(x1trc,y1);
+ trid(2, trht, trbs); fill pth2; % middle head
+ z3trc=(x1trc,y2);
+ trid(3, trht, trbs); fill pth3; % bottom head
+ z1''=(x1,0); draw z1tic--z1'';
+%% right pin
+ z11trr=z1trl;
+ trid(11, trht, trbs); fill pth11; % top head
+ z12trc=(x11trc,y11);
+ trid(12, trht, trbs); fill pth12; % middle head
+ z13trc=(x11trc,y12);
+ trid(13, trht, trbs); fill pth13; % bottom head
+ z11''=(x11,0); draw z11tic--z11'';
+ labels(1,2,3,4,5,6,11,12,13);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+%
+%
+% \begin{macro}{k}
+% The \thisfont{} letter K.
+% \begin{macrocode}
+
+cmchar "Ugarite letter k";
+beginglyph("k", (5th));
+ z1trr=(leftloc,1/2h); % top head
+ trir(1, trht, trbs); fill pth1;
+ z2trl=z1trr; % bottom head
+ trir(2, trht, trbs); fill pth2;
+ z3trc=(3/6aw, 1/2h); % center left head
+ trir(3, trht, trbs); fill pth3;
+ x1''=x3trc; y1'' = y1; % left bodies
+ x2''=x3trc; y2'' = y2;
+ x3''=rightloc; y3'' = y3;
+ draw z1tic--z1'';
+ draw z2tic--z2'';
+ draw z3tic--z3'';
+ labels(1,2,3,4,5,6,7,8,9,10);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{V}
+% The \thisfont{} letter S with an acute accent.
+% \begin{macrocode}
+
+cmchar "Ugarite letter s acute (X)";
+beginglyph("X", (2wh+tb));
+ z1trc=(midloc,h); % top head
+ trid(1, trht, trbs); fill pth1;
+ z1''=(x1,0);
+ draw z1tic--z1'';
+ z2=(leftloc, 1/2h); % left wing
+ wingl(2, wiht, wibs); fill pth2;
+ z3=(rightloc, y2) ; % right wing
+ wingr(3, wiht, wibs); fill pth3;
+ labels(1,2,2wil,2wic,2wir,3,4,5,6,7,8,9,10);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{l}
+% The \thisfont{} letter L.
+% \begin{macrocode}
+
+cmchar "Ugarite letter l";
+beginglyph("l", (3tb));
+%% left pin
+ z1trr=(leftloc,h);
+ trid(1, trht, trbs); fill pth1; % top head
+ z1''=(x1,0); draw z1tic--z1'';
+%% center pin
+ z11trr=z1trl;
+ trid(11, trht, trbs); fill pth11; % top head
+ z11''=(x11,0); draw z11tic--z11'';
+%% right pin
+ z21trr=z11trl;
+ trid(21, trht, trbs); fill pth21; % top head
+ z21''=(x21,0); draw z21tic--z21'';
+ labels(1,2,3,4,5,6,11,12,13,21,22,23);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{m}
+% The \thisfont{} letter M.
+% \begin{macrocode}
+
+cmchar "Ugarite letter m";
+beginglyph("m", (3tb));
+ z1trl=(rightloc,h); % right head
+ trid(1, trht, trbs); fill pth1;
+ z1''=(x1,0); draw z1tic--z1'';
+ z2trc=(leftloc, 1/2[y1tic,y1'']); % left head
+ trir(2, trht, trbs); fill pth2;
+ z2''=(x1,y2); draw z2tic--z2'';
+ labels(1,2,3,4,5,6);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{D}
+% The \thisfont{} letter D with an underbar.
+% \begin{macrocode}
+
+cmchar "Ugarite letter d sub bar (D)";
+beginglyph("D", (wh+tb));
+ z1trl=(rightloc,h); % top head
+ trid(1, trht, trbs); fill pth1;
+ z1''=(x1,0); draw z1tic--z1'';
+ z2=(leftloc, 1/2h); % left wing
+ wingl(2, wiht, wibs); fill pth2;
+ labels(1,2,3,4,5,6,7,8,9,10);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{n}
+% The \thisfont{} letter N.
+% \begin{macrocode}
+
+cmchar "Ugarite letter n";
+beginglyph("n", (5th));
+ z1trc=(leftloc, 1/2h); % left head
+ trir(1, trht, trbs); fill pth1;
+ z2trc=z1; % center head
+ trir(2, trht, trbs); fill pth2;
+ z3trc=z2; % right head
+ trir(3, trht, trbs); fill pth3;
+ z1''=(rightloc,y1); draw z1tic--z1'';
+ labels(1,2,3,4,5);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+%
+%
+% \begin{macro}{Z}
+% The \thisfont{} letter Z with an underdot.
+% \begin{macrocode}
+
+cmchar "Ugarite letter z sub dot (Z)";
+beginglyph("Z", (3th+wh));
+ z1trr=(leftloc,1/2h); % top head
+ trir(1, trht, trbs); fill pth1;
+ z1''=(leftloc+3trht, y1); draw z1tic--z1'';
+ z2trl=z1trr; % bottom head
+ trir(2, trht, trbs); fill pth2;
+ z2''=(x1'',y2); draw z2tic--z2'';
+ z3=(x1'',1/2h); % wing
+ wingl(3, wiht, wibs); fill pth3;
+ labels(1,2,3,4,5,6,7);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{s}
+% The \thisfont{} letter S.
+% \begin{macrocode}
+
+cmchar "Ugarite letter s";
+beginglyph("s", (2tb));
+ z1trr=(leftloc,h); % left head
+ trid(1, trht, trbs); fill pth1;
+ z1''=(x1,1/2h); draw z1tic--z1'';
+ z2trr=z1trl; % right head
+ trid(2, trht, trbs); fill pth2;
+ z2''=(x2,y1''); draw z2tic--z2'';
+ z3trc=(1/2[x1,x2], y1''); % bottom head
+ trid(3, trht, trbs); fill pth3;
+ z3''=(x3,0); draw z3tic--z3'';
+ labels(1,2,3,4,5,6,7);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{`}
+% The \thisfont{} letter single left quote.
+% \begin{macrocode}
+
+cmchar "Ugarite letter `";
+beginglyph("`", (wh));
+ z1=(leftloc,1/2h);
+ wingl(1, wiht, wibs); fill pth1;
+ labels(1,2,3,4,5,6,7);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{o}
+% The \thisfont{} letter single left quote.
+% \begin{macrocode}
+
+cmchar "Ugarite letter ` (coded as o)";
+beginglyph("o", (wh));
+ z1=(leftloc,1/2h);
+ wingl(1, wiht, wibs); fill pth1;
+ labels(1,2,3,4,5,6,7);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{p}
+% The \thisfont{} letter P.
+% \begin{macrocode}
+
+cmchar "Ugarite letter p";
+beginglyph("p", (4th));
+ z1trr=(leftloc,1/2h); % top head
+ trir(1, trht, trbs); fill pth1;
+ z1''=(rightloc,y1); draw z1tic--z1'';
+ z2trl=z1trr; % bottom head
+ trir(2, trht, trbs); fill pth2;
+ z2''=(x1'',y2); draw z2tic--z2'';
+ labels(1,2,3,4,5,6,7);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{x}
+% The \thisfont{} letter S sub dot.
+% \begin{macrocode}
+
+cmchar "Ugarite letter S sub dot (x)";
+beginglyph("x", (2tb));
+ z1trr=(leftloc,h); % left head
+ trid(1, trht, trbs); fill pth1;
+ z1''=(x1,0); draw z1tic--z1'';
+ z2trr=z1trl; % right head
+ trid(2, trht, trbs); fill pth2;
+ z2''=(x2,0); draw z2tic--z2'';
+ labels(1,2,3,4,5,6,7);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{q}
+% The \thisfont{} letter Q.
+% \begin{macrocode}
+
+cmchar "Ugarite letter q";
+beginglyph("q", (3tb));
+ numeric n[];
+ z1trc=(leftloc,1/2h); % left head
+ trir(1, trht, trbs); fill pth1;
+ n1 := 2trbs; % base of small wing
+ n2 := 1/2n1; % height of small wing
+ z3 = (rightloc-n2,y1);
+ wingl(3, n2, n1); fill pth3;
+ draw z1tic--z3;
+ labels(1,2,3,4,5,6,7,8,9,10);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{r}
+% The \thisfont{} letter R.
+% \begin{macrocode}
+
+cmchar "Ugarite letter r";
+beginglyph("r", (5th)); % 6th too much
+%% bottom
+ z1trl=(leftloc,1/2h); % left head
+ trir(1, trht, trbs); fill pth1;
+ z2trc=z1; % center head
+ trir(2, trht, trbs); fill pth2;
+%% top
+ z11trr=z1trl; % left head
+ trir(11, trht, trbs); fill pth11;
+ z12trc=z11; % center head
+ trir(12, trht, trbs); fill pth12;
+%% right
+ z21trc=(x2+trht, 1/2[y1,y11]);
+ trir(21, trht, trbs); fill pth21;
+ z1''=(x21trc,y1); draw z1tic--z1'';
+ z11''=(x21trl,y11); draw z11tic--z11'';
+ z21''=(rightloc,y21); draw z21tic--z21'';
+ labels(1,2,3,4,5,6,7,11,12,21);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{J}
+% The \thisfont{} T sub bar.
+% \begin{macrocode}
+
+cmchar "Ugarite letter T sub bar (J)";
+beginglyph("J", (2tb));
+ z1trl=(rightloc,h); % vertical pin
+ trid(1, trht, trbs); fill pth1;
+ z1''=(x1,0); draw z1tic--z1'';
+ z2=(x1trr,1/3h); % angled pin
+ z2''=(rightloc,0);
+ triangle(2, trht, trbs, angle((z2''-z2))); fill pth2;
+ draw z2tic--z2'';
+ labels(1,1'',2,2'');
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{G}
+% The \thisfont{} G with a dot accent.
+% \begin{macrocode}
+
+cmchar "Ugarite letter G sup dot (G)";
+beginglyph("G", 24/24);
+ z1trc=(leftloc,1/2h); % horizontal pin
+ trir(1, trht, trbs); fill pth1;
+ z1''=(rightloc,y1); draw z1tic--z1'';
+ z2=(1/2[x1,x1''], y1trr); % angled pin
+ triangle(2, trht, trbs, 45); fill pth2;
+ z2''=whatever[z2trc,z2]; y2''=(y1+(y1-y2));
+ draw z2tic--z2'';
+ labels(1,2,3,4);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{t}
+% The \thisfont{} T.
+% \begin{macrocode}
+
+cmchar "Ugarite letter t";
+beginglyph("t", 24/24);
+ z1trc=(leftloc,1/2h);
+ trir(1, trht, trbs); fill pth1;
+ z1''=(rightloc,y1); draw z1tic--z1'';
+ labels(1,2,3,4);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{i}
+% The \thisfont{} I.
+% \begin{macrocode}
+
+cmchar "Ugarite letter i";
+beginglyph("i", 24/24);
+ z1trc=(leftloc,h); % top
+ trir(1, trht, trbs); fill pth1;
+ z1''=(rightloc,y1); draw z1tic--z1'';
+ z2trl=z1trr; % center
+ trir(2, trht, trbs); fill pth2;
+ z2''=(rightloc,y2); draw z2tic--z2'';
+ z3trl=z2trr; % bottom
+ trir(3, trht, trbs); fill pth3;
+ z3''=(rightloc,y3); draw z3tic--z3'';
+
+ z4trc=(midloc,y3); % small vertical pin
+ trid(4, trht, trbs); fill pth4;
+ z4''=(x4,0); draw z4tic--z4'';
+ labels(1,2,3,4);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{u}
+% The \thisfont{} letter U.
+% \begin{macrocode}
+
+cmchar "Ugarite letter u";
+beginglyph("u", (4tb)); % 5tb too big
+ z2trc=(midloc,h); % center pin
+ trid(2, trht, trbs); fill pth2;
+ z1trl=z2trr; % left pin
+ trid(1, trht, trbs); fill pth1;
+ z3trr=z2trl; % right pin
+ trid(3, trht, trbs); fill pth3;
+ z4trr=(leftloc,0); % bottom pin
+ trir(4, trht, trbs); fill pth4;
+ z1''=(x1,y4); draw z1tic--z1'';
+ z2''=(x2,y4); draw z2tic--z2'';
+ z3''=(x3,y4); draw z3tic--z3'';
+ z4''=(rightloc,y4); draw z4tic--z4'';
+ labels(1,2,3,4);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{V}
+% The \thisfont{} letter S with grave accent.
+% \begin{macrocode}
+
+cmchar "Ugarite letter S with grave accent (V)";
+beginglyph("V", (4tb));
+ numeric n[];
+ n1 := 3/2trbs; % base of wing % 2trbs too large
+ n2 := 1/2n1; % height of wing
+ z11trc=(midloc,h); % pin
+ trid(11, trht, trbs); fill pth11;
+ z11''=(x11,0); draw z11tic--z11'';
+%% left wings
+ z3wir=(x11trr,0); % bottom
+ wingu(3, n2, n1); fill pth3;
+ z1=(x3,y11); % top
+ wingu(1, n2, n1); fill pth1;
+ z2=1/2[z1,z3]; % middle
+ wingu(2, n2, n1); fill pth2;
+%% right wings
+ z23wil=(x11trl,0); % bottom
+ wingu(23, n2, n1); fill pth23;
+ z21=(x23,y11); % top
+ wingu(21, n2, n1); fill pth21;
+ z22=1/2[z21,z23]; % middle
+ wingu(22, n2, n1); fill pth22;
+ labels(1,2,3,11,21,22,23);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{:}
+% The \thisfont{} word divider.
+% \begin{macrocode}
+
+cmchar "Ugarite word divider (:)";
+beginglyph(":", (tb));
+ z1trc=(midloc, 3/4h);
+ trid(1, trht, trbs); fill pth1;
+ z2=(midloc, 1/4h); draw z1tic--z2;
+ labels(1,1',1'',2,2',2trl,2trc,2trr,3,4);
+endchar;
+
+% \end{macrocode}
+% \end{macro}
+%
+%
+%
+%
+% The end of the glyphs and file
+%
+% \begin{macrocode}
+
+end
+
+%</up>
+% \end{macrocode}
+%
+%
+%
+% \section{The font definition files} \label{sec:fd}
+%
+% \begin{macrocode}
+%<*fdot1>
+\DeclareFontFamily{OT1}{cugar}{}
+ \DeclareFontShape{OT1}{cugar}{m}{n}{ <-> cugar10 }{}
+ \DeclareFontShape{OT1}{cugar}{bx}{n}{ <-> sub cugar/m/n }{}
+ \DeclareFontShape{OT1}{cugar}{b}{n}{ <-> sub cugar/m/n }{}
+ \DeclareFontShape{OT1}{cugar}{m}{sl}{ <-> sub cugar/m/n }{}
+ \DeclareFontShape{OT1}{cugar}{m}{it}{ <-> sub cugar/m/n }{}
+%</fdot1>
+% \end{macrocode}
+%
+%
+% \begin{macrocode}
+%<*fdt1>
+\DeclareFontFamily{T1}{cugar}{}
+ \DeclareFontShape{T1}{cugar}{m}{n}{ <-> cugar10 }{}
+ \DeclareFontShape{T1}{cugar}{bx}{n}{ <-> sub cugar/m/n }{}
+ \DeclareFontShape{T1}{cugar}{b}{n}{ <-> sub cugar/m/n }{}
+ \DeclareFontShape{T1}{cugar}{m}{sl}{ <-> sub cugar/m/n }{}
+ \DeclareFontShape{T1}{cugar}{m}{it}{ <-> sub cugar/m/n }{}
+%</fdt1>
+% \end{macrocode}
+%
+% \section{The \Lpack{uguarite} package code} \label{sec:code}
+%
+% Announce the name and version of the package, which requires
+% \LaTeXe{}.
+% \begin{macrocode}
+%<*usc>
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{ugarite}[2000/09/30 v1.1 package for Ugaritic fonts]
+% \end{macrocode}
+%
+%
+% \begin{macro}{\cugarfamily}
+% Selects the font family in the OT1 encoding.
+% \begin{macrocode}
+\newcommand{\cugarfamily}{\usefont{OT1}{cugar}{m}{n}}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\textcugar}
+% Text command for the font family.
+% \begin{macrocode}
+\DeclareTextFontCommand{\textcugar}{\cugarfamily}
+
+% \end{macrocode}
+% \end{macro}
+%
+% The commands for the signs.
+% \begin{macrocode}
+\chardef\Arq=`' \chardef\Aa=`a \chardef\Aaleph=`'
+\chardef\Ab=`b \chardef\Abeth=`b
+\chardef\Ag=`g \chardef\Agimel=`g
+\chardef\Ahu=`I % \chardef\A=`
+\chardef\Ad=`d \chardef\Adaleth=`d
+\chardef\Ah=`h \chardef\Ahe=`h
+\chardef\Aw=`w \chardef\Avav=`w
+\chardef\Az=`z \chardef\Azayin=`z
+\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\Asa=`X % \chardef\A=`
+\chardef\Al=`l \chardef\Alamed=`l
+\chardef\Am=`m \chardef\Amem=`m
+\chardef\Adb=`D % \chardef\A=`
+\chardef\An=`n \chardef\Anun=`n
+\chardef\Azd=`Z % \chardef\A=`
+\chardef\As=`s \chardef\Asamekh=`s
+\chardef\Alq=`` \chardef\Ao=`o \chardef\Aayin=``
+\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\Atb=`J % \chardef\A=`
+\chardef\Agd=`G % \chardef\A=`
+\chardef\At=`t \chardef\Atav=`t
+\chardef\Ai=`i % \chardef\A=`
+\chardef\Au=`u % \chardef\A=`
+\chardef\Asg=`V % \chardef\A=`
+\chardef\Awd=`: % \chardef\A=`
+
+% \end{macrocode}
+%
+% \begin{macro}{\translitcugar}
+% \begin{macro}{\translitcugarfont}
+% |\translitcugar{|\meta{char-commands}|}| typesets a transliteration of
+% the \thisfont{} character commands. These are typeset with the
+% |\translitcugarfont|.
+% \begin{macrocode}
+\newcommand{\translitcugar}[1]{{%
+ \@translitU\translitcugarfont #1}}
+\newcommand{\translitcugarfont}{\itshape}
+
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\Uunder}
+% We need a command to put a small U shaped cup under a letter.
+% \begin{macrocode}
+\DeclareTextCommand{\Uunder}{OT1}[1]%
+ {{\o@lign{\relax#1\crcr\hidewidth\sh@ft{29}%
+ \vbox to.2ex{\hbox{\char21}\vss}\hidewidth}}}
+
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@translitU}
+% This macro redefines all the character producing commands for use within
+% |\translitcugar|. It is important not to have any spaces in the definition.
+% \begin{macrocode}
+\newcommand{\@translitU}{%
+\def\Arq{'}\def\Aa{\Arq}\def\Aaleph{\Arq}%
+\def\Ab{b}\def\Abeth{\Ab}%
+\def\Ag{g}\def\Agimel{\Ag}%
+\def\Ahu{\Uunder{h}}%
+\def\Ad{d}%
+\def\Ah{h}\def\Ahe{\Ah}%
+\def\Aw{w}\def\Avav{\Aw}%
+\def\Az{z}\def\Azayin{\Az}%
+\def\Ahd{\d{h}}\def\Aheth{\Ahd}%
+\def\Atd{\d{t}}\def\Ateth{\Atd}%
+\def\Ay{y}\def\Ayod{\Ay}%
+\def\Ak{k}\def\Akaph{\Ak}%
+\def\Asa{\'{s}}%
+\def\Al{l}\def\Alamed{\Al}%
+\def\Am{m}\def\Amem{\Am}%
+\def\Adb{\b{d}}%
+\def\An{n}\def\Anun{\An}%
+\def\Azd{\d{z}}%
+\def\As{s}\def\Asamekh{\As}%
+\def\Alq{`}\def\Ao{\Alq}\def\Aayin{\Alq}%
+\def\Ap{p}\def\Ape{\Ap}%
+\def\Asd{\d{s}}\def\Asade{\Asd}%
+\def\Aq{q}\def\Aqoph{\Aq}%
+\def\Ar{r}\def\Aresh{\Ar}%
+\def\Atb{\b{t}}%
+\def\Agd{\.{g}}%
+\def\At{t}\def\Atav{\At}%
+\def\Ai{i}%
+\def\Au{u}%
+\def\Asg{\`{s}}%
+\def\Awd{:\space}%
+}
+
+% \end{macrocode}
+% \end{macro}
+%
+% The end of this package.
+% \begin{macrocode}
+%</usc>
+% \end{macrocode}
+%
+% \section{Map file}
+% A short file.
+% \changes{v1.2}{2005/06/18}{Added map file}
+%
+% \begin{macrocode}
+%<*map>
+cugar10 Archaic-Ugaritic-Cuneiform <cugar10.pfb
+%</map>
+% \end{macrocode}
+%
+%
+% \Finale
+%
+\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/ugarite/ugarite.ins b/fonts/archaic/ugarite/ugarite.ins
new file mode 100644
index 0000000000..8935b94ed7
--- /dev/null
+++ b/fonts/archaic/ugarite/ugarite.ins
@@ -0,0 +1,90 @@
+%% ugarite.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{ugarite.ins}
+\input docstrip.tex
+\preamble
+------------------------------------------------------------------
+ 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 listed in the README file.
+------------------------------------------------------------------
+\endpreamble
+
+\keepsilent
+
+%%% \Msg{*** Generating the driver file ***}
+%%%\generateFile{ugarite.drv}{t}{\from{ugarite.dtx}{driver}}
+
+%%%\Msg{*** Generating the Metafont files ***}
+%%%\usepostamble\empty
+%%%\generateFile{cugar10.mf}{t}{\from{ugarite.dtx}{up}}
+
+\Msg{*** Generating the Font Definition files ***}
+\usepostamble\defaultpostamble
+
+\generateFile{ot1cugar.fd}{t}{\from{ugarite.dtx}{fdot1}}
+\generateFile{t1cugar.fd}{t}{\from{ugarite.dtx}{fdt1}}
+
+\Msg{*** Generating the LaTeX2e package files ***}
+
+\generateFile{ugarite.sty}{t}{\from{ugarite.dtx}{usc}}
+
+\Msg{*** Generating the map files ***}
+\usepreamble\empty
+\usepostamble\empty
+
+\generateFile{ugarite.map}{t}{\from{ugarite.dtx}{map}}
+
+\Msg{***********************************************************}
+\Msg{*}
+\Msg{* To continue the installation move these files}
+\Msg{* into the LaTeX macro area:}
+\Msg{* \space\space ot1cugar.fd}
+\Msg{* \space\space t1cugar.fd}
+\Msg{* \space\space ugarite.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/ugarite/ugarite.pdf b/fonts/archaic/ugarite/ugarite.pdf
new file mode 100644
index 0000000000..61545b17a9
--- /dev/null
+++ b/fonts/archaic/ugarite/ugarite.pdf
Binary files differ