summaryrefslogtreecommitdiff
path: root/fonts/wnri/macracct.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/wnri/macracct.mf')
-rw-r--r--fonts/wnri/macracct.mf36
1 files changed, 36 insertions, 0 deletions
diff --git a/fonts/wnri/macracct.mf b/fonts/wnri/macracct.mf
new file mode 100644
index 0000000000..37b7de2baf
--- /dev/null
+++ b/fonts/wnri/macracct.mf
@@ -0,0 +1,36 @@
+%
+% Washington Romanized Indic accent driver
+%
+% Macros to draw macron accents
+%
+
+cmchar "Macron (bar) accent";
+numeric macron_breadth#; macron_breadth#=.2[vair#,stem#];
+beginchar(oct"026",9u#,.4[x_height#,asc_height#]+macron_breadth#,0);
+italcorr h#*slant-.75u#;
+adjust_fit(0,0);
+numeric macron_breadth; macron_breadth:=Vround .2[vair,stem];
+pickup if serifs: crisp.nib else: fine.nib fi;
+pos1(macron_breadth,90); pos2(macron_breadth,90);
+top y1r=top y2r=h+o; lft x1=w-rt x2=hround 1.25u;
+filldraw stroke z1e--z2e; % bar
+if monospace: currentpicture:=currentpicture shifted(0,1/2aspect_ratio*dot_size); fi
+makeACCENT(MacronPic);
+currentpicture:=nullpicture;
+z1'=0.25[z1,z2]; z2'=0.75[z1,z2];
+pos1'(macron_breadth,90); pos2'(macron_breadth,90);
+filldraw stroke z1'e--z2'e; % bar
+if monospace: currentpicture:=currentpicture shifted(0,1/2aspect_ratio*dot_size); fi
+makeACCENT(ShortMac);
+endgroup;
+
+extra_endchar:=
+ " czu ap(MacronPic); ah; oechar; ";
+%extra_endchar:=
+% " czu whap(MacronPic,ShortMac,6.5u); ah; oechar; ";
+boolean dotson; dotson=false; % omit dots on i, j, and possibly etc.
+
+def cp = macron enddef;
+
+% end of file macracct.mf
+