diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/drm/drmsupfigs.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/drm/drmsupfigs.mf | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsupfigs.mf b/Master/texmf-dist/fonts/source/public/drm/drmsupfigs.mf index 8d97c2cd13b..7c36f794ccf 100644 --- a/Master/texmf-dist/fonts/source/public/drm/drmsupfigs.mf +++ b/Master/texmf-dist/fonts/source/public/drm/drmsupfigs.mf @@ -272,3 +272,64 @@ penstroke ((z0e..z1e..z2e) reflectedabout penlabels(0,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); endchar; + +beginchar("X",0.7digwid#+ss#,cap#,0); "Superior digit X"; +italcorr(ex#*slant); + +z0 = (w/2,h); +z1 = z0 shifted (0,-thinstroke); +z2 = (w-ss/2,5h/6); +z3 = z2 shifted (-thickstroke,0); +z4 = (ss/2,5h/6); +ulftbulb(4,5,6,7,8); +z9 = (z5--z7) intersectionpoint (z6--z4) shifted + (thinstroke/2,thinstroke/2); +z10 = (ss/2,h/2); +z11 = z10 shifted (0,thickstroke/2); +z12 = (w-ss/2,y10); +z13 = (x12,y11+thinstroke); +z14 = z13 shifted (-thinstroke,0); +z15 = (x14,y11); +z16 = z11 shifted (thickstroke,0); + +path suptwo; suptwo = z15--z14--z13--z12--z10--z11{dir 45}.. + z3..z1{left}..{dir -135}z5{right}..z6..z7..z4..z0..z2.. + {dir -135}z16--cycle; +fill suptwo rotatedaround ((w/2,3h/4),180); + +penlabels(0,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); +endchar; + +beginchar("E",0.7digwid#+ss#,cap#,0); "Superior digit E"; +italcorr(ex#*slant); + +z0 = (w/2,h); +z1 = z0 shifted (0,-thinstroke); +z2 = (w/2,h/2); +z3 = z2 shifted (0,thinstroke); +z4 = (w-ss/2,7h/8); +z5 = z4 shifted (-thickstroke,0); +z6 = (w-ss/2,5h/8); +z7 = z6 shifted (-thickstroke,0); +z8 = (ss/2,7h/8); +z9 = (ss/2,5h/8); +ulftbulb(8,10,11,12,13); +y10 := y10 - bulbsh/2; +z14 = z9 shifted (bulbsh,bulbsh); +z15 = z9 shifted (2bulbsh,0); +z16 = z9 shifted (bulbsh,-bulbsh); +y16 := y16 + bulbsh/2; +z17 = (x0-thinstroke,3h/4+thinstroke/2); +z18 = z17 shifted (0,-thinstroke); +z19 = 0.5[z17,z18] shifted (thickstroke,0); + +path supthree; supthree = z8{up}..{right}z0{right}.. + {down}z4{down}..{left}z19{right}..{down}z6{down}.. + {left}z2{left}..{up}z9..z14..z15{down}.. + {left}z16{dir -30}..z3..z7..{left}z18--z17{right}.. + z5..z1..{dir -135}z10{right}..{down}z11..z12..cycle; +pickup pencircle scaled 2; +fill supthree rotatedaround ((w/2,3h/4),180); + +penlabels(0,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); +endchar; |