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