summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/fonts/archaic/sarabian/sarab10.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/fonts/archaic/sarabian/sarab10.mf')
-rw-r--r--Master/texmf-dist/doc/fonts/archaic/sarabian/sarab10.mf321
1 files changed, 321 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/fonts/archaic/sarabian/sarab10.mf b/Master/texmf-dist/doc/fonts/archaic/sarabian/sarab10.mf
new file mode 100644
index 00000000000..7046bbc7c09
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/archaic/sarabian/sarab10.mf
@@ -0,0 +1,321 @@
+%%
+%% This is file `sarab10.mf',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% sarabian.dtx (with options: `up')
+%% ------------------------------------------------------------------
+%% 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.
+%% ------------------------------------------------------------------
+%%% SARAB10.MF South Arabian font 10 point design size.
+
+%%% This font was designed by Alan M Stanier ( alan@essex.ac.uk ),
+%%% at Essex University Computer Service, Colchester, Essex CO4 3EA. England.
+%%%
+%%% If you make significant additions or improvements to the font,
+%%% please email me an updated version
+%%%
+%%% This font was used for several languages in Southern Arabia in the
+%%% second millenium BC
+%%%
+
+mode_setup;
+font_identifier:="sarabian";
+font_size:= 10pt#; % nominally, a 10pt font
+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
+
+numeric pmg; pmg:=0.8; % a scale factor
+
+xpensize#:=pmg*0.8pt;
+ypensize#:=pmg*0.2pt;
+height#:=pmg*10pt#;
+width#:=pmg*7pt#;
+narrow#:=pmg*5.3pt#;
+
+mg#:= pmg*0.3pt#;
+define_pixels(mg);
+
+numeric cscale; % scale factor for original circles
+cscale# := mg#;
+define_pixels(cscale);
+let cmchar=\;
+
+
+define_pixels(height,width,narrow);
+def getpen = pickup pencircle xscaled xpensize# yscaled ypensize# rotated 30 enddef;
+
+
+
+cmchar "letter h";
+beginchar("h",width#,height#,0);
+ getpen;
+ draw (0,mg*30){down} .. (mg*7.5,mg*15){right} .. (mg*15,mg*30){up};
+ draw (mg*7.5,mg*15) -- (mg*7.5,0);
+endchar;
+
+
+cmchar "letter l";
+beginchar("l",width#,height#,0);
+ getpen;
+ draw (0,mg*15) -- (mg*15,mg*30) -- (mg*15,0);
+endchar;
+
+
+cmchar "letter h sub dot (coded as H)";
+beginchar("H",width#,height#,0);
+ getpen;
+ draw (0,mg*30){down} .. (mg*7.5,mg*15){right} .. (mg*15,mg*30){up};
+ draw (mg*7.5,mg*30) -- (mg*7.5,0);
+endchar;
+
+
+cmchar "letter m";
+beginchar("m",width#,height#,0);
+ getpen;
+ draw (mg*15,mg*30) -- (mg*15,0) -- (0,mg*7.5) -- (mg*15,mg*15) --
+(0,mg*22.5) -- (mg*15,mg*30);
+endchar;
+
+
+cmchar "letter q";
+beginchar("q",narrow#,height#,0);
+ getpen;
+ draw fullcircle scaled (10cscale) shifted(mg*5,mg*15);
+ draw (mg*5,mg*20) -- (mg*5,mg*30);
+ draw (mg*5,mg*10) -- (mg*5,0);
+endchar;
+
+
+cmchar "letter w";
+beginchar("w",width#,height#,0);
+ getpen;
+ draw fullcircle scaled (15cscale) shifted(mg*7.5,mg*15);
+ draw (mg*7.5,mg*7.5) -- (mg*7.5,mg*22.5);
+endchar;
+
+
+cmchar "letter s sup v (coded as S)";
+beginchar("S",width#,height#,0);
+ getpen;
+ draw (0,0) -- (0,mg*15) -- (mg*15,mg*15) -- (mg*15,0);
+ draw (mg*7.5,mg*15) -- (mg*7.5,mg*30);
+endchar;
+
+
+cmchar "letter r";
+beginchar("r",width#,height#,0);
+ getpen;
+ draw (0,mg*30){right} .. (mg*15,mg*15){down} .. (0,0){left};
+endchar;
+
+
+cmchar "letter b";
+beginchar("b",width#,height#,0);
+ getpen;
+ draw (0,0) -- (0,mg*30) -- (mg*15,mg*30) -- (mg*15,0);
+endchar;
+
+
+cmchar "letter t";
+beginchar("t",width#,height#,0);
+ getpen;
+ draw (0,0) -- (mg*15,mg*30);
+ draw (0,mg*30) -- (mg*15,0);
+endchar;
+
+
+cmchar "letter s";
+beginchar("s",width#,height#,0);
+ getpen;
+ draw (0,0) -- (mg*15,mg*15) -- (0,mg*30);
+ draw (mg*15,0) -- (0,mg*15) -- (mg*15,mg*30);
+endchar;
+
+
+cmchar "letter k";
+beginchar("k",width#,height#,0);
+ getpen;
+ draw (0,0) -- (0,mg*15) -- (mg*15,mg*15) -- (mg*15,0);
+ draw (0,mg*15) -- (mg*7.5,mg*30);
+endchar;
+
+
+cmchar "letter n";
+beginchar("n",width#,height#,0);
+ getpen;
+ draw (0,mg*30) -- (0,mg*15) -- (mg*15,mg*15) -- (mg*15,0);
+endchar;
+
+
+cmchar "letter h sub u (coded as H)";
+%%beginchar("1",width#,height#,0);
+beginchar("I",width#,height#,0);
+ getpen;
+ draw (0,mg*30){down} .. (mg*7.5,mg*15){right} .. (mg*15,mg*30){up};
+ draw (mg*7.5,mg*15) -- (mg*7.5,mg*7.5) -- (mg*15,mg*7.5) -- (mg*15,0);
+endchar;
+
+
+cmchar "letter s acute (coded as X)";
+%%beginchar("2",width#,height#,0);
+beginchar("X",width#,height#,0);
+ getpen;
+ draw (0,0) -- (mg*15,mg*7.5) -- (0,mg*15) --
+(mg*15,mg*22.5) -- (0,mg*30);
+endchar;
+
+
+cmchar "letter f";
+beginchar("f",width#,height#,0);
+ getpen;
+ draw (0,mg*15) -- (mg*7.5,0) -- (mg*15,mg*15) -- (mg*7.5,mg*30)
+-- (0,mg*15);
+endchar;
+
+
+cmchar "letter `";
+beginchar("`",width#,height#,0);
+ getpen;
+ draw (0,0) -- (0,mg*15) -- (mg*15,mg*15) -- (mg*15,0);
+ draw (mg*7.5,mg*15) -- (mg*7.5,mg*22.5) -- (0,mg*22.5) -- (0,mg*30);
+endchar;
+
+
+cmchar "letter ` (coded as o)";
+beginchar("o",width#,height#,0);
+ getpen;
+ draw (0,0) -- (0,mg*15) -- (mg*15,mg*15) -- (mg*15,0);
+ draw (mg*7.5,mg*15) -- (mg*7.5,mg*22.5) -- (0,mg*22.5) -- (0,mg*30);
+endchar;
+
+
+cmchar "letter '";
+beginchar("'",narrow#,height#,0);
+ getpen;
+ draw fullcircle scaled (10cscale) shifted(mg*5,mg*10);
+endchar;
+
+
+cmchar "letter ' (coded as a)";
+beginchar("a",narrow#,height#,0);
+ getpen;
+ draw fullcircle scaled (10cscale) shifted(mg*5,mg*10);
+endchar;
+
+
+cmchar "letter d sub dot (coded as B)";
+%%beginchar("D",width#,height#,0);
+beginchar("B",width#,height#,0);
+ getpen;
+ draw (0,0) -- (mg*15,0) -- (mg*15,mg*30) -- (0,mg*30) -- (0,0);
+ draw (0,mg*15) -- (mg*15,mg*15);
+endchar;
+
+
+cmchar "letter g";
+beginchar("g",width#,height#,0);
+ getpen;
+ draw (0,mg*30) -- (mg*15,mg*30) -- (mg*15,0);
+endchar;
+
+
+cmchar "letter d";
+beginchar("d",narrow#,height#,0);
+ getpen;
+ draw (0,mg*10) -- (0,mg*20) -- (mg*10,mg*15) -- (0,mg*10);
+ draw (mg*10,0) -- (mg*10,mg*30);
+endchar;
+
+
+cmchar "letter g acute (coded as G)";
+beginchar("G",width#,height#,0);
+ getpen;
+ draw (0,mg*25) -- (mg*5,mg*30) -- (mg*15,mg*30) -- (mg*15,0);
+ draw (mg*5,0) -- (mg*5,mg*30);
+endchar;
+
+
+cmchar "letter t sub dot (coded as T)";
+beginchar("T",width#,height#,0);
+ getpen;
+ draw (0,0) -- (mg*15,0) -- (mg*15,mg*30) -- (0,mg*30) -- (0,0);
+ draw (mg*7.5,0) -- (mg*7.5,mg*30);
+endchar;
+
+
+cmchar "letter z";
+beginchar("z",width#,height#,0);
+ getpen;
+ draw (0,0) -- (mg*15,mg*30) -- (0,mg*30) --
+(mg*15,0) -- (0,0);
+endchar;
+
+
+cmchar "letter d sub bar (coded as D)";
+%%beginchar("5",width#,height#,0);
+beginchar("D",width#,height#,0);
+ getpen;
+ draw (0,0) -- (0,mg*30);
+ draw (mg*15,0) -- (mg*15,mg*30);
+ draw (0,mg*12.5) -- (mg*15,mg*12.5);
+ draw (0,mg*17.5) -- (mg*15,mg*17.5);
+endchar;
+
+
+cmchar "letter y";
+beginchar("y",narrow#,height#,0);
+ getpen;
+ draw fullcircle scaled (10cscale) shifted(mg*5,mg*25);
+ draw (mg*5,mg*20) -- (mg*5,0);
+endchar;
+
+
+cmchar "letter t sub bar (coded as J)";
+%%beginchar("4",narrow#,height#,0);
+beginchar("J",narrow#,height#,0);
+ getpen;
+ draw fullcircle scaled (10cscale) shifted(mg*5,mg*25);
+ draw (mg*5,mg*20) -- (mg*5,mg*10);
+ draw fullcircle scaled (10cscale) shifted(mg*5,mg*5);
+endchar;
+
+
+cmchar "letter s sub dot (coded as x)";
+%%beginchar("3",narrow#,height#,0);
+beginchar("x",narrow#,height#,0);
+ getpen;
+ draw fullcircle scaled (10cscale) shifted(mg*5,mg*25);
+ draw (mg*5,mg*20) -- (mg*5,mg*10);
+ draw (0,0){up} .. (mg*5,mg*10){right} .. (mg*10,0){down};
+endchar;
+
+
+cmchar "letter z sub dot (coded as Z)";
+beginchar("Z",narrow#,height#,0);
+ getpen;
+ draw fullcircle scaled (10cscale) shifted(mg*5,mg*25);
+ draw (mg*5,mg*20) -- (mg*5,0);
+ draw (mg*5,mg*10){right} .. (mg*10,0){down};
+endchar;
+
+
+end
+