%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % banghalf.mf: METAFONT file that defines the broken form for % consonants to be used in conjuncts %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% %% This file is part of the package BANGTEX, containing Bangla fonts %% and style files for the TeX/LaTeX typesetting systems %% %% Copyright (C) 2001, 2002 Palash Baran Pal %% e-mail: pbpal@theory.saha.ernet.in internet: %% internet: http://tnp.saha.ernet.in/~pbpal %% Address: Saha Institute of Nuclear Physics %% 1/AF Bidhan Nagar %% Calcutta 700064, INDIA %% %% Original release: January 2001 %% Latest modification released: January 2002 %% %% This program is free software; you can redistribute it and/or modify %% it under the terms of the GNU General Public License as published by %% the Free Software Foundation; either version 2 of the License, or %% (at your option) any later version. %% %% This program is distributed in the hope that it will be useful, %% but WITHOUT ANY WARRANTY; without even the implied warranty of %% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the %% GNU General Public License for more details. %% %% You should have received a copy of the GNU General Public License %% along with this program; if not, write to the Free Software %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA %% 02111-1307 USA %% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% beginchar(160,12u#,stht#,stdp#); "k+"; numeric hh,hrise; hh=.6h; hrise = matra_f*h-.75hh; ka(0,hrise,w-rindent,hh); matra(0,w); endchar; beginchar(161,8u#,stht#,stdp#); "g+"; numeric hh,hrise; hh = .75h; hrise = matra_f*(h-hh); ga_(0,hrise,w+lindent,hh); endchar; beginchar(162,9u#,stht#,stdp#); "unga+"; numeric ww,hh,hrise; ww=w+lindent; hh=.5h; hrise = (matra_f+.5matra_t)*h-hh; unga(0,hrise,ww,hh); endchar; beginchar(163,7u#,stht#,stdp#); "c+"; numeric ww,hh,hrise; ww = w+lindent; hh=.65h; hrise = matra_h*(h-hh); matra(0,w); ca(0,hrise,ww,hh); endchar; beginchar(164,10u#,stht#,stdp#); "j+"; numeric hh,hrise; hh=.7h; hrise=matra_f*(h-hh); ja_(0,hrise,w+lindent,hh); matra(0,w); endchar; beginchar(165,12u#,stht#,stdp#); "ina+"; numeric hE,hrise; hE=.5h; hrise = matra_f*(h-hE); ina(0,hrise,w+lindent,hE); endchar; beginchar(166,12u#,stht#,stdp#); "T+"; numeric hh,hrise; hh = .9h; hrise = matra_f*(h-hh); Dha(0,hrise,w,hh); matra(0,w); Tiki(.9w,.1w); endchar; beginchar(167,14u#,stht#,stdp#); "D+"; numeric hrise,hh; hh = .75matra_f*h; hrise = matra_f*h-hh; Da(0,hrise,w,hh,.88); matra(0,w); endchar; beginchar(168,6u#,stht#,stdp#); "N+"; numeric hrise,hh; hh = .7h; hrise = matra_f*(h - hh)-matra_thickness; Na_(.001w,hrise,w+lindent,hh); endchar; beginchar(169,14u#,stht#,stdp#); "t+"; numeric hrise,hta; hta = .65h; hrise = matra_f*(h - hta); ta(.04w,hrise,.9w,matra_f*hta); matra(0,w); endchar; beginchar(170,8u#,stht#,stdp#); "d+"; numeric hh,hrise; hh = .7h; hrise = matra_f*(h-hh); matra(0,w); da(0,hrise,w+lindent,hh); endchar; beginchar(171,5u#,stht#,stdp#); "n+"; numeric ww,hh,hrise; ww = w+lindent; hh=.8h; matra(0,w); hrise = matra_f*(h-hh); na_(0,1.5hrise,ww,matra_f*hh); endchar; beginchar(172,10u#,stht#,stdp#); "p+"; numeric hh,hrise; hh = .8h; hrise = matra_h*(h-hh); pa_(0,hrise,w+lindent,hh); endchar; beginchar(173,9u#,stht#,stdp#); "b+"; numeric hh,hrise,ww; hh = .7h; hrise = matra_f*(h-hh); ww = w - .5stem_width; ba(0,hrise,ww,hh); matra(0,w); endchar; beginchar(174,11u#,stht#,stdp#); "m+"; numeric balld,height; balld = .35w; height = matra_f*h; y1 = matra_h*h; x1r = x2l; penpos1(.3balld,0); z2l = (16/43w,37/50height); penpos2(.5balld,0); fill z1l..{down}z2--z2r{up}..z1r--cycle; % The dot fill fullcircle scaled balld shifted z2l; % The part to the right of the dot pickup pencircle xscaled .5balld yscaled .25balld rotated -50; top z3 = z2l + .5balld*dir 90; z4 = (.75[x2l,w],30/50height); rt z5 = (w+lindent,y3); top z6 = (w,height); draw z3{right}..{right}z4..{up}z5..z6; penlabels(1,2,3,4,5,6); picture shape_halfma; shape_halfma = currentpicture; matra(0,w); endchar; beginchar(176,10u#,stht#,stdp#); "l+"; numeric hh,hrise; hh=.8h; hrise = matra_f*h-.75hh; matra(0,w); la_(0,hrise,w+lindent,hh); endchar; beginchar(177,9u#,stht#,stdp#); "sh+"; numeric hh,hrise; hh = .8h; hrise = matra_f*(h-hh); sha_(0,hrise,w+lindent,hh); endchar; beginchar(178,8u#,stht#,stdp#); "Sh+"; numeric balld; balld = w; z1 = (w+rindent-.5balld,matra_f*h-.5balld); golla(z1,balld); matra(0,w); pickup pencircle scaled .1w; lft top z2 = z1 + .5balld * dir (135); rt bot z3 = z1 + .5balld * dir (-45); draw z2--z3; penlabels(1,2,3); endchar; beginchar(179,9u#,stht#,stdp#); "s+"; numeric ww,hh,hrise; ww = w+lindent; hh=.55h; hrise = matra_h*h-hh; sa_(0,hrise,ww,hh); matra(0,w); endchar; beginchar(154,13u#,stht#,stdp#); "small bha"; numeric ww,hh,hrise; ww = w; hh=.7h; hrise = matra_f*(h-hh); bha(0,hrise,ww,matra_f*hh); matra(0,w); endchar; beginchar(155,14u#,stht#,stdp#); "small ma"; numeric hh,hrise; hh=.85h; hrise = matra_f*(h-hh); ma_(0,hrise,w,hh); matra(0,w); endchar; beginchar(156,14u#,stht#,stdp#); "small sa"; numeric hh,hrise,xstem; hh=.5h; hrise = matra_h*h-hh; xstem = w - rindent; sa_(0,hrise,xstem,hh); matra(0,w); stem(w-rindent); endchar; %%% End of banghalf.mf