summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/fdsymbol/fdrelations.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/fdsymbol/fdrelations.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/fdsymbol/fdrelations.mf24
1 files changed, 15 insertions, 9 deletions
diff --git a/Master/texmf-dist/fonts/source/public/fdsymbol/fdrelations.mf b/Master/texmf-dist/fonts/source/public/fdsymbol/fdrelations.mf
index 01940430e0f..1e339936de0 100644
--- a/Master/texmf-dist/fonts/source/public/fdsymbol/fdrelations.mf
+++ b/Master/texmf-dist/fonts/source/public/fdsymbol/fdrelations.mf
@@ -1,5 +1,5 @@
%
-% Copyright (c) 2011, Michael Ummels <michael.ummels@rwth-aachen.de>
+% Copyright (c) 2012, Michael Ummels <michael.ummels@rwth-aachen.de>
%
% This Font Software is licensed under the SIL Open Font License,
% Version 1.1. This license is in the accompanying file OFL.txt, and
@@ -586,9 +586,9 @@ if negated < 2:
draw_less(b, right_ex - t * up, left_ex - t * up, s, line_thickness, false);
if sign = 1:
- draw_line(z1a - equal_spread * up, z4a - equal_spread * up, false);
+ draw_line(1/2[z1a,z4b], 1/2[z4a,z1b], false);
else:
- draw_line(z0a - equal_spread * up, z3a - equal_spread * up, false);
+ draw_line(1/2[z0a,z3b], 1/2[z3a,z0b], false);
fi;
if negated = 1:
@@ -670,19 +670,25 @@ if negated < 2:
draw_less(a, z0, z1, greater_spread, thick, false);
- theta := angle(z0a - z2a);
+ theta := angle(z0a - z2a);
- z0a - z4 = 1/2thick * dir theta;
- z1a - z5 = 1/2thick * dir theta;
+ z0a = z4r;
+ z0a.r = z4'.r;
+ z1a = z5r;
+ z1a.r = z5'.r;
penpos4(thick, theta);
+ penpos4'(thick, theta);
penpos5(thick, -theta);
+ penpos5'(thick, -theta);
- fill stroke z4.e{dir (theta - 90)} .. {dir(-theta - 90)}z5.e;
+ fill stroke z4.e -- z4'.e{dir (theta - 90)} .. {dir (-theta - 90)}z5'.e -- z5.e;
if negated = 1:
stroke_through(centre, equal_spread + greater_spread);
fi;
+
+ penlabels(4,5);
endchar;
endfor;
fi;
@@ -702,12 +708,12 @@ if negated < 2:
theta := angle(z0a - z2a);
z0a - z4 = 1/2thick * dir theta;
- z1a - z5 = 1/2thick * dir theta;
+ z1a - z5 = 1/2thick * dir -theta;
penpos4(thick, theta);
penpos5(thick, -theta);
- fill stroke z4.e{dir (theta - 90)} .. {dir(-theta - 90)}z5.e;
+ fill stroke z4.e{dir (theta - 90)} .. {dir (-theta - 90)}z5.e;
if sign = 1:
draw_line(z1a - 2t * up, z4a - 2t * up, false);