diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-09 23:38:21 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-09 23:38:21 +0000 |
commit | 215012a8d684889983ec2c0629e1c704e6853d9c (patch) | |
tree | ebf1271bd71869069824935ae8a5678745bf8bce /Master/texmf-dist/fonts/source/public/bangtex/bangvow.mf | |
parent | 1af3d19d6dbcbf309667d9cb4aa3cdda914914a9 (diff) |
trunk/Master/texmf-dist/fonts/source
git-svn-id: svn://tug.org/texlive/trunk@101 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/bangtex/bangvow.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/bangtex/bangvow.mf | 227 |
1 files changed, 227 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/bangtex/bangvow.mf b/Master/texmf-dist/fonts/source/public/bangtex/bangvow.mf new file mode 100644 index 00000000000..da17c79212b --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bangtex/bangvow.mf @@ -0,0 +1,227 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% bangvow.mf: METAFONT file that defines bangla 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", 21u#, stht#, stdp#); "The letter a"; + numeric xstem,balld,wta,height; + wta=31/40w; height = matra_f*h; + xstem = w-rindent; balld = 14/50height; + matra(0,w); +% The ball + z1l = (25/57w,35/50height); penpos1(.5balld,120); + fill fullcircle scaled balld shifted (z1l); +% Joining the ball and the cup + z2r = z1l + .5balld * (1.1dir(90) + .5 dir(0)) ; + z2l = z1l + .5balld * dir(35); z2 = .5[z2l,z2r]; +% The cup at the bottom + z3l = (40/57w,28/50height); + z3r = (43/57w,26.5/50height); + z4l = (29/57w,18/50height); + z4r = (32/57w,11/50height); + z5l = (5/57w,42/50height); + z5r = (3/57w,43/50height); + z6 = (0,63/50height); + path p; p = z4r{right}..{up}z3r{up}..{left}z2r; + fill z1l..z2l{right}..{down}z3l{down}..z4l{left}..tension1.4..{z6-z5l}z5l--z5r{z5r-z6}..tension1.4..{right}p{left}..z1r--cycle; +% The stem and the hook + z7 = p intersectionpoint ((0,25/50height)--(w,25/50height)); + z8 = p intersectionpoint ((0,20/50height)--(w,20/50height)); + z9 = (xstem,height); + phil = angle(z3l-z2r); phir = angle(z3l-z2l); + hookstem(z7,z8,z9,phil,phir); +% The little Tiki at the top + z12l = (18/57w,matra_h*h); penpos12(6/57w,0); + fill z2r{z2r-z2l}..z12r--z12l{z2r-z12l}..z2l--cycle; + penlabels(1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar("I", 14.5u#, stht#, stdp#); "The letter hraswa i"; + numeric height; height = matra_f*h; + Ha(0,0,w,height); +% The matra and the Tiki + matra(0,w); + Tiki(.9w,.07w); +endchar; + +beginchar(141,18u#, stht#,stdp#); "The letter dirgha I"; + numeric balld,height,phii,phiii; + height=matra_f*h; balld = 13/50height; phii=0; phiii = 120; + matra(0,w); +%% The ball + z2l = (12/50w,35/50height); penpos2(.5balld,phii); + fill fullcircle scaled balld shifted z2l; +%% The line from matra to ball + z1l = (6/50w,(matra_h-.5matra_t)*h); penpos1(8/50w,0); + fill z1l{right}..z2l--z2r{dir (phii+90)}..z1r--cycle; +%% The upward going part + z5l = (8.5/50w,23/50height); + z5r = (7.5/50w,22/50height); z5 = .5[z5l,z5r]; + z6l = (14/50w,19/50height); + z6r = (17/50w,12/50height); z6 = .5[z6l,z6r]; + penstroke z5e..{right}z6e; + z7l = (41/50w,41/50height); + z7r = (46/50w,37/50height); z7 = .5[z7l,z7r]; + path ptop,pbot; + ptop = z6l{right}..tension1.5..{z7r-z5l}z7l; + pbot = z7r{z5l-z7r}..tension1.5..{left}z6r; + fill ptop--pbot--cycle; +%% The part connecting the ball with the upward going line + z3l = z2l; penpos3(.5balld,phiii); + z4r = (ptop intersectionpoint ((28/50w,height)--(28/50w,0))) - .05(0,y6l-y6r); + z4l = (ptop intersectionpoint ((19/50w,height)--(19/50w,0))) - .05(0,y6l-y6r); + fill z3r{dir (phiii-90)}..{down}z4r--z6r--z4l{z4r-z4l}..z3l--cycle; +%% The downward going part at the right end + z8l = (34/50w,24/50height); + z8r = (37.5/50w,23/50height); + z9l = (38/50w,2/50height); + z9r = (41/50w,0); + fill flex(z7l,z8l,z9l)--flex(z9r,z8r,z7r)--cycle; +%% The Tiki + Tiki(x7,.05w); + penlabels(1,2,3,4,5,6,7,8,9); +endchar; + + +beginchar("U",18u#, stht#,stdp#); "The letter hraswa u"; + numeric height; height = matra_f*h; + Da(0,0,w,height,.88); + matra(0,w); + Tiki(.9w,.1w); +endchar; + +beginchar(143,19u#, stht#,stdp#); "The letter dirgha u"; +% %%% The first part is the definition of "Da" + numeric xstem,height,shift; + xstem = .5w; height=matra_f*h; shift = .06w; +% The vertical part + z1 = (xstem,height); penpos1(stem_width,0); + z2 = (x1,31/50height); penpos2(stem_width,0); + z3l = (27.5/49w,21.5/50height); + z3r= (x3l+1/49w,28/50height); + fill z1l..{down}z2l..{right}z3l--z3r{left}..{up}z2r--z1r--cycle; +% The part going up + z4l = (42.5/49w,30/50height); + z4r = (40/49w,38/50height); + fill z3l{right}..tension1.5..z4l--z4r..tension1.8..{left}z3r--cycle; +% The first cup + z5l = (44/49w,27/50height); penpos5(3/50w,0); + z6l = (29.5/49w,12/50height); + z6r = (31/49w,5/50height); + z7l = (7/49w,43/50height) + (shift,0); + z7r = (5/49w,44/50height) + (shift,0); + z8 = (0,63/50height); penpos8(shift,0); + fill z4l..{down}z5l..{left}z6l{left}..{z8r-z7l}z7l--z7r{z7r-z8r}..{right}z6r{right}..z5r{up}..z4r--cycle; +% The second cup + z8' = (0,height); + z7'l = (7/49w,43/50height) - (shift,0); + z7'r = (5/49w,44/50height) - (shift,0); + fill z4l..{down}z5l..{left}z6l{left}..{z8l-z7'l}z7'l--z7'r{z7'r-z8l}..{right}z6r{right}..z5r{up}..z4r--cycle; +% matra and tiki + matra(0,w); + Tiki(.9w,.1w); + penlabels(1,2,3,4,5,6,7,7',8,8'); +endchar; + +beginchar(145,20u#, stht#,stdp#); "The letter RI"; + numeric xstem,balld,phi,wkha; wkha = 16/20w; + xstem=wkha-rindent; balld=.18h; phi=-90; + matra(xstem,xstem); + z1 = (.17wkha,.6h); + z2 = z1 + .5balld * dir(phi) + .02wkha * dir(phi+90); + z3 = z1 + .5balld * dir(phi+90); + z4 = (.5wkha,matra_f*h); + z5 = (.55wkha,.6h); + z6 = (.56wkha,.52h); + z7 = (.68wkha,y6); + z8 = (.12wkha,.41h); + z9 = (.28wkha,.25h); + z10 = (.48wkha,.34h); + z11 = (xstem,.5stem_width*sind(stem_slope)); + stem(xstem); + hookcirc(z1,z2,z3,balld,-90); + fill z5..{left}z2..z3{right}..z4--cycle; + fill z5..z6--z7{up}..z4--cycle; + fill z6{down}..{z8-z7}z8--z9--z10..{up}z7--cycle; + hookjt(z9,z10,z11,.1h,.3,90); +% The right stem and the connector + z12 = (w-rindent,.15h); + z13 = (xstem,.43h); + z14 = (x13,.35h); + hookjt(z14,z13,z12,.07h,.4,90); + halfstem(x12,matra_f*h,.13h); + matra(x12,x12); + penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14); +endchar; + +beginchar(147,17.5u#, stht#,stdp#); "The letter peT-kaTa e (ae)"; + E(0,0,w,h); +% The cross line + z9 = (w,.4h); z10 = (w-2rindent,y9); + pickup penrazor xscaled 1.5stem_width rotated 90; + draw z9--z10; + penlabels(9,10); +endchar; + +beginchar("E",17.5u#, stht#,stdp#); "The letter e"; + E(0,0,w,h); +endchar; + +beginchar(149,17.5u#, stht#,stdp#); "The letter oi"; + numeric height; height = matra_f*h; + pickup Tiki_pen; + z1 = (w-rindent,38/50height); + rt x2 = w; y2 = height; + z3 = (19/48w,1.1h); + draw z1..{up}z2{up}..{dir 60}z3; + penlabels(1,2,3); + E(0,0,w,h); +endchar; + +beginchar("O",18.5u#,stht#,stdp#); "The letter o"; + O(0,0,w,h); +endchar; + +beginchar(151,18.5u#, stht#,stdp#); "The letter ou"; + numeric height; height = matra_f*h; + pickup Tiki_pen; + z1 = (rballx,rbally); + rt x2 = w; y2 = height; + z3 = (18/52w,1.1h); + draw z1..{up}z2..{dir 60}z3; + penlabels(1,2,3,4,5,6,7,8,9); + O(0,0,w,h); +endchar; + +%% end of bangvow.mf
\ No newline at end of file |