%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % bangkaar.mf: METAFONT file that defines the Bangla conjunct vowels %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% %% 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("a",7u#, stht#,stdp#); "A-kar"; numeric xstem; xstem=.45w; matra(0,w); stem(xstem); endchar; beginchar("i",7u#, stht#, stdp#); "hraswa i-kar"; numeric xstem,height; xstem = .5w; height = matra_f*h; matra(0,w); stem(xstem); pickup pencircle xscaled 0.2pt yscaled 0.6pt rotated 45; z1 = (xstem,matra_h*h); bot z6 = (25/20w,70/50*matra_f*h); lft x5 = 0; y5=.3[y1,y6]; z7 = (53/20w,57/50height); draw z1..tension1.5..z5..{right}z6..tension1.2..z7; penlabels(1,2,3,4,5,6,7); endchar; beginchar(140, 6u#,stht#,stdp#); "dirgha i-kar"; numeric xstem,height; xstem = w-rindent; height = matra_f*h; matra(-rindent,w); stem(xstem); pickup pencircle xscaled 0.2pt yscaled 0.6pt rotated 45; z3 = (xstem,matra_h*h); z5 = (-20/17w,73/50height); z6 = (-33/17w,65/50height); z7 = (-21/17w,59/50height); lft z8 = (-rindent,matra_h*h); draw z3{up}..{left}z5{left}..{down}z6{down}..z7{right}..{dir -120}z8; penlabels(1,2,3,4,5,6,7,8); endchar; beginchar("u",0stwd#,stht#,stdp#); "hraswa-u-kar"; numeric width; width = stem_width/abs(sind(stem_slope)); z1l = (-rindent-.5stem_width,stem_width*sind(stem_slope)); z1r = (-rindent+.5stem_width,0); z2r = (-rindent,-.25d); penpos2(.5width,0); z3 = (-2rindent,-.6d); penpos3(.5width,-90); z4 = (-3rindent,-.3d); penpos4(.5width,180); z5 = (-2.2rindent,0); penpos5(.8width,90); z6 = (+1.1rindent,-d); penpos6(.5width,0); fill z1r{down}..{left}z3r..z4r..{right}z5r{right}..z2r..tension 2..z6r--z6l--z2l..{up}z1l--cycle; unfill z3l..z4l..{right}z5l..{dir -30}z2l{dir -130}..cycle; penlabels(1,2,3,4,5,6); endchar; beginchar(142,0stwd#,stht#,stdp#); "dirgha-u-kar"; numeric width; width = stem_width/abs(sind(stem_slope)); z1r = (-rindent-.5stem_width,stem_width*sind(stem_slope)); z1l = (-rindent+.5stem_width,0); z2r = (0,-.25d); penpos2(.5width,0); z3 = (-1.5rindent,-.6d); penpos3(.6width,-90); z4 = (-2.7rindent,-.3d); penpos4(.6width,180); z5 = (-2.2rindent,0); penpos5(.5width,90); z6 = (+1.5rindent,-d); penpos6(.5width,0); fill z1r..z5r..z4r..z3r..z2r--z2l..z3l..z4l..z5l..{right}z1l--cycle; penstroke z2e--z6e; penlabels(1,2,3,4,5,6); endchar; beginchar(144,0stwd#,stht#,stdp#); "ri-kar"; z1 = (w-0.9pt,0); z2 = (w-2.1pt,-1/3d); z3 = (w,-d); pickup pencircle xscaled 0.3pt yscaled 0.6pt rotated 30; draw z1--z2--z3; endchar; beginchar(146,8u#,stht#,stdp#); "ae-kar"; numeric balld; balld = 1.5dot_diam; z1 = (w-.5balld,.5balld); fill fullcircle scaled balld shifted z1; z3l = (.5w,matra_f*h-.5matra_thickness); z3r = (w,y3l); z4l = (.15w,.5matra_f*h); z4r = z4l + (.15w,0); z5l = (x1,0); z5r = z1; penstroke z3e..{down}z4e..{right}z5e; picture shape_ekar; shape_ekar = currentpicture; matra(0,w); z9 = (0,.4h); z10 = (.8w,y9); pickup penrazor xscaled 1.5stem_width rotated 90; draw z9--z10; matra(0,w); penlabels (1,3,4,5,9,10); endchar; beginchar("e",8u#,stht#,stdp#); "e-kar"; currentpicture := shape_ekar; matra(0,w); endchar; beginchar(148,8u#,stht#,stdp#); "oi-kar"; currentpicture := shape_ekar; Tiki(.9w,0); matra(0,w); endchar; beginchar("o",0,stht#,stdp#); "o-kar"; endchar; beginchar(150,6u#,stht#,stdp#); "ou-kar"; numeric xstem; xstem=.5w; Tiki(xstem,-3rindent); matra(0,w); stem(xstem); endchar; %%% End of bangkaar.mf