summaryrefslogtreecommitdiff
path: root/fonts/wnri/orngacct.mf
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/wnri/orngacct.mf
Initial commit
Diffstat (limited to 'fonts/wnri/orngacct.mf')
-rw-r--r--fonts/wnri/orngacct.mf30
1 files changed, 30 insertions, 0 deletions
diff --git a/fonts/wnri/orngacct.mf b/fonts/wnri/orngacct.mf
new file mode 100644
index 0000000000..97b65cea8a
--- /dev/null
+++ b/fonts/wnri/orngacct.mf
@@ -0,0 +1,30 @@
+%
+% Washington Romanized Indic accent driver
+%
+% Macros to draw high circle accents
+%
+
+cmchar "Scandinavian circle 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
+makeACCENT(RingPic);
+endgroup;
+
+
+extra_endchar:=
+ " czu ap(RingPic); ah; oechar; ";
+boolean dotson; dotson=false; % omit dots on i, j, and possibly etc.
+
+def cp = orng enddef;
+
+% end of file orngacct.mf
+