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