summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/bangtex/bangnum.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/bangtex/bangnum.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/bangtex/bangnum.mf209
1 files changed, 209 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/bangtex/bangnum.mf b/Master/texmf-dist/fonts/source/public/bangtex/bangnum.mf
new file mode 100644
index 00000000000..9677db2d198
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/bangtex/bangnum.mf
@@ -0,0 +1,209 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% bangnum.mf: METAFONT file that defines the Bangla numerals
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%% 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("0",16u#,stht#,stdp#); "The number 0";
+ numeric balld; balld = .55h;
+ z1 = (.5w,matra_f*h/2);
+ golla (z1,balld);
+ penlabels(1);
+endchar;
+
+beginchar("1",16u#,stht#,stdp#); "The number 1";
+ numeric phi,xs,ys; xs = 20/45w; ys = 10/50h;
+ z1 = (13/45w,matra_f*45/50h);
+ z2l = z1 - (.5numball_two,0); penpos2(.8numball_two,0);
+ z3 = (34/45w,matra_f*18/50h); penpos3(3/45w,0);
+ z4 = .5[z3r,(w,y3r)];
+ z5l = (22/45w,matra_f*7/50h);
+ phi = angle(z4-z5l);
+ penpos5(.5ys,phi-90);
+ fill fullcircle scaled numball_two shifted z1;
+ fill z2l{down}..z3l..z5l--z5r..z3r{up}..{up}z2r--cycle;
+ fill fullcircle xscaled xs yscaled ys rotated phi shifted z5l;
+ penlabels(1,2,3,4,5,6);
+endchar;
+
+beginchar("2",16u#,stht#,stdp#); "The number 2";
+ z1 = (17/45w,matra_f*45/50h);
+ z2l = z1 - (.5numball_two,0); penpos2(.8numball_two,0);
+ z3 = (34/45w,matra_f*26/50h); penpos3(3/45w,0);
+ z4l = (22/45w,matra_f*20/50h);
+ z4r = (19/45w,matra_f*14/50h);
+ z5l = (6/45w,matra_f*26/50h);
+ z5r = (10/45w,matra_f*16/50h);
+ z6 = (43/45w,-ha_dip); penpos6(length(z3l-z3r),angle(z5r-z5l));
+ fill fullcircle scaled numball_two shifted z1;
+ fill z2l{down}..{down}z3l..{left}z4l..z5l--z5r..z4r{right}..z3r{up}..{up}z2r--cycle;
+ fill z5l..{z6l-z4l}z6l--z6r{z4r-z6r}..z5r--cycle;
+ penlabels(1,2,3,4,5,6);
+endchar;
+
+beginchar("3",16u#,stht#,stdp#); "The number 3";
+ numeric balld; balld = 1.2numball_one;
+ z1r = (21/45w,matra_f*33/50h); penpos1(.5balld,0);
+ z2l = (25/45w,matra_f*44/50h);
+ z2r = (28/45w,matra_f*39/50h);
+ z5r = (38/45w,matra_f*25/50h);
+ z5l = (41/45w,matra_f*23/50h);
+ z6r = (26/45w,matra_f*12/50h);
+ z6l = (26/45w,matra_f*5.5/50h);
+ z7r = (3.5/45w,matra_f*39/50h);
+ z7l = (1/45w,matra_f*40/50h);
+ fill fullcircle scaled balld shifted z1r;
+ fill z1l{up}..tension0.95..z2l{right}..{down}z5l--z5r{up}..z2r{left}..z1r--cycle;
+ fill z5r{down}..{left}z6r..{z7l-(x2l,0)}z7r--z7l{(x1r,0)-z7r}..tension1.2..z6l{right}..{up}z5l--cycle;
+ penlabels(1,2,3,4,5,6,7);
+endchar;
+
+beginchar("4",16u#,stht#,stdp#); "The number 4";
+ numeric w_one, w_two; w_one = matra_f*2.5/50h; w_two = 5/45w;
+ z1l = (22/45w,matra_f*48/50h); penpos1(w_one,-90);
+ z2 = (11/45w,matra_f*36/50h); penpos2(w_two,0);
+ z3l = (18/45w,matra_f*24/50h);
+ z3r = (28/45w,matra_f*26/50h); z3 = .5[z3l,z3r];
+ z4 = (35/45w,matra_f*13/50h); penpos4(w_two,0);
+ z5r = (x1,matra_f*h-y1l); penpos5(w_one,-90);
+ z6 = (11/45w,y4); penpos6(w_two,180);
+ z7l = (21/45w,matra_f*22/50h);
+ z7r = (24.5/45w,matra_f*27/50h); z7 = z3;
+ z8 = (34/45w,y2); penpos8(w_two,180);
+ pickup pencircle xscaled (length(z3l-z3r)) yscaled (matra_f*3/50h) rotated (angle(z3r-z3l));
+ penstroke z1e..z2e..z3e..z4e..z5e..z6e..z7e..z8e..cycle;
+ penlabels(1,2,3,4,5,6,7,8);
+endchar;
+
+beginchar("5",16u#,stht#,stdp#); "The number 5";
+ z1l = (30/45w,matra_f*48/50h);
+ z1r = (23.5/45w,matra_f*41/50h);
+ z2 = (6.5/45w,matra_f*20/50h); penpos2(4/45w,0);
+ z3l = (22/45w,matra_f*2.5/50h);
+ z3r = (26/45w,matra_f*5/50h);
+ z4l = (35/45w,matra_f*4.5/50h);
+ z5l = (31/45w,matra_f*7/50h);
+ z4r = z5l;
+ z5r = z3r;
+ penstroke z1e..{down}z2e..z3e..z4e;
+ fill z5l--z4l--z3r--cycle;
+ z6l = (24/45w,matra_f*14/50h);
+ z6r = (19/45w,matra_f*18/50h);
+ z7l = (29/45w,matra_f*27/50h);
+ z7r = (x6l,matra_f*30/50h);
+ z8l = (40/45w,matra_f*33/50h);
+ z8r = (x7l,matra_f*33/50h);
+ z9l = (31/45w,matra_f*40/50h);
+ z9r = (25/45w,matra_f*36/50h);
+ penstroke z5e..z6e{up}..z7e..z8e;
+ penstroke z8e..z9e..{up}z1e;
+ penlabels(1,2,3,4,5,6,7,8,9);
+endchar;
+
+beginchar("6",16u#,stht#,stdp#); "The number 6";
+ z1l = (14/45w,matra_f*43/50h); penpos1(.5numball_two,0);
+ z2l = (16/45w,matra_f*31/50h); penpos2(4/45w,0);
+ z3l = (25/45w,matra_f*21/50h);
+ z3r = (22.5/45w,matra_f*26/50h);
+ z4l = (36/45w,matra_f*29/50h);
+ z4r = (33.5/45w,matra_f*37/50h);
+ z5l = (39/45w,matra_f*22/50h);
+ z5r = (41.5/45w,matra_f*22/50h);
+ z6l = (26/45w,matra_f*10.5/50h);
+ z6r = (26/45w,matra_f*4.5/50h);
+ z7l = (3.5/45w,matra_f*39/50h);
+ z7r = (1/45w,matra_f*40/50h);
+ fill fullcircle scaled numball_two shifted z1l;
+ fill z1l--z2l{z2l-z1l}..z3l..tension2..z4l--z4r..tension2..z3r..z2r..tension3..z1r--cycle;
+ fill z4r..{down}z5r--z5l{up}..z4l--cycle;
+% baTi(z5l,z5r,z6r,z7r);
+ fill z5r{down}..{left}z6r..{z7l-(x2l,y6l)}z7r--z7l{(x2l,y6r)-z7r}..z6l{right}..{up}z5l--cycle;
+ penlabels(1,2,3,4,5,6,7);
+endchar;
+
+
+beginchar("7",16u#,stht#,stdp#); "The number 7";
+ z5r = (33/45w,matra_f*7/50h); penpos5(.5numball_two,0);
+ z4l = (28/45w,matra_f*26/50h); penpos4(stem_width,0);
+ z3' = (x4l,matra_f*30/50h);
+ z3l = (16/45w,y4l);
+ z3r = (x3l,y3');
+ z2l = (6.5/45w,matra_f*34/50h);
+ z2r = (11/45w,matra_f*31/50h);
+ z1l = (19/45w,matra_f*47/50h);
+ z1r = (22/45w,matra_f*43/50h);
+ fill fullcircle scaled numball_two shifted z5r;
+ fill z5l..z4l--z4l{left}..z3l..z2l{up}..{right}z1l..{down}z4r..z5r--cycle;
+ unfill z3'{left}..{left}z3r..z2r..tension1.5..z1r..tension2..cycle;
+ penlabels(1,2,3,3',4,5);
+endchar;
+
+beginchar("8",16u#,stht#,stdp#); "The number 8";
+ z1l = (6/45w,matra_f*43/50h); penpos1(.5numball_two,0);
+ z2r = (x1r,matra_f*27/50h); penpos2(stem_width,0);
+ z4l = (14/45w,matra_f*4/50h);
+ z4r = (x4l,matra_f*9/50h); z4 = .5[z4l,z4r];
+ z3r = (x1r,.7[y2,y4]); penpos3(stem_width,0);
+ z5l = (30/45w,matra_f*20/50h);
+ z5r = (26/45w,matra_f*23.5/50h);
+ z6l = (18/45w,matra_f*32/50h);
+ z6r = (x2r,matra_f*25/50h);
+ z7 = (32/45w,matra_f*28/50h);
+ z8 = (40/45w,matra_f*28.7/50h);
+ z9 = (43/45w,matra_f*33/50h);
+ fill fullcircle scaled numball_two shifted z1l;
+ path p; p = z4l..{up}z5l..tension1.2..{left}z6l{left};
+ fill z1l..{down}z2l..z3l{down}..{right}z4l..p..z2r--z1r--cycle;
+ unfill z6r{down}..{down}z3r..{right}z4r..tension1.8..z5r..tension2..z6r--cycle;
+ z10 = p intersectionpoint (z5r--z7);
+ pickup Tiki_pen;
+ draw z10..z7..z8..z9;
+ penlabels(1,2,3,4,5,6,7,8,9,10);
+endchar;
+
+beginchar("9",16u#,stht#,stdp#); "The number 9";
+ z1r = (15/45w,matra_f*7/50h); penpos1(.5numball_one,90);
+ z2l = (17/45w,matra_f*1/2h);
+ z2r = (16/45w,matra_f*22/50h);
+ z3l = (30/45w,matra_f*10/50h);
+ z3r = (25/45w,matra_f*3.5/50h);
+ z4 = (37.5/45w,matra_f*18/50h); penpos4(3/45w,0);
+ z5 = (x3r,matra_f*34/50h); penpos5(matra_f*5/50h,90);
+ z6l = (5/45w,matra_f*43/50h); penpos6(.5numball_two,0);
+ fill z1l{left}..{right}z2l..{down}z3l--z3r{up}..z2r{left}..z1r--cycle;
+ fill z3l..{up}z4l..z5l..{up}z6l--z6r{z4-z6}..z5r..z4r{down}..z3r--cycle;
+ fill fullcircle scaled numball_one shifted z1r;
+ fill fullcircle scaled numball_two shifted z6r;
+ penlabels(1,2,3,4,5,6,7);
+endchar;
+
+%%% End of bangnum.mf