diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2011-09-10 20:02:58 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2011-09-10 20:02:58 +0000 |
commit | 4c7ea1ec21f149b4164551b72860054d241d4c16 (patch) | |
tree | b015d34a5429bd77beb1dba6b350fd8e3ff5d920 /Master/tlpkg/tlgs/lib/ps2ai.ps | |
parent | 309924b61f1069504394a05b0f8652bafc5d43d4 (diff) |
tlpkg/tlgs: gs-8.71 => gs-9.04
git-svn-id: svn://tug.org/texlive/trunk@23888 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlgs/lib/ps2ai.ps')
-rw-r--r-- | Master/tlpkg/tlgs/lib/ps2ai.ps | 56 |
1 files changed, 28 insertions, 28 deletions
diff --git a/Master/tlpkg/tlgs/lib/ps2ai.ps b/Master/tlpkg/tlgs/lib/ps2ai.ps index c63b91d3898..4720145c42b 100644 --- a/Master/tlpkg/tlgs/lib/ps2ai.ps +++ b/Master/tlpkg/tlgs/lib/ps2ai.ps @@ -1,30 +1,30 @@ %! % Copyright (C) 1994 , 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: ps2ai.ps 9743 2009-05-16 15:29:35Z alexcher $ +% $Id$ %xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx % % ps2ai.ps - a postscript to editable adobe illustrator file filter % /vers {2.14} def % January 31, 1999 -% conditional def ( if the key is already defined before, don't +% conditional def ( if the key is already defined before, don't % redefine it. This can be used by other programs to overwrite % some settings from externally -% +% /cdef { 1 index where { pop pop pop } { def } ifelse } bind def % %xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx @@ -101,7 +101,7 @@ % 1.72 fixed problem with restore/clip info - (not enough Qs problem) % 1.71 filter font names to remove previous encoding (|,_,etc) % 1.7 change text format to AI3, works better with PS & CD -% 1.67 deal with weird makefonts +% 1.67 deal with weird makefonts % 1.66 handle to many bad stroke/fills (s s s w/o paths) % 1.65 more useable with non-gs interpreters (defaultmatrix fix) % 1.64 fixed "smart grestore" repeat bug @@ -133,7 +133,7 @@ matrix identmatrix setmatrix % make ctm [1 0 0 1 0 0] /bdef {bind def} bind def /oldgsave {} def /oldgrestore {} def -/initgraphics {} def /initmatrix {} def +/initgraphics {} def /initmatrix {} def % undefine PPD PageSizes to be more printer independant /letter {} def /legal {} def /a4 {} def /b5 {} def /lettersmall {} def /setpagedevice { pop } bdef % for level 2 PPD PageSizes @@ -183,8 +183,8 @@ matrix identmatrix setmatrix % make ctm [1 0 0 1 0 0] cyan mag yel blk } bdef } ifelse -% If using Mac Ghostscript -jMacGS { +% If using Mac Ghostscript +jMacGS { % /jeol {(\r) jp} def /jout true def (%%Note: Loading ps2ai.ps\n) print @@ -224,7 +224,7 @@ jout {/jp { joutput exch writestring } bdef }{/jp {print} bdef} ifelse /ppforall { cntpaths % find out how many paths are on the stack jnump 1 gt { (*u\n) jp } if - {jpm}{jpl}{jpc}{jpp} pathforall + {jpm}{jpl}{jpc}{jpp} pathforall ckpnt jnump 1 gt { (*U\n) jp } if /jnump 0 def /clstate false def /dpth false def /fclp false def @@ -234,23 +234,23 @@ jout {/jp { joutput exch writestring } bdef }{/jp {print} bdef} ifelse % Painting Operators % /oldnewpath [/newpath load] cbdef -/newpath { (\n) jp /spth 0 def ppforall} bdef -/stroke { (\n) jp /spth 1 def ppforall } bdef -/fill {(\n) jp /spth 2 def ppforall } bdef +/newpath { (\n) jp /spth 0 def ppforall} bdef +/stroke { (\n) jp /spth 1 def ppforall } bdef +/fill {(\n) jp /spth 2 def ppforall } bdef /eofill {(1 D\n) jp fill (0 D\n) jp} bdef -/clip {clarry gcnt get {(Q\nq\n) jp}{(q\n) jp} ifelse +/clip {clarry gcnt get {(Q\nq\n) jp}{(q\n) jp} ifelse /fclp true def clarry gcnt true put} bdef /eoclip {(1 D\n) jp clip (0 D\n) jp} bdef % % Text Operators % /oldshow [/show load] cbdef -/curpt {stringwidth pop jx add jy} bdef +/curpt {stringwidth pop jx add jy} bdef /jNN {dup 0 eq {pop oldgsave currentfont /FontMatrix get setmatrix kscl oldgrestore} if } bdef /curftmatrix { - currentfont /FontMatrix get dup 0 get jNN abs /norm exch def + currentfont /FontMatrix get dup 0 get jNN abs /norm exch def dup 0 get norm div exch dup 1 get norm div exch dup 2 get norm div exch dup 3 get norm div exch dup 4 get exch 5 get 6 array astore matrix currentmatrix matrix concatmatrix @@ -291,17 +291,17 @@ jstr cvs jtxt3 { /j3txt { j3ftxt {(0 Ts 100 Tz 0 Tt 0 TA 0 0 5 TC 100 100 200 TW 0 0 0 Ti\n) jp (0 Ta 0 Tq 0 0 TI 0 Tc 0 Tw\n) jp} if } bdef -/show {oldgsave (0 To\n) jp - currentpoint 2 copy /jy exch def /jx exch def translate +/show {oldgsave (0 To\n) jp + currentpoint 2 copy /jy exch def /jx exch def translate curftmatrix /jitm exch def 0 1 5 {jitm exch get jpnum} for ( 0 Tp\n) jp (TP\n) jp (0 Tr\n) jp (\/_) jp curftname curftsize jpnum ( Tf\n) jp (0) jp j_ax curftsize div 100 mul jpnum ( 100 TC\n) jp % percent(?) dup curpt moveto mark exch handft ( Tx\n) jp (TO\n) jp /j3ftxt false def cleartomark currentpoint oldgrestore moveto -} bdef +} bdef /ashow {exch pop exch /j_ax exch def show /j_ax {0} def } bdef -} +} { /show {oldgsave (u\n) jp currentpoint 2 copy /jy exch def /jx exch def translate (\/) jp curftname jstr cvs jp @@ -318,14 +318,14 @@ jtxt3 { /awidthshow {ashow pop pop pop} bdef /kshow {show pop} bdef %/show {true charpath fill} bdef % get outline of charactor -joutln {/show { true charpath currentpoint +joutln {/show { true charpath currentpoint /jy exch def /jx exch def fill jx jy moveto} bdef} if %/show {oldshow} bdef % do nothing different % % Color Operators % /oldsetcmykcolor [/setcmykcolor load] cbdef -/setcmykcolor {oldsetcmykcolor +/setcmykcolor {oldsetcmykcolor currentcmykcolor 4 -1 roll jpnum 3 -1 roll jpnum 2 -1 roll jpnum jpnum ( k\n) jp currentcmykcolor 4 -1 roll jpnum 3 -1 roll jpnum 2 -1 roll jpnum jpnum ( K\n) jp } bdef @@ -376,7 +376,7 @@ currentcmykcolor 4 -1 roll jpnum 3 -1 roll jpnum 2 -1 roll jpnum jpnum ( K\n) jp /currentstate {currentcmykcolor setcmykcolor currentflat jpnum ( i) jp currentlinecap jpnum ( J) jp currentlinejoin jpnum ( j) jp currentlinewidth jpnum ( w) jp - currentmiterlimit jpnum ( M ) jp currentdash exch jpmat jpnum ( d\n) jp + currentmiterlimit jpnum ( M ) jp currentdash exch jpmat jpnum ( d\n) jp } bdef /jdifG { currentcmykcolor /jok xdef /joy xdef /jom xdef /joc xdef @@ -390,7 +390,7 @@ currentcmykcolor 4 -1 roll jpnum 3 -1 roll jpnum 2 -1 roll jpnum jpnum ( K\n) jp currentdash /jnod xdef /jnad xdef % compare old gstate to new gstate joc jnc ne jom jnm ne joy jny ne jok jnk ne - jof jnf ne jolc jnlc ne jolj jnlj ne jolw jnlw ne joml jnml ne + jof jnf ne jolc jnlc ne jolj jnlj ne jolw jnlw ne joml jnml ne false joad {true exit} forall {pop pop true}{false} ifelse false jnad {true exit} forall {pop pop true}{false} ifelse ne jood jnod ne 10 {or} repeat {currentstate} if @@ -399,7 +399,7 @@ currentcmykcolor 4 -1 roll jpnum 3 -1 roll jpnum 2 -1 roll jpnum jpnum ( K\n) jp /gsave {oldgsave /gcnt gcnt 1 add def } bdef % clarry gcnt false put} bdef % (%%Note:gsave ) jp gcnt jpnum (\n) jp} bdef /oldgrestore [/grestore load] cbdef -/grestore {dpth {newpath} if clarry gcnt get {(Q\n) jp clarry gcnt false put} if +/grestore {dpth {newpath} if clarry gcnt get {(Q\n) jp clarry gcnt false put} if jdifG /gcnt gcnt 1 sub def } bdef % oldgrestore currentstate } bdef % (%%Note:grestore ) jp gcnt 1 add jpnum (\n) jp} bdef @@ -421,10 +421,10 @@ currentcmykcolor 4 -1 roll jpnum 3 -1 roll jpnum 2 -1 roll jpnum jpnum ( K\n) jp (Adobe_customcolor /terminate get exec\n) jp (Adobe_cshow /terminate get exec\n) jp (Adobe_cmykcolor /terminate get exec\n) jp - (Adobe_packedarray /terminate get exec\n) jp + (Adobe_packedarray /terminate get exec\n) jp } ifelse ( showpage\n%EOF\n%%EndDocument\n) jp - jout {joutput closefile} if jMacGS not {quit} if /j3ftxt true def } bdef + jout {joutput closefile} if jMacGS not {quit} if /j3ftxt true def } bdef % % Error handling % |