diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/fdsymbol/fdrelations.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/fdsymbol/fdrelations.mf | 24 |
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); |