% % 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