diff options
Diffstat (limited to 'Master/tlpkg/tlgs/lib/pcharstr.ps')
-rw-r--r-- | Master/tlpkg/tlgs/lib/pcharstr.ps | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Master/tlpkg/tlgs/lib/pcharstr.ps b/Master/tlpkg/tlgs/lib/pcharstr.ps index 133c920d9c7..eba70e7cf1c 100644 --- a/Master/tlpkg/tlgs/lib/pcharstr.ps +++ b/Master/tlpkg/tlgs/lib/pcharstr.ps @@ -1,19 +1,19 @@ % Copyright (C) 1990, 1992, 1997, 1999 Aladdin Enterprises. All rights reserved. -% +% % This software is provided AS-IS with no warranty, either express or % implied. -% +% % This software is distributed under license and may not be copied, % modified or distributed except as expressly authorized under the terms % of the license contained in the file LICENSE in this distribution. -% +% % For more information about licensing, please refer to % http://www.ghostscript.com/licensing/. For information on % commercial licensing, go to http://www.artifex.com/licensing/ or % contact Artifex Software, Inc., 101 Lucas Valley Road #110, % San Rafael, CA 94903, U.S.A., +1(415)492-9861. -% $Id: pcharstr.ps 6300 2005-12-28 19:56:24Z giles $ +% $Id$ % pcharstr.ps % Print the CharStrings and Subrs (if present) from a Type 1 font, % in either a PostScript-like or a C-compatible form, @@ -87,7 +87,7 @@ begin currentfont begin Private begin 10 dict begin - % Print the CharStrings and Subrs + % Print the CharStrings and Subrs beginchars CharStrings { exch charbegin printcs } forall @@ -102,7 +102,7 @@ endsubrs } if - % Print the bounding boxes + % Print the bounding boxes gsave nulldevice FontMatrix matrix invertmatrix concat beginboxes @@ -113,8 +113,8 @@ { 1 index boxbegin charname , ( ) dup 0 4 -1 roll put newpath 0 0 moveto false charpath - pathbbox ({) print 4 -1 roll =only , - 3 -1 roll =only , exch =only , =only (}) print + pathbbox ({) print 4 -1 roll =only , + 3 -1 roll =only , exch =only , =only (}) print boxend } ifelse |