summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/drm/drmsupfigs.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/drm/drmsupfigs.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/drm/drmsupfigs.mf61
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;