diff options
Diffstat (limited to 'macros/generic/diagrams/xypic/mfinputs/xyd.mf')
-rw-r--r-- | macros/generic/diagrams/xypic/mfinputs/xyd.mf | 79 |
1 files changed, 79 insertions, 0 deletions
diff --git a/macros/generic/diagrams/xypic/mfinputs/xyd.mf b/macros/generic/diagrams/xypic/mfinputs/xyd.mf new file mode 100644 index 0000000000..fad1c242b0 --- /dev/null +++ b/macros/generic/diagrams/xypic/mfinputs/xyd.mf @@ -0,0 +1,79 @@ +% $Id: xyd.mf,v 3.10 2010/06/10 18:45:50 krisrose Exp $ +% +% XYD: generate characters of `Xy-pic Directional' font. +% Copyright (c) 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/. +% +% As a special exception, you may use this file and all files derived +% from it without restriction. This special exception was added with +% version 3.7 of Xy-pic. +% _________________________________________________________________________ +% +% CONTENTS: Generate `directional' characters from 0..127 by calling +% `chartowards(Code, Dx, Dy)' with +% +% Code: 0 15 31 47 63 79 95 111 127 +% Dx,Dy: -15/16,-1 0,-1 1,-1 1,0 1,1 0,1 -1,1 -1,0 -1,-1 +% / | \ +% Direction: o o o o- o o o -o o +% / | \ / +% +% where the intervening codes are got by interpolating either Dx or Dy as +% appropriate. +% _________________________________________________________________________ +% +% Parameters: +% +font_coding_scheme:="xyd.enc"; +% +font_x_height segx#; +font_quad segl#; +fontdimen 8: segw#; % default_rule_thickness +% +% Characters: +% +for cc = 0 step 1 until 31: chartowards(cc,(cc-15)/16, -1); endfor; +for cc = 32 step 1 until 63: chartowards(cc, 1, (cc-47)/16); endfor; +for cc = 64 step 1 until 95: chartowards(cc,(79-cc)/16, 1); endfor; +for cc = 96 step 1 until 127: chartowards(cc, -1,(111-cc)/16); endfor; +% +% $Log: xyd.mf,v $ +% Revision 3.10 2010/06/10 18:45:50 krisrose +% Reference to GPL by URL. +% +% Revision 3.9 2010/05/17 23:29:21 krisrose +% Experiment: generate all the Type1 fonts with METAPOST. +% +% Revision 3.8 2010/04/16 06:06:52 krisrose +% Preparing for a new release... +% +% Revision 3.7 1999/02/16 15:12:50 krisrose +% Interim release (Y&Y fonts now free). +% +% 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.13 1995/07/04 15:11:17 kris +% Ready to release v3? +% +% Revision 2.7 1992/12/14 01:41:26 kris +% Generate all Xy-pic `directional' characters. +% +% Extracted from xyatip10.mf [Revision 2.1 1992/01/02 14:54:07 kris] |