%% %% 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 %% %% 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'.