diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/wnri/igamma.mf |
Initial commit
Diffstat (limited to 'fonts/wnri/igamma.mf')
-rw-r--r-- | fonts/wnri/igamma.mf | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/fonts/wnri/igamma.mf b/fonts/wnri/igamma.mf new file mode 100644 index 0000000000..4b18f698c9 --- /dev/null +++ b/fonts/wnri/igamma.mf @@ -0,0 +1,40 @@ +% +% Washington Romanized Indic +% +% Macros to draw italic gammas +% + +% cmchar "italic gamma"; +newchar(lgam,if serifs: 9.5u# else:9u# fi,x_height#,desc_depth#); +italcorr x_height#*slant+.25u#; +adjust_fit(serif_fit# if monospace:+\\.5u#,.5u#+ else:,fi\\ serif_fit#); +numeric left_stem,right_stem,outer_jut; pickup tiny.nib; +left_stem=fudged.stem-stem_corr; +right_stem=min(fudged.hair if hefty:-2stem_corr fi,left_stem); +outer_jut=.75jut; x1l=w-x4r=if serifs:l+letter_fit+outer_jut+.25u+tiny else: u fi; +y1=y4=h; x5=x3=x2=.5[x1,x4]; y3=y2=.3h; bot y5r=-d; +numeric gbot; gbot=.5(left_stem+right_stem); +pos1(left_stem,0); pos4(right_stem,-180); pos2(left_stem,0); +pos3(right_stem,-180); pos5(gbot,-90); +filldraw circ_stroke z1e--z2e{z2-z1}..{left}z5e; %{left}...{z4-z3}z3e--z4e; +filldraw circ_stroke z4e--z3e{z3-z4}..{right}z5e; +penlabels(0,1,2,3,4,5); endchar; + +newchar(CGam,if serifs: 13.5u# else:13u# fi,cap_height#,desc_depth#); +italcorr x_height#*slant+.25u#; +adjust_fit(serif_fit# if monospace:+\\.5u#,.5u#+ else:,fi\\ serif_fit#); +numeric left_stem,right_stem,outer_jut; pickup tiny.nib; +left_stem=cap_stem-stem_corr; +right_stem=min(cap_hair if hefty:-2stem_corr fi,left_stem); +outer_jut=.75cap_jut; x1l=w-x4r=if serifs:l+letter_fit+outer_jut+.25u+tiny else: u fi; +y1=y4=h; x5=x3=x2=.5[x1,x4]; y3=y2=.625x_height; bot y5r=-d; +numeric gbot; gbot=.5(left_stem+right_stem); +pos1(left_stem,0); pos4(right_stem,-180); pos2(left_stem,0); +pos3(right_stem,-180); pos5(gbot,-90); +filldraw circ_stroke z1e--z2e{z2-z1}..{left}z5e; %{left}...{z4-z3}z3e--z4e; +filldraw circ_stroke z4e--z3e{z3-z4}..{right}z5e; +penlabels(0,1,2,3,4,5); endchar; + +% end of file igamma.mf + + |