ghab (4apr13)

git-svn-id: svn://tug.org/texlive/trunk@29653 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 184 insertions, 0 deletions

diff --git a/Master/texmf-dist/fonts/source/public/ghab/ghab.mf b/Master/texmf-dist/fonts/source/public/ghab/ghab.mf
new file mode 100755
index 00000000000..37a83f100e6
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/ghab/ghab.mf
@@ -0,0 +1,184 @@
+%%
+%% This is file `ghab.mf',
+
+%% 
+%%   __________________________________
+%%   Copyright © 2011–2013 Persian TeX Group
+%% 
+%%   License information appended.
+%% 
+%%
+
+
+font_identifier:="ghab";
+em#=10pt#;
+u# := 1/20em#;
+zekh#=1.2u#;
+wd#:=2zekh#;
+mode_setup;
+define_pixels(em,u,zekh,wd);
+pickup pencircle scaled zekh;
+
+def loaf(expr bp,lp)=begingroup
+save x,y,p;
+path p[];
+numeric teta;
+  pickup pencircle scaled zekh;
+  z1=bp;
+  z2=lp;
+  teta=angle(z2-z1);
+  z2b=z2 rotatedaround(z1,-teta);
+  x4=.4[x1,x2b];
+  x5=.1[x4,x2b];
+  y3=y4;x3=x2b;
+  y4-y2b=.25(x2b-x1);
+  y5=1.2[y2b,y4];
+  p1=z1{dir-45}..tension 1.2 ..{up}z3..{down}z4..tension1.3..z5..tension1.4..z4;
+ 
+  p2=p1 rotatedaround(z1,teta);
+  p3=p2 reflectedabout(z1,z2);
+  draw p2;
+  draw p3;
+endgroup;
+enddef;
+
+beginchar(1,em#,0.5em#,0.5em#);
+z1=(0,0);
+z2=(x1+wd,0);
+z3=(.5w,-d+wd);
+z4=(.5w,-d);
+z6=(w,0);
+z7=(.5w,h);
+loaf(z2,z6);
+loaf(z3,z7);
+draw z1--z2;
+draw z3--z4;
+endchar;
+
+beginchar(2,em#,0.5em#,0.5em#);
+z1=(0,0);
+z2=(x1+wd,0);
+z3=(.5w,-d+wd);
+z4=(.5w,-d);
+z6=(w,0);
+z7=(.5w,h);
+currenttransform:=identity reflectedabout((.5w,0),(.5w,10));
+loaf(z2,z6);
+loaf(z3,z7);
+draw z1--z2;
+draw z3--z4;
+endchar;
+
+beginchar(3,em#,0.5em#,0.5em#);
+z1=(0,0);
+z2=(x1+wd,0);
+z3=(.5w,-d+wd);
+z4=(.5w,-d);
+z6=(w,0);
+z7=(.5w,h);
+currenttransform:=identity reflectedabout((0,0),(5,0));
+loaf(z2,z6);
+loaf(z3,z7);
+draw z1--z2;
+draw z3--z4;
+endchar;
+
+beginchar(4,em#,0.5em#,0.5em#);
+z1=(0,0);
+z2=(x1+wd,0);
+z3=(.5w,-d+wd);
+z4=(.5w,-d);
+z6=(w,0);
+z7=(.5w,h);
+currenttransform:=identity reflectedabout((0,0),(5,0));
+currenttransform:=currenttransform reflectedabout((.5w,0),(.5w,10));
+loaf(z2,z6);
+loaf(z3,z7);
+draw z1--z2;
+draw z3--z4;
+endchar;
+
+wh#=em#;
+define_pixels(wh);
+currenttransform:=identity;
+beginchar(8,wh#,wh#,0);
+z1=(0,h);
+z2=(w,0);
+pickup pencircle scaled .4pt;
+draw z1{dir 0}..{dir -90}z2;
+endchar;
+
+beginchar(9,wh#,wh#,0);
+z1=(0,0);
+z2=(w,h);
+pickup pencircle scaled .4pt;
+draw z1{dir 90}..{dir 0}z2;
+endchar;
+
+beginchar(10,wh#,0,wh#);
+z1=(0,0);
+z2=(w,-d);
+pickup pencircle scaled .4pt;
+draw z1{dir -90}..{dir 0}z2;
+endchar;
+
+beginchar(11,wh#,0,wh#);
+z1=(0,-d);
+z2=(w,0);
+pickup pencircle scaled .4pt;
+draw z1{dir 0}..{dir 90}z2;
+endchar;
+
+beginchar(16,wh#,wh#,0);
+z1=(0,h);
+z2=(w,0);
+pickup pencircle scaled .8pt;
+draw z1{dir 0}..{dir -90}z2;
+endchar;
+
+beginchar(17,wh#,wh#,0);
+z1=(0,0);
+z2=(w,h);
+pickup pencircle scaled .8pt;
+draw z1{dir 90}..{dir 0}z2;
+endchar;
+
+beginchar(18,wh#,0,wh#);
+z1=(0,0);
+z2=(w,-d);
+pickup pencircle scaled .8pt;
+draw z1{dir -90}..{dir 0}z2;
+endchar;
+
+beginchar(19,wh#,0,wh#);
+z1=(0,-d);
+z2=(w,0);
+pickup pencircle scaled .8pt;
+draw z1{dir 0}..{dir 90}z2;
+endchar;
+
+
+font_size em#;  % the "design size" of this font
+font_slant  0;
+font_normal_space 1/4em#;
+font_normal_stretch 1/6em#;
+font_normal_shrink 1/6em#;
+font_x_height zekh#;
+font_quad em#;
+font_extra_space 1/3em#;
+end.
+%% 
+%% Copyright © 2011–2013      by Persian TeX Group     <persian-tex@tug.org>
+%% 
+%% Distributable under the LaTeX Project Public License,
+%% version 1.3c or higher (your choice). The latest version of
+%% this license is at: http://www.latex-project.org/lppl.txt
+%% 
+%% This work is "maintained" (as per LPPL maintenance status)
+%% by Persian TeX Group.
+%% 
+%% 
+%% 
+%% 
+%%
+%% End of file `ghab.mf'.