summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/euxm/euxmch.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/euxm/euxmch.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/euxm/euxmch.mf86
1 files changed, 86 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/euxm/euxmch.mf b/Master/texmf-dist/fonts/source/public/euxm/euxmch.mf
new file mode 100644
index 00000000000..129acb48f31
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/euxm/euxmch.mf
@@ -0,0 +1,86 @@
+% EUXMCH.MF
+% AMS deleted two characters that I need in Concrete Math; they
+% are resuscitated here -- Don Knuth
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+more_side(0);
+"smlessthanorequal";
+% by DEK, not HZ!
+charbegin( oct"024", 2800h#, (1430+925)*v#, (1430-925)*v#);
+
+n := 0;
+
+numeric a[],b[],alpha[],beta[];
+pair vec[];
+a6=a8=a10=2493; a7=a9=347; .5[b6,b8]=b7; .5[b6,b10]=925; b6-b8=2000;
+b8-b10=b7-b9=860;
+vec1=(a6,b6)-(a7,b7); vec2=(a8,b8)-(a7,b7);
+vec3=unitvector vec1 rotated 90; vec4=unitvector vec2 rotated 90;
+(a2,b2)=(a6,b6)+55vec3; (a3,b3)=(a6,b6)-75vec3;
+(a0,b0)=(a8,b8)-75vec4; (a5,b5)=(a8,b8)+75vec4;
+(a1,b1)=(a6,b6)+75vec3+alpha1*vec1=(a0,b0)+beta1*vec2;
+(a4,b4)=(a3,b3)+alpha2*vec1=(a5,b5)+beta2*vec2;
+
+adj_fill.A() % fixed x points
+ () % fixed y points
+ () % tied points
+ () % verticals
+ () % horizontals
+ ((a0,b0)-- % 0
+ (a1,b1)-- % 1
+ (a2,b2)-- % 2
+ (a3,b3)-- % 3
+ (a4,b4)-- % 4
+ (a5,b5)--cycle); % 5
+
+adj_fill.B() % fixed x points
+ () % fixed y points
+ () % tied points
+ () % verticals
+ () % horizontals
+ (((a10,b10)-75vec4)-- % 0
+ ((a9-60,b9)-75vec4)-- % 1
+ ((a9,b9)+75vec4)-- % 2
+ ((a10,b10)+75vec4)--cycle); % 3
+
+endchar(0);
+
+"smgreaterthanorequal";
+% by DEK, not HZ!
+charbegin( oct"025", 2800h#, (1430+925)*v#, (1430-925)*v#);
+
+n := 0;
+
+numeric a[],b[],alpha[],beta[];
+pair vec[];
+a6=a8=a10=307; a7=a9=2453; .5[b6,b8]=b7; .5[b6,b10]=925; b6-b8=2000;
+b8-b10=b7-b9=860;
+vec1=(a6,b6)-(a7,b7); vec2=(a8,b8)-(a7,b7);
+vec3=unitvector vec1 rotated 90; vec4=unitvector vec2 rotated 90;
+(a2,b2)=(a6,b6)-55vec3; (a3,b3)=(a6,b6)+75vec3;
+(a0,b0)=(a8,b8)+75vec4; (a5,b5)=(a8,b8)-75vec4;
+(a1,b1)=(a6,b6)-75vec3+alpha1*vec1=(a0,b0)+beta1*vec2;
+(a4,b4)=(a3,b3)+alpha2*vec1=(a5,b5)+beta2*vec2;
+
+adj_fill.A() % fixed x points
+ () % fixed y points
+ () % tied points
+ () % verticals
+ () % horizontals
+ ((a0,b0)-- % 0
+ (a1,b1)-- % 1
+ (a2,b2)-- % 2
+ (a3,b3)-- % 3
+ (a4,b4)-- % 4
+ (a5,b5)--cycle); % 5
+
+adj_fill.B() % fixed x points
+ () % fixed y points
+ () % tied points
+ () % verticals
+ () % horizontals
+ (((a10,b10)+75vec4)-- % 0
+ ((a9+60,b9)+75vec4)-- % 1
+ ((a9,b9)-75vec4)-- % 2
+ ((a10,b10)-75vec4)--cycle); % 3
+
+endchar(0);