summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-05-24 23:48:37 +0000
committerKarl Berry <karl@freefriends.org>2012-05-24 23:48:37 +0000
commit81262e0eb2974f7449426bcd5f4f7b01f8d7a8b1 (patch)
tree6d4437e55ae454578cc5c9959705a2a6b9d5e0e4 /Master/texmf-dist/fonts/source/public
parentfa06059a5302c0916d9310783c0ecf7ebf164b5a (diff)
xypic 3.8.8 (24may12)
git-svn-id: svn://tug.org/texlive/trunk@26642 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/public')
-rw-r--r--Master/texmf-dist/fonts/source/public/xypic/xybsql10.mf26
1 files changed, 17 insertions, 9 deletions
diff --git a/Master/texmf-dist/fonts/source/public/xypic/xybsql10.mf b/Master/texmf-dist/fonts/source/public/xypic/xybsql10.mf
index 1d2291d6b79..dfa7c9cbf91 100644
--- a/Master/texmf-dist/fonts/source/public/xypic/xybsql10.mf
+++ b/Master/texmf-dist/fonts/source/public/xypic/xybsql10.mf
@@ -1,7 +1,8 @@
-% $Id: xybsql10.mf,v 3.9 2010/06/10 18:45:50 krisrose Exp $
+% $Id: xybsql10.mf,v 3.10 2011/08/28 22:19:06 krisrose Exp $
%
% XYBSQL10: lower squiggles/quarter circles for Xy-pic at 10 point.
-% Copyright (c) 1992 Kristoffer H. Rose <krisrose@tug.org>
+% Copyright (c) 1992-2011 Kristoffer H. Rose <krisrose@tug.org>
+% 2011 Daniel Müllner <http://math.stanford.edu/~muellner>
%
% This file is part of the Xy-pic macro package.
%
@@ -42,18 +43,22 @@ mode_setup;
segl# = sqrt 2 * 1/4 designsize; define_pixels(segl); % segment length
segx# = (sqrt 2 - 1)*segl#; define_pixels(segx); % segment height
segw# = .4pt#; define_whole_blacker_pixels(segw); % segment thickness
-%
-pickup pencircle scaled segw; char_pen := savepen;
+radius# = 1/4 designsize; define_pixels(radius);
%
% chartowards makes char cc with quarter circle that is secant to line
% from (0,0) to (dx,dy), turning left.
%
+path arc;
+arc = quartercircle scaled (2 radius + segw)
+ & halfcircle rotated 90 scaled segw shifted (radius * up)
+ & reverse quartercircle scaled (2 radius - segw)
+ & halfcircle rotated 180 scaled segw shifted (radius * right)
+ & cycle;
+
def chartowards(expr cc,dx,dy) =
- beginchar(cc,0,0,0);
- a := angle (dx,dy);
- z0 = (0,0); z1 = segl * dir a;
- pickup char_pen; draw z0{dir(a-45)}..{dir(a+45)}z1;
- endchar
+ beginchar(cc,0,0,0);
+ fill arc shifted (radius * left) rotated (angle(dx, dy)-135);
+ endchar
enddef;
% GENERATE...
@@ -63,6 +68,9 @@ input xyd
bye.
%
% $Log: xybsql10.mf,v $
+% Revision 3.10 2011/08/28 22:19:06 krisrose
+% Font fix (stroke to outline) by Daniel.
+%
% Revision 3.9 2010/06/10 18:45:50 krisrose
% Reference to GPL by URL.
%