home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2002 February / INTERNET88.ISO / pc / software / windows / bits / pdf995 / data1.cab / Program_Executable_Files / res / ps2ai.ps < prev    next >
Encoding:
Text File  |  2001-12-08  |  22.7 KB  |  555 lines
  1. %!
  2. %    Copyright (C) 1994 , 1999 Aladdin Enterprises.  All rights reserved.
  3. % 
  4. % This file is part of GNU Ghostscript.
  5. % 
  6. % GNU Ghostscript is distributed in the hope that it will be useful, but
  7. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  8. % to anyone for the consequences of using it or for whether it serves any
  9. % particular purpose or works at all, unless he says so in writing.  Refer
  10. % to the GNU General Public License for full details.
  11. % 
  12. % Everyone is granted permission to copy, modify and redistribute GNU
  13. % Ghostscript, but only under the conditions described in the GNU General
  14. % Public License.  A copy of this license is supposed to have been given
  15. % to you along with GNU Ghostscript so you can know your rights and
  16. % responsibilities.  It should be in a file named COPYING.  Among other
  17. % things, the copyright notice and this notice must be preserved on all
  18. % copies.
  19.  
  20. % $RCSfile: ps2ai.ps,v $ $Revision: 1.2.2.1 $
  21. %xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  22. %
  23. %   ps2ai.ps - a postscript to editable adobe illustrator file filter
  24. %
  25. /vers {2.14} def                  %                    January 31, 1999
  26.  
  27. % conditional def ( if the key is already defined before, don't 
  28. % redefine it. This can be used by other programs to overwrite
  29. % some settings from externally
  30. %  
  31. /cdef { 1 index where { pop pop pop } { def } ifelse } def
  32. %
  33. %xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  34. %
  35. % needs a postscript level 2 interpreter, like gnu ghostscript, to work
  36. %
  37. %      Usage:   gs -q -dNODISPLAY ps2ai.ps file.ps > file.aips
  38. %                              or (see below)
  39. %               gs -q -dNODISPLAY ps2ai.ps file.ps
  40. %                              or
  41. %               cat ps2ai.ps file.ps | lpr  (then look in log file)
  42. %
  43. % or from within gsview via:
  44. %     Edit->Convert to vector format
  45. %xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  46. %                            Options
  47. %xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  48. %   Output Options: directly to a file or standard out
  49. %
  50. /jout false cdef            % true=file  false=stdout (default=false)
  51. /joutput (ps2ai.out.aips) cdef      % Name of Output file
  52. %
  53. %xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  54. %
  55. %              Other Options
  56. %
  57. /jtxt3 true cdef           % output text in AI3 form (false=ai88)
  58.                           % for coreldraw/photoshop readable output
  59. /joutln false cdef         % use font outline  instead of font
  60. /jerr false def            % use error handling (ie die gracefully)
  61. /jbiterr false def         % attempt to handle bitmap fonts (kludge)
  62. /jMacGS false def         % true if using MacGS (not fully implemented yet)
  63. /jMacfix true def         % convert filled boxes to lines (only usefull with
  64.                           % laserwriter 8 postscript input)
  65.  
  66. %
  67. %xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  68. %                    No options below here
  69. %xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  70. %
  71. %         - Notes -
  72. %  ai uses cmykcolor, so level 1 interpreters don't work
  73. %  ai doesn't use image/imagemask - so bitmaps don't work correctly
  74. %  the output file has a header so it is viewable/printable/reconvertable
  75. %
  76. % Comments, suggestions, bug-fixes, etc send to:
  77. %
  78. %        Jason Olszewski (olszewsk@splash.princeton.edu)
  79. %
  80. % anonymous ftp: toby.princeton.edu /pub/olszewsk/ps2ai.ps
  81. %       URL ftp://toby.princeton.edu/pub/olszewsk
  82. %
  83. %         - Fix History -
  84. %  2.14 added cdef to allow overwriting of certain values from externally
  85. %  2.13 check for bitmap fonts, work better with TeX,WinPS,etc
  86. %  2.12 fixed initclip to US letter size page
  87. %  2.11 added header support for *u/*U compound paths
  88. %  2.1  option of font outline instead of text(gwhite@trevnx.bio.dfo.ca)
  89. %  2.0  major change to complex path handling
  90. %  1.9  fixed text leaking ascii (,),\
  91. %  1.85 added default font to handle no setfont (Courier)
  92. %  1.84 added even-odd fill/clip (D)
  93. %  1.83 undefined PPD PageSize printer specific info
  94. %  1.82 added kludge to save clipping status through a restore
  95. %  1.81 added custom color/gray support to header (x/X, g/G)
  96. %  1.8  added newpath if clippath is not consumed correctly(amiga)
  97. %  1.79 eliminated scientific notation of numbers less than 0.0001
  98. %  1.78 fixed transposed h & H
  99. %  1.77 made laserwriter 8 fixes optional
  100. %  1.76 added margin fix for unix AI (brown@wi.extrel.com)
  101. %  1.75 added kludge to handle bitmap font errors (TeX, Windows.ps)
  102. %  1.74 made grestore a little smarter
  103. %  1.73 included header handle encoded fontname (/_fontname)
  104. %  1.72 fixed problem with restore/clip info - (not enough Qs problem)
  105. %  1.71 filter font names to remove previous encoding (|,_,etc)
  106. %  1.7  change text format to AI3, works better with PS & CD
  107. %  1.67 deal with weird makefonts 
  108. %  1.66 handle to many bad stroke/fills (s s s w/o paths)
  109. %  1.65 more useable with non-gs interpreters (defaultmatrix fix)
  110. %  1.64 fixed "smart grestore" repeat bug
  111. %  1.63 fixed ashow/awidthshow bug
  112. %  1.62 check if cmykcolor is understood otherwise rgb
  113. %  1.61 made grestore smarter (only print if different)
  114. %  1.6  add better compatibility to CorelDraw and PhotoShop
  115. %  1.53 make it more gs-backward compatible (clarke@lsl.co.uk)
  116. %  1.52 handle clipping paths a little better (Posted)
  117. %  1.51 improve mac lw8 output (lines instead of filled boxes)
  118. %  1.5 handle some level 2 stuff (mac lw8)
  119. %  1.4 fixed scaling of linewidth and dash
  120. %  1.31 made trailer more AI88 friendly
  121. %  1.3 add ablity to output to file directly
  122. %  1.21 print matrix cleaner
  123. %  1.2 fix rotated fonts, thanks to G.Cameron (g.cameron@biomed.abdn.ac.uk)
  124. %  1.1 fix stroke/fill color difference (k vs K)
  125. %  1.0 posted to comp.lang.postscript
  126. %
  127. %         - To Do List -
  128. %  find real %%BoundingBox: llx lly urx ury
  129. %  make MacGS friendly (line-endings)
  130. %  handle eps w/o showpage:(append to end)
  131. %  write out image data to external file
  132. %
  133. %xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  134. %                  Nothing of Interest below here
  135. %xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  136. matrix identmatrix setmatrix %   make ctm [1 0 0 1 0 0]
  137. /oldgsave {} def /oldgrestore {} def
  138. /initgraphics {} def /initmatrix {} def 
  139. % undefine PPD PageSizes to be more printer independant
  140. /letter {} def /legal {} def /a4 {} def /b5 {} def /lettersmall {} def
  141. /setpagedevice { pop } def % for level 2 PPD PageSizes
  142. /Courier findfont 12 scalefont setfont % handle no setfont
  143. /initclip {0 0 moveto 0 792 lineto 612 792 lineto 612 0 lineto closepath
  144.            clip newpath } def
  145. /xdef {exch def} def
  146. /trx {transform exch} def
  147. /cbdef {cvx bind def} def
  148. /jltz {dup abs 0.0001 lt {pop 0} if} def % get rid of scientific notation bug
  149. /clstate false def        % closepath state
  150. /dpth false def           % destroy path (ie newpath)
  151. /fclp false def           % first paint after clip
  152. /kscl {1.0} def           % default current scale X-factor
  153. /gcnt {1} def             % graphics state counter
  154. /spth {1} def             % multiple paths on stack
  155. /jeol (\n) def            % default end-of-line
  156. /jnump {0} def            % number of paths on stack
  157. /jx {0} def /jy {0} def /j_ax {0} def
  158. /j3ftxt true def
  159. /clarry 10 array def
  160. 0 1 9 {clarry exch false put} for % initilize no clipping path
  161. %
  162. % handle cmyk color on level 1 interpreters
  163. /setcmykcolor where {pop}
  164.  {/setcmykcolor {
  165.    /blk exch def /yel exch def /mag exch def /cyan exch def
  166.    /ccomp {add dup 1 gt {pop 1} if} def
  167.    /red {1 cyan blk ccomp sub} def
  168.    /green {1 mag blk ccomp sub} def
  169.    /blue {1 yel blk ccomp sub} def
  170.    red green blue setrgbcolor
  171.   } def
  172. } ifelse
  173. /currentcmykcolor where {pop}
  174.  {/currentcmykcolor {
  175.    currentrgbcolor /bval xdef /gval xdef /rval xdef
  176.    /rawC 1 rval sub def /rawM 1 gval sub def /rawY 1 bval sub def
  177.    rawC rawM ge { rawY rawM ge { /blk rawM def} if } if
  178.    rawC rawY ge { rawM rawY ge { /blk rawY def} if } if
  179.    rawY rawC ge { rawM rawC ge { /blk rawC def} if } if
  180.    rawY rawC eq { rawM rawC eq { /blk rawC def} if } if
  181.    /cyan  rawC blk sub  def
  182.    /mag  rawM blk sub  def
  183.    /yel  rawY blk sub  def
  184.    /blk blk def
  185.    cyan mag yel blk
  186.   } def
  187. } ifelse
  188. % If using Mac Ghostscript 
  189. jMacGS { 
  190. %        /jeol {(\r) jp} def
  191.         /jout true def
  192.         (%%Note: Loading ps2ai.ps\n) print
  193.        } if
  194. /jstr 40 string def
  195. jout {joutput (w) file /joutput xdef} if
  196. %
  197. %              Output
  198. %
  199. jout {/jp { joutput exch writestring } bind def }{/jp {print}bind def} ifelse
  200. /jpnum {jltz ( ) jp =string cvs jp } bind def
  201. /jpmat { dup /jarry exch def length 1 sub /j_num exch def
  202.  (\[) jp 0 1 j_num {jarry exch get jpnum} for (\]) jp } def
  203. %
  204. %              Stack to Paths converters
  205. %
  206. /ckpnt { % check which paint and clipping to use
  207.    dpth {  % if there are multiple paths on the stack
  208.   clarry gcnt get fclp and {clstate {(h W\n) jp }{(H W\n) jp } ifelse} if
  209.   spth 0 eq {clstate {(n\n) jp }{(N\n) jp } ifelse} if
  210.   spth 1 eq {clstate {(s\n) jp }{(S\n) jp } ifelse} if
  211.   spth 2 eq {clstate {(f\n) jp }{(F\n) jp } ifelse} if
  212.      } if
  213. } def
  214. /jpm {
  215.   ckpnt
  216.   /dpth true def
  217.   transform 2 copy /yst xdef /xst xdef exch jpnum jpnum ( m\n) jp } bind def
  218. /jpl { trx jpnum jpnum ( l\n) jp } bind def
  219. /jpc {  6 4 roll trx jpnum jpnum 4 2 roll trx jpnum jpnum trx
  220.     jpnum jpnum ( c\n) jp } bind def
  221. /jpp {xst jpnum yst jpnum ( l\n) jp /clstate true def} def
  222. /cntpaths { % count paths on stack
  223.   oldgsave
  224.   {pop pop /jnump jnump 1 add def} {pop pop} {6 {pop} repeat}{} pathforall
  225.   oldgrestore
  226. } def
  227. /ppforall {
  228.  cntpaths % find out how many paths are on the stack
  229.  jnump 1 gt { (*u\n) jp } if
  230.  {jpm}{jpl}{jpc}{jpp} pathforall 
  231.   ckpnt
  232.  jnump 1 gt { (*U\n) jp } if
  233.  /jnump 0 def /clstate false def /dpth false def /fclp false def
  234.   oldnewpath
  235. } bind def
  236. %
  237. %              Painting Operators
  238. %
  239. /oldnewpath [/newpath load] cbdef
  240. /newpath { (\n) jp /spth 0 def ppforall} def 
  241. /stroke { (\n) jp /spth 1 def ppforall } def 
  242. /fill   {(\n) jp /spth 2 def ppforall } def 
  243. /eofill {(1 D\n) jp fill (0 D\n) jp} def
  244. /clip {clarry gcnt get {(Q\nq\n) jp}{(q\n) jp} ifelse 
  245.                    /fclp true def clarry gcnt true put} def
  246. /eoclip {(1 D\n) jp clip (0 D\n) jp} def
  247. %
  248. %               Text Operators
  249. %
  250. /oldshow [/show load] cbdef
  251. /curpt {stringwidth pop jx add jy} def 
  252. /jNN {dup 0 eq {pop oldgsave currentfont /FontMatrix get setmatrix kscl
  253.                 oldgrestore} if
  254. } def
  255. /curftmatrix {
  256.  currentfont /FontMatrix get dup 0 get jNN abs /norm exch def 
  257.  dup 0 get norm div exch dup
  258.  1 get norm div exch dup 2 get norm div exch dup 3 get norm div exch dup
  259.  4 get exch 5 get 6 array astore matrix currentmatrix matrix concatmatrix
  260. } def
  261. % AI does not support negitive font sizes
  262. /curftsize {currentfont /FontMatrix get 0 get jNN abs 1000 mul} def
  263. /hstr (X) def
  264. /vbar (|) 0 get def /undsc (_) 0 get def
  265. /ftnamefix { % handle font names with |,_ (previously encoded)
  266. jstr cvs
  267. { %forall
  268.         dup vbar eq {pop}{ %ifelse
  269.             dup undsc eq {pop}{ %ifelse
  270.                     hstr exch 0 exch put hstr jp
  271.             } ifelse
  272.         } ifelse
  273.    } forall   flush
  274. } bind def
  275. %/curftname {currentfont /FontName get ftnamefix}def
  276. /curftname { currentfont /FontName known {currentfont /FontName get}
  277.            { (Times-Roman)} ifelse ftnamefix } def
  278. /lftpar (\() 0 get def
  279. /rhtpar (\)) 0 get def
  280. /bckslsh (\\) 0 get def
  281. /handft { % handle strings with (,),\
  282.    (\() jp
  283.    { %forall
  284.         dup lftpar eq { (\\\() jp }{ %ifelse
  285.             dup rhtpar eq { (\\\)) jp }{ %ifelse
  286.                 dup bckslsh eq { (\\\\) jp }{ %ifelse
  287.                     hstr exch 0 exch put hstr jp
  288.                 } ifelse
  289.             } ifelse
  290.         } ifelse
  291.    } forall (\)) jp flush
  292. } bind def
  293. % AI 3 text format pieces
  294. jtxt3 {
  295. /j3txt { j3ftxt {(0 Ts 100 Tz 0 Tt 0 TA 0 0 5 TC 100 100 200 TW 0 0 0 Ti\n) jp
  296.                 (0 Ta 0 Tq 0 0 TI 0 Tc 0 Tw\n) jp} if } def
  297. /show {oldgsave  (0 To\n) jp 
  298.   currentpoint 2 copy /jy exch def /jx exch def translate 
  299.   curftmatrix /jitm exch def
  300.   0 1 5 {jitm exch get jpnum} for ( 0 Tp\n) jp (TP\n) jp
  301.   (0 Tr\n) jp (\/_) jp curftname  curftsize jpnum ( Tf\n) jp
  302.   (0) jp j_ax  curftsize div 100 mul jpnum ( 100 TC\n) jp %  percent(?)
  303.   dup curpt moveto mark exch handft ( Tx\n) jp (TO\n) jp /j3ftxt false def
  304.   cleartomark currentpoint oldgrestore moveto
  305. } def  
  306. /ashow {exch pop exch /j_ax exch def show /j_ax {0} def } def
  307. } 
  308.  {
  309. /show {oldgsave (u\n) jp currentpoint 2 copy /jy exch def /jx exch def translate
  310.   (\/) jp curftname jstr cvs jp
  311.   curftsize dup jpnum  jpnum ( 0 0 z\n) jp
  312.   curftmatrix jpmat ( e\n) jp
  313.   dup curpt moveto mark exch handft ( t T U\n) jp
  314.   cleartomark currentpoint oldgrestore moveto} def
  315. /ashow {oldgsave (u\n) jp currentpoint translate (\/) jp curftname jstr cvs jp
  316.   curftsize dup jpnum jpnum  exch kscl mul jpnum ( 0 z\n) jp
  317.   curftmatrix jpmat ( e\n) jp dup curpt moveto mark exch handft
  318.   ( t T U\n) jp cleartomark currentpoint oldgrestore moveto} def
  319. } ifelse
  320. /widthshow { show pop pop pop} def
  321. /awidthshow {ashow pop pop pop} def
  322. /kshow {show pop} def
  323. %/show {true charpath fill} bind def   % get outline of charactor
  324. joutln {/show { true charpath currentpoint 
  325.      /jy exch def /jx exch def fill jx jy moveto} bind def} if
  326. %/show {oldshow} def    % do nothing different
  327. %
  328. %               Color Operators
  329. %
  330. /oldsetcmykcolor [/setcmykcolor load] cbdef
  331. /setcmykcolor {oldsetcmykcolor 
  332. currentcmykcolor 4 -1 roll jpnum 3 -1 roll jpnum 2 -1 roll jpnum jpnum ( k\n) jp
  333. currentcmykcolor 4 -1 roll jpnum 3 -1 roll jpnum 2 -1 roll jpnum jpnum ( K\n) jp
  334.  } def
  335. /oldsetgray [/setgray load] cbdef
  336. /setgray {0 0 0 4 -1 roll 1 exch sub setcmykcolor} def
  337. /oldsethsbcolor [/sethsbcolor load] cbdef
  338. /sethsbcolor {oldsethsbcolor currentcmykcolor setcmykcolor} def
  339. /oldsetrgbcolor [/setrgbcolor load] cbdef
  340. /setrgbcolor {oldsetrgbcolor currentrgbcolor /bval xdef /gval xdef /rval xdef
  341.  /rawC 1 rval sub def /rawM 1 gval sub def /rawY 1 bval sub def
  342.  rawC rawM ge { rawY rawM ge { /blk rawM def} if } if
  343.  rawC rawY ge { rawM rawY ge { /blk rawY def} if } if
  344.  rawY rawC ge { rawM rawC ge { /blk rawC def} if } if
  345.  rawY rawC eq { rawM rawC eq { /blk rawC def} if } if
  346.  /cyan  rawC blk sub  def
  347.  /mag  rawM blk sub  def
  348.  /yel  rawY blk sub  def
  349.  /blk blk def
  350.  cyan mag yel blk setcmykcolor } def
  351. %
  352. %                State Operators
  353. %
  354. /oldsetlinewidth [/setlinewidth load] cbdef
  355. /setlinewidth {kscl abs mul jltz  oldsetlinewidth
  356.  currentlinewidth jpnum ( w\n) jp } def
  357. /oldsetlinecap [/setlinecap load] cbdef
  358. /setlinecap {dup oldsetlinecap jpnum ( J\n) jp} def
  359. /oldsetlinejoin [/setlinejoin load] cbdef
  360. /setlinejoin {dup oldsetlinejoin jpnum ( j\n) jp} def
  361. /oldsetmiterlimit [/setmiterlimit load] cbdef
  362. /setmiterlimit {dup oldsetmiterlimit jpnum ( M\n) jp}def
  363. /oldsetdash [/setdash load] cbdef
  364. /setdash {exch [ exch {kscl abs mul} forall ] exch kscl abs mul oldsetdash
  365.   currentdash exch jpmat jpnum ( d\n) jp } def
  366. /oldsetflat [/setflat load] cbdef
  367. /setflat {dup oldsetflat jpnum ( i\n) jp } def
  368. %
  369. %                More State Operators
  370. %
  371. /kscl { % use just the x scale factor
  372.  oldgsave
  373.  matrix currentmatrix /jctm exch def
  374.  jctm 4 0 put jctm 5 0 put jctm setmatrix
  375.  1 0 moveto currentpoint transform
  376.  dup mul exch dup mul add sqrt 10000 mul round 10000 div
  377.  oldgrestore
  378. } def
  379. /currentstate {currentcmykcolor setcmykcolor
  380.  currentflat jpnum ( i) jp currentlinecap jpnum ( J) jp
  381.  currentlinejoin jpnum ( j) jp currentlinewidth jpnum ( w) jp
  382.  currentmiterlimit jpnum ( M ) jp currentdash exch jpmat jpnum ( d\n) jp 
  383. } def
  384. /jdifG {
  385.  currentcmykcolor /jok xdef /joy xdef /jom xdef /joc xdef
  386.  currentflat /jof xdef currentlinecap /jolc xdef currentlinejoin /jolj xdef
  387.  currentlinewidth /jolw xdef currentmiterlimit /joml xdef
  388.  currentdash /jood xdef /joad xdef
  389.  oldgrestore
  390.  currentcmykcolor /jnk xdef /jny xdef /jnm xdef /jnc xdef
  391.  currentflat /jnf xdef currentlinecap /jnlc xdef currentlinejoin /jnlj xdef
  392.  currentlinewidth /jnlw xdef currentmiterlimit /jnml xdef
  393.  currentdash /jnod xdef /jnad xdef
  394.  % compare old gstate to new gstate
  395.  joc jnc ne jom jnm ne joy jny ne jok jnk ne
  396.  jof jnf ne jolc jnlc ne jolj jnlj ne jolw jnlw ne joml jnml ne 
  397.  false joad {true exit} forall {pop pop true}{false} ifelse
  398.  false jnad {true exit} forall {pop pop true}{false} ifelse ne
  399.  jood jnod ne 10 {or} repeat {currentstate} if
  400. } def
  401. /oldgsave [/gsave load] cbdef
  402. /gsave {oldgsave /gcnt gcnt 1 add def } def % clarry gcnt false put} def
  403. %  (%%Note:gsave ) jp gcnt jpnum (\n) jp} def
  404. /oldgrestore [/grestore load] cbdef
  405. /grestore {dpth {newpath} if clarry gcnt get {(Q\n) jp clarry gcnt false put} if 
  406.  jdifG /gcnt gcnt 1 sub def } def
  407. % oldgrestore currentstate } def
  408. % (%%Note:grestore ) jp gcnt 1 add jpnum (\n) jp} def
  409. /oldrestore [/restore load] cbdef
  410. % a kludgy way of saving the clipping path status information
  411. /restore {clarry aload pop 11 -1 roll oldrestore clarry astore pop} def
  412. /showpage {  0 1 9 {clarry exch get {(Q\n) jp} if } for
  413.  (%%Note: If Error, make sure there are matched pairs of 'q's and 'Q's\n) jp
  414.  (%%Note: in the file. Add 'Q's before '%%Trailer' until equal\n) jp
  415.  (%%Trailer\n) jp
  416.  jtxt3 {(Adobe_IllustratorA_AI3 /terminate get exec\n) jp
  417.         (Adobe_typography_AI3 /terminate get exec\n) jp
  418.         (Adobe_customcolor /terminate get exec\n) jp
  419.         (Adobe_cshow /terminate get exec\n) jp
  420.         (Adobe_cmykcolor /terminate get exec\n) jp
  421.         (Adobe_packedarray /terminate get exec\n) jp
  422. }{
  423.         (Adobe_Illustrator881 /terminate get exec\n) jp
  424.         (Adobe_customcolor /terminate get exec\n) jp
  425.         (Adobe_cshow /terminate get exec\n) jp
  426.         (Adobe_cmykcolor /terminate get exec\n) jp
  427.         (Adobe_packedarray /terminate get exec\n) jp 
  428.        } ifelse
  429. ( showpage\n%EOF\n%%EndDocument\n) jp
  430.  jout {joutput closefile} if jMacGS not {quit} if /j3ftxt true def } def 
  431. %
  432. %                Error handling
  433. %
  434. errordict begin
  435. % Attempt to handle the error caused by bitmap fonts (TeX,Windows.ps,etc)
  436. % this is a big-time kludge
  437. jbiterr {
  438.  /undefined {pop pop (Times-Roman)} def
  439.  /typecheck {pop pop} def
  440. } if
  441. jerr {
  442.  /handleerror {
  443.   (%%Note: ps2ai error, aborting rest of conversion\n) jp showpage
  444.  } def
  445. } if
  446. end
  447. %
  448. %                Mac LW 8 improvements
  449. %
  450. /jmacimp { % stroked line instead of thin filled boxes
  451.  /@a {  3 -1 roll 2 div dup 3 -1 roll add exch 3 -1 roll add exch moveto
  452.       3 -1 roll 2 div dup 3 -1 roll add exch 3 -1 roll exch sub exch lineto
  453.       abs setlinewidth  stroke pop pop} def
  454.  /@b { 3 -1 roll 2 div dup 3 -1 roll add exch 3 -1 roll add exch moveto
  455.       pop
  456.       3 -1 roll 2 div dup 3 -1 roll add exch 3 -1 roll add exch lineto
  457.       abs setlinewidth  stroke} def
  458.  /endp {showpage pm restore} def % because the restore stops clean up
  459. } def
  460. %
  461. %                Handle (some) PS Level 2
  462. %
  463. /rectstroke { 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto neg 0 rlineto
  464.   closepath stroke} def
  465. /rectfill { 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto neg 0 rlineto
  466.   fill } def
  467. /rectclip { 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto neg 0 rlineto
  468.   closepath clip newpath jMacfix {jmacimp} if } def
  469. %
  470. % Add a header prolog to the output file so it is still view/print-able
  471. %
  472. (%!PS-Adobe-2.0 EPSF-1.2\n%%BoundingBox: 0 0 612 792\n) jp
  473. (%%Title: Adobe Illustator 3 Editable Document\n) jp
  474. (%%Creator: ps2ai.ps vers.) jp vers jpnum ( \(C\) 1993-94 Jason Olszewski\n) jp
  475. (%%TemplateBox: 0 0 612 792\n) jp
  476. jtxt3 {(%%AI3_Margin:0 0 0 0\n) jp } if
  477. (%%EndComments\n) jp
  478. (%%BeginProlog\n) jp
  479. (/m {moveto} def /l {lineto} def /c {curveto} def\n) jp
  480. (/S {stroke} def /F {fill} def\n) jp
  481. (/s {closepath S} def /f {closepath F} def\n) jp
  482. (/q {gsave} def /Q {grestore} def /W {clip} def /k {setcmykcolor} def\n) jp
  483. (/i {setflat} def /J {setlinecap} def /j {setlinejoin} def\n) jp
  484. (/w {setlinewidth} def /M {setmiterlimit} def /d {setdash} def\n) jp
  485. (/u {gsave} def /U {grestore} def /K {k} def\n) jp
  486. (/N {newpath} def /n {closepath N} def\n) jp
  487. (/g {setgray} def /G {g} def\n) jp
  488. (/x {pop pop k} def /X {x} def\n) jp
  489. (/H {} def /h {H closepath} def /D {pop} def\n) jp
  490. (/*u { /N {/spth 0 def}def /S{/spth 1 def}def /F {/spth 2 def} def} def\n) jp
  491. (/*U { spth 0 eq {newpath} if spth 1 eq {stroke} if spth 2 eq {fill} if\n) jp
  492. (     /N {newpath} def /S {stroke} def /F {fill} def  } def\n) jp
  493. %(\n) jp
  494. jtxt3 {
  495.  (/TC {pop pop pop} def /Tr {pop} def\n) jp
  496.  (/To {pop gsave} def /TO {grestore} def\n) jp
  497.  (/Tp {pop matrix astore concat} def  /TP {0 0 moveto} def\n) jp
  498.  (/a_str 40 string def /cnt 0 def /h_str (X) def /undsc (_) 0 get def\n) jp
  499.  (/fntfix {a_str cvs dup length 1 sub /f_str exch string def\n) jp
  500.  (  {dup undsc eq {pop}{f_str cnt 3 -1 roll put /cnt cnt 1 add def\n) jp
  501.  (  } ifelse } forall flush /cnt 0 def f_str cvn } bind def\n) jp
  502.  
  503.  (/Tf {exch fntfix findfont exch scalefont setfont} def /Tx {show} def\n) jp
  504. }{
  505.  (/z {pop pop pop exch findfont exch scalefont setfont} def\n) jp
  506.  (/e {concat 0 0 m} def /t {show} def /T {} def\n) jp
  507. } ifelse
  508. (\n) jp
  509. jtxt3 {
  510.  (userdict /Adobe_packedarray 2 dict dup begin put\n) jp
  511.  (/initialize {} def /terminate {} def\n) jp
  512.  (userdict /Adobe_cmykcolor 2 dict dup begin put\n) jp
  513.  (/initialize {} def /terminate {} def\n) jp
  514.  (userdict /Adobe_cshow 2 dict dup begin put\n) jp
  515.  (/initialize {} def /terminate {} def\n) jp
  516.  (userdict /Adobe_customcolor 2 dict dup begin put\n) jp
  517.  (/initialize {} def /terminate {} def\n) jp
  518.  (userdict /Adobe_typography_AI3 2 dict dup begin put\n) jp
  519.  (/initialize {} def /terminate {} def\n) jp
  520.  (userdict /Adobe_IllustratorA_AI3 2 dict dup begin put\n) jp
  521.  (/initialize {} def /terminate {} def\n) jp
  522. }{
  523.  (userdict /Adobe_packedarray 2 dict dup begin put\n) jp
  524.  (/initialize {} def /terminate {} def\n) jp
  525.  (userdict /Adobe_cmykcolor 2 dict dup begin put\n) jp
  526.  (/initialize {} def /terminate {} def\n) jp
  527.  (userdict /Adobe_cshow 2 dict dup begin put\n) jp
  528.  (/initialize {} def /terminate {} def\n) jp
  529.  (userdict /Adobe_customcolor 2 dict dup begin put\n) jp
  530.  (/initialize {} def /terminate {} def\n) jp
  531.  (userdict /Adobe_Illustrator881 2 dict dup begin put\n) jp
  532.  (/initialize {} def /terminate {} def\n) jp
  533. } ifelse
  534. (%%EndProlog\n) jp
  535. (%%BeginSetup\n) jp
  536. jtxt3 {
  537.  (Adobe_packedarray /initialize get exec\n) jp
  538.  (Adobe_cmykcolor /initialize get exec\n) jp
  539.  (Adobe_cshow /initialize get exec\n) jp
  540.  (Adobe_customcolor /initialize get exec\n) jp
  541.  (Adobe_typography_AI3 /initialize get exec\n) jp
  542.  (Adobe_IllustratorA_AI3 /initialize get exec\n) jp
  543. }{
  544.  (Adobe_packedarray /initialize get exec\n) jp
  545.  (Adobe_cmykcolor /initialize get exec\n) jp
  546.  (Adobe_cshow /initialize get exec\n) jp
  547.  (Adobe_customcolor /initialize get exec\n) jp
  548.  (Adobe_Illustrator881 /initialize get exec\n) jp
  549. } ifelse
  550. (%%EndSetup\n) jp
  551. 0 0 0 1 oldsetcmykcolor
  552. currentstate
  553.  
  554. jout {(%%Note: Load Postscript file to be converted now\n) print} if
  555.