diff options
Diffstat (limited to 'Master/tlpkg/tlgs/lib/prfont.ps')
-rw-r--r-- | Master/tlpkg/tlgs/lib/prfont.ps | 60 |
1 files changed, 30 insertions, 30 deletions
diff --git a/Master/tlpkg/tlgs/lib/prfont.ps b/Master/tlpkg/tlgs/lib/prfont.ps index 94f2873b4ce..7d8f86f1b9d 100644 --- a/Master/tlpkg/tlgs/lib/prfont.ps +++ b/Master/tlpkg/tlgs/lib/prfont.ps @@ -22,7 +22,7 @@ % Copyright transferred 2000/09/15 to Artifex Software, Inc. Send any questions to % bug-gs@ghostscript.com. -% $Id: prfont.ps 8022 2007-06-05 22:23:38Z giles $ +% $Id$ % Example usages at bottom of file @@ -37,8 +37,8 @@ % Sort an array. Code used by permission of the author, Aladdin Enterprises. /sort { % <array> <lt-proc> sort <array> - % Heapsort (algorithm 5.2.3H, Knuth vol. 2, p. 146), - % modified for 0-origin indexing. */ + % Heapsort (algorithm 5.2.3H, Knuth vol. 2, p. 146), + % modified for 0-origin indexing. */ 10 dict begin /LT exch def /recs exch def @@ -47,23 +47,23 @@ /l N 2 idiv def /r N 1 sub def { l 0 gt { - /l l 1 sub def - /R recs l get def + /l l 1 sub def + /R recs l get def } { - /R recs r get def - recs r recs 0 get put - /r r 1 sub def - r 0 eq { recs 0 R put exit } if + /R recs r get def + recs r recs 0 get put + /r r 1 sub def + r 0 eq { recs 0 R put exit } if } ifelse /j l def { - /i j def - /j j dup add 1 add def - j r lt { - recs j get recs j 1 add get LT { /j j 1 add def } if - } if - j r gt { recs i R put exit } if - R recs j get LT not { recs i R put exit } if - recs i recs j get put + /i j def + /j j dup add 1 add def + j r lt { + recs j get recs j 1 add get LT { /j j 1 add def } if + } if + j r gt { recs i R put exit } if + R recs j get LT not { recs i R put exit } if + recs i recs j get put } loop } loop } if recs end @@ -151,7 +151,7 @@ /Unencoded exch def /Count Unencoded length def - % Print the unencoded characters in blocks of 128. + % Print the unencoded characters in blocks of 128. 0 128 Unencoded length 1 sub { /BlockStart 1 index def @@ -162,7 +162,7 @@ save F /Encoding known { F length dict F - { 1 index /FID eq { pop pop } { 2 index 3 1 roll put } ifelse } + { 1 index /FID eq { pop pop } { 2 index 3 1 roll put } ifelse } forall dup /Encoding TempEncoding put /* exch definefont /F exch def @@ -192,7 +192,7 @@ /DoCode {DoChar} def /DoLine {DoCharLine} def - % Display the first 128 encoded characters. + % Display the first 128 encoded characters. DoTitle (, characters 0-127) show 0 127 DoBlock @@ -203,7 +203,7 @@ 36 0.8 Inch moveto 96 127 DoLine showpage - % Display the second 128 encoded characters. + % Display the second 128 encoded characters. DoTitle (, characters 128-255) show 128 255 DoBlock @@ -216,15 +216,15 @@ F /CharStrings known { - % Find and display the unencoded characters. - - /Encoded F /Encoding get length dict def - F /Encoding get { true Encoded 3 1 roll put } forall - [ F /CharStrings get - { pop dup Encoded exch known { pop } if } - forall ] { - exch Namestring1 cvs exch Namestring2 cvs lt - } sort DoUnencoded + % Find and display the unencoded characters. + + /Encoded F /Encoding get length dict def + F /Encoding get { true Encoded 3 1 roll put } forall + [ F /CharStrings get + { pop dup Encoded exch known { pop } if } + forall ] { + exch Namestring1 cvs exch Namestring2 cvs lt + } sort DoUnencoded } if |