diff options
author | Karl Berry <karl@freefriends.org> | 2012-05-24 23:48:37 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-05-24 23:48:37 +0000 |
commit | 81262e0eb2974f7449426bcd5f4f7b01f8d7a8b1 (patch) | |
tree | 6d4437e55ae454578cc5c9959705a2a6b9d5e0e4 /Master/texmf-dist/fonts/source | |
parent | fa06059a5302c0916d9310783c0ecf7ebf164b5a (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')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/xypic/xybsql10.mf | 26 |
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. % |