summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/lib/pcharstr.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/lib/pcharstr.ps')
-rw-r--r--Master/tlpkg/tlgs/lib/pcharstr.ps16
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