diff options
Diffstat (limited to 'Master/tlpkg/tlgs/lib/showchar.ps')
-rw-r--r-- | Master/tlpkg/tlgs/lib/showchar.ps | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Master/tlpkg/tlgs/lib/showchar.ps b/Master/tlpkg/tlgs/lib/showchar.ps index 8ebb81f2a1a..3172449f5b2 100644 --- a/Master/tlpkg/tlgs/lib/showchar.ps +++ b/Master/tlpkg/tlgs/lib/showchar.ps @@ -1,19 +1,19 @@ % Copyright (C) 1993, 1994, 1996 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: showchar.ps 6300 2005-12-28 19:56:24Z giles $ +% $Id$ % showchar.ps % Show the outline and rasterized forms of a character. @@ -37,7 +37,7 @@ } def /bitselectfont % <fontname> <scale> bitselectfont - { exch findfont exch scalefont setfont - % Compute the bounding box in device coordinates. + % Compute the bounding box in device coordinates. gsave [Rx 72 div 0 0 Ry 72 div 0 0] setmatrix currentfont /FontMatrix get concat currentfont /FontBBox get aload pop @@ -70,7 +70,7 @@ 0 setlinewidth gsave 0.5 1 0.5 setrgbcolor hpath exec mmx markpath grestore 0 0.5 1 setrgbcolor hpath exec stroke - % Show the hints for Type 1 fonts also. + % Show the hints for Type 1 fonts also. currentfont /FontType get 1 eq { gsave 1 0 0 setrgbcolor 0 lly M idtransform translate |