1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% bnlig.mf: METAFONT file that defines some special ligatures
% Created by: Abhijit Das (Barda) IISc Bangalore
% Last modified: Jun 20 1997
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(25,0.75stwd#,stht#,stdp#); "ra + u";
numeric wd; wd = 12/20w + 0.9pt;
pickup pencircle scaled penth#;
z1 = (0,3/4h); z2=(w,3/4h);
draw z1..z2;
z5 = (wd-0.9pt,13/20h);
z5r = z5 + (0,penth#/2); z5l = z5 - (0,penth#/2);
z6 = (1/6wd,8/21h);
numeric len; len = 1/2(penth#/(sqrt 2));
z6l = z6 + (len,-len); z6r = z6 - (len,-len);
penstroke z5e{z6-z5 rotated -8}..z6e;
bot z4 = z4l + (0.1pt,0) = z4r - (0.1pt,0) = (wd-0.9pt,0);
z7 - z6 = (0.2pt,-0.2pt);
z7l = z7 + (len, -len); z7r = z6r;
penstroke z7e{z4-z7 rotated 120}.. tension 1.5 .. z4e;
top z3 = (wd-0.9pt,3/4h);
draw z3..z4;
fill fullcircle scaled 0.9pt shifted (9/20wd,2/21h);
z1' = (12/20w,2/5h); z2' = (w-0.8pt,47/100h); z3' = (16/20w,3/5h);
pickup pencircle scaled penth#;
draw z1'{dir -60}..{up}z2'{up}..{left}z3';
fill fullcircle scaled 1.3pt shifted (z3' + (-0.1pt,-0.46pt));
endchar;
beginchar(26,0.70stwd#,stht#,stdp#); "ra + U";
numeric wd; wd = 13/20w + 0.9pt;
pickup pencircle scaled penth#;
z1 = (0,3/4h); z2=(w,3/4h);
draw z1..z2;
z5 = (wd-0.9pt,13/20h);
z5r = z5 + (0,penth#/2); z5l = z5 - (0,penth#/2);
z6 = (1/6wd,8/21h);
numeric len; len = 1/2(penth#/(sqrt 2));
z6l = z6 + (len,-len); z6r = z6 - (len,-len);
penstroke z5e{z6-z5 rotated -8}..z6e;
bot z4 = z4l + (0.1pt,0) = z4r - (0.1pt,0) = (wd-0.9pt,0);
z7 - z6 = (0.2pt,-0.2pt);
z7l = z7 + (len, -len); z7r = z6r;
penstroke z7e{z4-z7 rotated 120}.. tension 1.5 .. z4e;
top z3 = (wd-0.9pt,3/4h);
draw z3..z4;
fill fullcircle scaled 0.9pt shifted (9/20wd,2/21h);
z1' = (13/20w,1/2h) + (0.02pt,0); z2' = (16/20w,11/20h);
z3' = (w-0.9pt,1/2h); z4' = (w-0.8pt,1/20h);
pickup pencircle xscaled 0.5pt yscaled 0.3pt rotated -30;
draw z1'..tension 4..z2'..tension 4..z3'{down}..tension 4..{dir -30}z4';
endchar;
beginchar(27,0.56stwd#,stht#,stdp#); "ha + u";
pickup pencircle scaled penth#;
z1 = (0,3/4h); z2=(w,3/4h);
draw z1..z2;
z3 = (1/6w,1/2h); z3' = (37/100w,13/20h);
z4 = (3/5w,1/2h); z4' = (74/100w,13/20h); z5 = (6/7w,1/2h);
lft z6 = (1/7w,9/32h); z7 = (w,-1/3d);
z6l + (0.15pt,-0.3pt) = z6r - (0.15pt,-0.3pt) = z6;
z7l - (0,0.15pt) = z7r + (0,0.15pt) = z7;
pickup pencircle xscaled 0.6pt yscaled 0.3pt rotated -45;
draw z3{dir 100}..{right}z3'{right}..{dir -60}z4{dir 60}..
{dir 45}z4'{dir -35}..{down}z5{down}..{dir 160}z6;
penstroke z6e{dir -22}..{dir -45}z7e;
fill fullcircle scaled 1.3pt shifted (z3 + (0.43pt,0.05pt));
endchar;
beginchar(28,0.67stwd#,stht#,stdp#); "ha + ri-kar";
pickup pencircle scaled penth#;
z1 = (0,3/4h); z2=(w,3/4h);
draw z1..z2;
numeric wd; wd = 14/18w;
z3 = (3/10wd,3/4h); z4 = (1/3wd,3/5h); z5 = (5/6wd,1/2h);
lft z6 = (1/8wd,5/16h); z7 = (wd,-1/3d);
z6l + (0.15pt,-0.3pt) = z6r - (0.15pt,-0.3pt) = z6;
z7l - (0,0.15pt) = z7r + (0,0.15pt) = z7;
pickup pencircle xscaled 0.6pt yscaled 0.3pt rotated -45;
draw z4{dir 30}..{down}z5{down}..{dir 150}z6;
pickup pencircle scaled 0.3pt;
draw z3{dir -20}..{dir -75}(z4 + (0.5pt,0));
penstroke z6e{dir -30}..{dir -45}z7e;
fill fullcircle xscaled 1.5pt yscaled 1pt rotated 30 shifted (z4 + (0,-0.20pt));
z1' = (13/20w,1/2h) + (0.02pt,0); z2' = (16/20w,11/20h);
z3' = (w-0.9pt,1/2h); z4' = (w-0.8pt,0);
pickup pencircle xscaled 0.5pt yscaled 0.3pt rotated -30;
draw z1'..tension 4..z2'..tension 4..z3'{down}..tension 4..{dir -45}z4';
endchar;
beginchar(29,0.70stwd#,stht#,stdp#); "ga + u";
z1 = (7/10w,3/5h); z2 = (74/100w,76/100h);
z4 = (19/25w,8/20h); z5 = (7/8w,12/50h);
z6 = (24/40w,1/18h); z8 = (1/10w,13/20h); z7 = (9/50w,1/3h);
pickup pencircle xscaled 0.3pt yscaled 0.6pt rotated 30;
draw z1--z2{dir -60}..{dir -135}z4
{dir -30}..{down}z5{down}..{left}z6{left}..z7..z8;
fill fullcircle scaled 1.4pt shifted (z4 + (-0.37pt,0));
z2' = (9/20w,3/4h); z3' = (9/40w,12/20h);
z4' = (18/40w,11/20h); z5' = (7/20w,8/20h);
draw z1{dir 120}..{left}z2'{left}..{down}z3'{dir 30}..{down}z4'{down}..z5';
endchar;
beginchar(30,0.72stwd#,stht#,stdp#); "sha + u";
z1 = (7/10w,3/5h); z2 = (74/100w,76/100h);
z4 = (19/25w,8/20h); z5 = (7/8w,12/50h);
z6 = (24/40w,1/18h); z8 = (1/10w,13/20h); z7 = (9/50w,1/3h);
pickup pencircle xscaled 0.3pt yscaled 0.6pt rotated 30;
draw z1--z2{dir -60}..{dir -135}z4
{dir -30}..{down}z5{down}..{left}z6{left}..z7..z8;
fill fullcircle scaled 1.4pt shifted (z4 + (-0.37pt,0));
z4' = (1/10w,3/4h); z5' = (6/16w,20/31h);
z6' = (13/25w,3/4h);
pickup pencircle xscaled 0.3pt yscaled 0.6pt rotated 30;
draw z4'{right}..{dir -60}z5'{dir 60}..{right}z6'{right}..{dir -60}z1;
fill fullcircle xscaled 1.2pt yscaled 2.0pt rotated -45 shifted (z5' + (-0.50pt,-0.62pt));
fill fullcircle xscaled 1.2pt yscaled 2.0pt rotated 45 shifted (z5' + (0.50pt,-0.62pt));
endchar;
%%% End of bnlig.mf
|