diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-09 23:38:21 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-09 23:38:21 +0000 |
commit | 215012a8d684889983ec2c0629e1c704e6853d9c (patch) | |
tree | ebf1271bd71869069824935ae8a5678745bf8bce /Master/texmf-dist/fonts/source/public/xypic/xydash10.mf | |
parent | 1af3d19d6dbcbf309667d9cb4aa3cdda914914a9 (diff) |
trunk/Master/texmf-dist/fonts/source
git-svn-id: svn://tug.org/texlive/trunk@101 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/xypic/xydash10.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/xypic/xydash10.mf | 84 |
1 files changed, 84 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/xypic/xydash10.mf b/Master/texmf-dist/fonts/source/public/xypic/xydash10.mf new file mode 100644 index 00000000000..c378acf0a59 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/xypic/xydash10.mf @@ -0,0 +1,84 @@ +% $Id: xydash10.mf,v 3.7 1999/02/16 15:12:50 krisrose Exp $ +% +% XYDASH10: dashes for Xy-pic at 10 point. +% Copyright (c) 1991,1992 Kristoffer H. Rose <krisrose@brics.dk> +% +% 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, write to the Free Software Foundation, +% Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% +% 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: Line segments going segl# in all rightward directions...each +% character has (width + italic correction) = cos(direction) * segl#. +% _________________________________________________________________________ +% +% SETUP: +% +font_identifier "XYDASH"; font_size 10pt#; +mode_setup; + +% METANESS... +% +segl# = 1/2 designsize; define_pixels(segl); % segment length +segx# = 1/5 designsize; define_pixels(segx); % segment height +segw# = .4pt#; define_whole_blacker_pixels(segw); % segment thickness +% +pickup pencircle scaled segw; char_pen := savepen; +% +% chartowards makes char cc with length segl line from (0,0) towards (dx,dy)... +% +def chartowards(expr cc,dx,dy) = + beginchar(cc, abs(dx)*segl#, 0, 0); + a := angle(dx,dy); + z0 = (0,0); z1 = z0 + dir a scaled segl; + pickup char_pen; draw z0--z1; + charic := abs ((cosd a)*segl#) - charwd; + penlabels(0,1); + endchar +enddef; + +% TESTING...we redefine openit because the characters extend far to the +% left of the bounding box! +% +def openit = openwindow currentwindow + from origin to (screen_cols,screen_rows) at (-200,300) enddef; + +% GENERATE... +% +input xyd2 + +bye. +% +% $Log: xydash10.mf,v $ +% 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 +% Now uses xyd2.mf. +% +% Based on obsolete xyline10.mf 2.1 1992/01/02 14:54:07 kris |