%		SouthArabian.mf
% This font was designed by Alan M Stanier      ( alan@essex.ac.uk ),
% at Essex University Computer Service, Colchester, Essex CO4 3EA. England.
%
% If you make significant additions or improvements to the font,
% please email me an updated version
%
% This font was used for several languages in Southern Arabia in the
% second millenium BC


mg:=1.0;	% CHANGE THIS TO GET DIFFERENT SIZES OF FONT (font size = 10*mg pt)

mode_setup;
xpensize#:=mg*0.8pt;
ypensize#:=mg*0.2pt;
height#:=mg*10pt#;
width#:=mg*7pt#;
narrow#:=mg*5.3pt#;
define_pixels(height,width,narrow);
def getpen = pickup pencircle xscaled xpensize# yscaled ypensize# rotated 30 enddef;

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;
%
beginchar("l",width#,height#,0);
 getpen;
 draw (0,mg*15) -- (mg*15,mg*30) -- (mg*15,0);
endchar;
%
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;
%
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;
%
beginchar("q",narrow#,height#,0);
 getpen;
 draw fullcircle scaled 10 shifted(mg*5,mg*15);
 draw (mg*5,mg*20) -- (mg*5,mg*30);
 draw (mg*5,mg*10) -- (mg*5,0);
endchar;
%
beginchar("w",width#,height#,0);
 getpen;
 draw fullcircle scaled 15 shifted(mg*7.5,mg*15);
 draw (mg*7.5,mg*7.5) -- (mg*7.5,mg*22.5);
endchar;
%
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;
%
beginchar("r",width#,height#,0);
 getpen;
 draw (0,mg*30){right} .. (mg*15,mg*15){down} .. (0,0){left};
endchar;
%
beginchar("b",width#,height#,0);
 getpen;
 draw (0,0) -- (0,mg*30) -- (mg*15,mg*30) -- (mg*15,0);
endchar;
%
beginchar("t",width#,height#,0);
 getpen;
 draw (0,0) -- (mg*15,mg*30);
 draw (0,mg*30) -- (mg*15,0);
endchar;
%
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;
%
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;
%
beginchar("n",width#,height#,0);
 getpen;
 draw (0,mg*30) -- (0,mg*15) -- (mg*15,mg*15) -- (mg*15,0);
endchar;
%
beginchar("1",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;
%
beginchar("2",width#,height#,0);
 getpen;
 draw (0,0) -- (mg*15,mg*7.5) -- (0,mg*15) --
	(mg*15,mg*22.5) -- (0,mg*30);
endchar;
%
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;
%
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;
%
beginchar("'",narrow#,height#,0);
 getpen;
 draw fullcircle scaled 10 shifted(mg*5,mg*10);
endchar;
%
beginchar("D",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;
%
beginchar("g",width#,height#,0);
 getpen;
 draw (0,mg*30) -- (mg*15,mg*30) -- (mg*15,0);
endchar;
%
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;
%
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;
%
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;
%
beginchar("z",width#,height#,0);
 getpen;
 draw (0,0) -- (mg*15,mg*30) -- (0,mg*30) --
	(mg*15,0) -- (0,0);
endchar;
%
beginchar("5",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;
%
beginchar("y",narrow#,height#,0);
 getpen;
 draw fullcircle scaled 10 shifted(mg*5,mg*25);
 draw (mg*5,mg*20) -- (mg*5,0);
endchar;
%
beginchar("4",narrow#,height#,0);
 getpen;
 draw fullcircle scaled 10 shifted(mg*5,mg*25);
 draw (mg*5,mg*20) -- (mg*5,mg*10);
 draw fullcircle scaled 10 shifted(mg*5,mg*5);
endchar;
%
beginchar("3",narrow#,height#,0);
 getpen;
 draw fullcircle scaled 10 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;
%
beginchar("Z",narrow#,height#,0);
 getpen;
 draw fullcircle scaled 10 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