summaryrefslogtreecommitdiff
path: root/fonts/wnri/urngacct.mf
blob: 7fee37d73d8ba9379f42298fba47c776a54db924 (plain)
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
%
% Washington Romanized Indic accent driver
%
% Macro for vocalic underring accent
%

cmchar "Vocalic underring accent";
beginchar(oct"027",13u#+4/3(asc_height#-x_height#)*slant,asc_height#,0);
adjust_fit(cap_serif_fit#,cap_serif_fit#);
numeric circ_hair,circ_vair;
circ_hair=hround min(hair,u+.5); circ_vair=vround min(vair,(h-x_height)/6+.5);
penpos1(circ_vair,90); penpos3(circ_vair,-90);
penpos2(circ_hair,180); penpos4(circ_hair,0);
x2r=hround(.5w-1.5u-.5circ_hair);
x4r=w-x2r; x1=x3=.5w; y1r=h+apex_o; y2=y4=.5[y1,y3];
y3r=vround(1/3[x_height,h]+apex_o);
penstroke pulled_arc.e(1,2) & pulled_arc.e(2,3)
 & pulled_arc.e(3,4) & pulled_arc.e(4,1) & cycle;  % bowl
transform Tf; Tf = identity shifted (-.5w+slant*(-y1r-.25x_height),-y1r-.25x_height);
savePicture(RingPic);
endgroup;

extra_endchar:=
  " czd ap(RingPic);  ad; oechar; ";

boolean dotson; dotson=true; % don't omit dots on i, j, and possibly etc.

def cp = urng enddef;

% end of file urngacct.mf