summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/xypic/xymisc10.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/xypic/xymisc10.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/xypic/xymisc10.mf143
1 files changed, 143 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/xypic/xymisc10.mf b/Master/texmf-dist/fonts/source/public/xypic/xymisc10.mf
new file mode 100644
index 00000000000..268e3c42a62
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/xypic/xymisc10.mf
@@ -0,0 +1,143 @@
+% $Id: xymisc10.mf,v 3.5 2010/06/10 18:45:50 krisrose Exp $ -*-tex-*-
+%
+% XYMISC10: miscellaneous characters for XY mode at 10 point.
+% Copyright (c) 1991,1992 Kristoffer H. Rose <krisrose@tug.org>
+%
+% This file is part of the XY-pic macro package.
+%
+% The XY-pic macro package is free software; you can redistribute it and/or
+% modify it under the terms of the GNU General Public License as published by
+% the Free Software Foundation; either version 2 of the License, or (at your
+% option) any later version.
+%
+% The XY-pic macro package is distributed in the hope that it will be
+% useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
+% Public License for more details.
+%
+% You should have received a copy of the GNU General Public License along
+% with this macro package; if not, see http://www.gnu.org/licenses/.
+%
+% CONTENTS:
+% Metaness.
+% Testing...
+% Font.
+% Dot fitting the rule width.
+% Quarter circles with radii from 1 to 10 and 12 to 30 pt; all have
+% height = depth = .5width = radius and are centered such that they
+% enter and leave the box in the middle of the sides.
+%
+font_identifier "XYMISC"; font_size 10pt#;
+font_coding_scheme:="XY miscellaneous";
+mode_setup;
+
+% METANESS...
+%
+rulew# = .4pt#; define_whole_blacker_pixels(rulew); % line thickness
+%
+def pickuppen = pickup pencircle scaled rulew enddef;
+
+% TESTING...we redefine openit because the characters extend far to the
+% left of the bounding box!
+%
+def openit = %%let echar = endchar; def endchar = echar; stop ". " enddef;
+ openwindow currentwindow
+ from origin to (1000,800) at (-200,300)
+ enddef;
+
+% FONT.
+%
+% Font dimension 8 is the rule thickness (cf. The TeXbook, app.G)
+fontdimen 8: rulew#;
+
+% DOT FOR DOTTED LINES AND DUMMY CIRCLE...
+%
+beginchar(0,0,0,0); pickuppen; drawdot (0,0); endchar;
+beginchar(1,0,0,0); pickuppen; drawdot (0,0); endchar;
+beginchar(2,0,0,0); pickuppen; drawdot (0,0); endchar;
+beginchar(3,0,0,0); pickuppen; drawdot (0,0); endchar;
+
+% QUARTER CIRCLES... The four circles with radius N pt, 0 < N <= 10, are
+% located at N*4 + QUADRANT, where 1 <= QUADRANT <= 4. All have width as
+% their radius with reference point at the level of the horizontal end of the
+% arc and height, depth as the extent of the arc.
+%
+for radius = 1 step 1 until 10:
+ beginchar(radius*4,2radius*pt#,radius*pt#,radius*pt#);
+ pickuppen;
+ draw quartercircle rotated 180 shifted (1,.5) scaled (radius*2pt);
+ endchar;
+ beginchar(radius*4+1,2radius*pt#,radius*pt#,radius*pt#);
+ pickuppen;
+ draw quartercircle rotated -90 shifted (0,.5) scaled (radius*2pt);
+ endchar;
+ beginchar(radius*4+2,2radius*pt#,radius*pt#,radius*pt#);
+ pickuppen;
+ draw quartercircle shifted (0,-.5) scaled (radius*2pt);
+ endchar;
+ beginchar(radius*4+3,2radius*pt#,radius*pt#,radius*pt#);
+ pickuppen;
+ draw quartercircle rotated 90 shifted (1,-.5) scaled (radius*2pt);
+ endchar;
+endfor;
+%
+% For 12 <= N <= 40 we step in 2pt increments... so for 10 <= N <= 40 the
+% quarter circle with radius N is located at (N div 2 + 20 + QUADRANT).
+%
+for radius = 12 step 2 until 40:
+ beginchar(radius*2+20,2radius*pt#,radius*pt#,radius*pt#);
+ pickuppen;
+ draw quartercircle rotated 180 shifted (1,.5) scaled (radius*2pt);
+ endchar;
+ beginchar(radius*2+21,2radius*pt#,radius*pt#,radius*pt#);
+ pickuppen;
+ draw quartercircle rotated -90 shifted (0,.5) scaled (radius*2pt);
+ endchar;
+ beginchar(radius*2+22,2radius*pt#,radius*pt#,radius*pt#);
+ pickuppen;
+ draw quartercircle shifted (0,-.5) scaled (radius*2pt);
+ endchar;
+ beginchar(radius*2+23,2radius*pt#,radius*pt#,radius*pt#);
+ pickuppen;
+ draw quartercircle rotated 90 shifted (1,-.5) scaled (radius*2pt);
+ endchar;
+endfor;
+
+bye.
+%
+% $Log: xymisc10.mf,v $
+% Revision 3.5 2010/06/10 18:45:50 krisrose
+% Reference to GPL by URL.
+%
+% Revision 3.4 2010/04/16 06:06:52 krisrose
+% Preparing for a new release...
+%
+% Revision 3.3 1996/12/19 03:31:56 krisrose
+% Maintenance release
+%
+% Revision 3.0 1995/07/07 20:14:21 kris
+% Major release w/new User's Guide!
+%
+% Revision 2.6 1992/06/24 01:23:34 kris
+% Cleaned up.
+%
+% Revision 2.1 1992/01/02 14:54:07 kris
+% Release version.
+%
+% Revision 1.6 1991/11/27 06:54:21 kris
+% \beta-test on DIKU.
+%
+% Revision 1.5 1991/10/21 23:19:08 kris
+% Version described in DIKU student report 91-7-10.
+%
+% Revision 1.4 1991/08/22 01:07:46 kris
+% Now has quarter circles to radius 40pt as required for xy.doc[1.28].
+%
+% Revision 1.3 1991/07/21 21:04:35 kris
+% Tested with xy.doc[1.19].
+%
+% Revision 1.2 1991/07/19 14:52:26 kris
+% Changed quarter circles to fit xy.doc[1.19?].
+%
+% Revision 1.1 1991/06/24 20:57:37 kris
+% Works with xy.doc [1.6] :-)