diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/drm/drmscap.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/drm/drmscap.mf | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/Master/texmf-dist/fonts/source/public/drm/drmscap.mf b/Master/texmf-dist/fonts/source/public/drm/drmscap.mf index 4efcbdc0844..00a4faaa532 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmscap.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmscap.mf @@ -152,7 +152,6 @@ z.j=z.i-(ssslant,2lserw); z.k=z.j+(lserh,lserw); enddef; -%beginchar("i",0.28em#+2ss#,ex#,0); "The Letter I"; beginchar("i",2ss#+thickstroke#+0.2u#,ex#,0); "The Letter I"; z1 = (ss+lserw,lserh); @@ -682,7 +681,7 @@ llserif(1,12,13,14,26)(1); urserif(4,15,16,17,27)(1); ulserif(3,18,19,20,28)(1); -fill z5--z4..z16..z16--z17--z20--z19..z18..z3--z1..z12..z13--z14--z6--z7..z29..z30--z5--cycle; +fill z5--z4..z16..z16--z17--z20--z19..z18..z3--z1..z12..z13--z14--z6--z7..z29..z30--z5--z4..cycle; lowl := currentpicture; @@ -717,8 +716,11 @@ draw z21--z24; llserif(1,12,13,14,26)(1); ulserif(3,18,19,20,28)(1); +y11 := y9; +y29 := y30; + fill -z1--z3..z18..z19--z20--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z14--z13..z12..z1..cycle; +z1--z3..z18..z19--z20--z8--z10---z11--z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30--z29---z7--z6--z14--z13..z12..z1..cycle; lowe := currentpicture; @@ -754,7 +756,10 @@ llserif(1,12,13,14,26)(1); lrserif(5,31,32,33,34)(1); ulserif(3,18,19,20,28)(1); -fill z5--z17--z22..z25..z27--z24..z23..z21--z16--z4--z9..z11..z10--z8--z20--z19..z18..z3--z1..z12..z13--z14--z33--z32..z31..z5..cycle; +y4 := y9 := y11; + +fill +z5--z17--z22..z25..z27--z24..z23..z21--z16--z4--z9--z11..z10--z8--z20--z19..z18..z3--z1..z12..z13--z14--z33--z32..z31..z5--z17--cycle; penlabels(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,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); @@ -833,6 +838,12 @@ z12 = z4 shifted (-lserw,thinstroke); lftdownsideserif(0,5,6); upsideserif(4,7,8); +if (y6 > y9): + y6 := y9; +fi +if (y8 < y12): + y8 := y12; +fi fill z1--z0--z5..z6..z9--z10--z3--z4--z7..z8..z12--z11--z1--cycle; |