summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/ghab/ghab.mf
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/ghab/ghab.mf')
-rwxr-xr-xmacros/latex/contrib/ghab/ghab.mf184
1 files changed, 184 insertions, 0 deletions
diff --git a/macros/latex/contrib/ghab/ghab.mf b/macros/latex/contrib/ghab/ghab.mf
new file mode 100755
index 0000000000..37a83f100e
--- /dev/null
+++ b/macros/latex/contrib/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'.