doc@fajita.UUCP (Tom Dockery) (01/14/89)
Is anybody else out there using Adobe Illustrator88 to generate Post-
Script for use in NeWS? After you save your file (NOT EPS) on the
MacIntosh, and get to your real computer :-) (we use TOPS, but there
are other ways), all of Adobe's document definitions tend to make NeWS
throw up. Here's the solution we've developed: strip the header
and trailer information from the Ill88 file, and prepend the stuff
you see listed below.
We haven't yet dealt with everything, notably text and Pantone colors.
You will also note that, due to differences in the MacII and NeWS
color maps, your colors won't be quite what you expected.
If anyone else out there is doing similar stuff, we'd be very
interested in what you've done.
Feel free to do to this what you want, but leave the notice attached,
and please send to us or post here any neat stuff you do with it.
Tom Dockery
%!
%%Illustrator88 header
%%Creator: DRH, TWD, SP
%%For: (Market Focus Technologies, Inc.) ()
%
% Copyright (c) 1989 by Market Focus Technologies, Inc.
%
% This is a product of Market Focus Technologies, Inc. and is
% provided for unrestricted use provided that this notice is left
% intact as a part of the software program in whole or part.
%
% Users may copy, modify or distribute this file at will.
%
% THIS FILE IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND.
%
% This is a replacement header to enable the use of files from
% Adobe Illustrator88 in NeWS. Delete everything preceding the
% line "%%EndSetup" and following the line "%%Trailer" from the
% Illustrator file, and prepend this header. It doesn't work
% with everything, notably with text, and it assumes the cmyk
% color schema. Feel free to modify it for your needs, but
% please keep us posted with any nifty additions or completions.
%
%
% Tom Dockery
% ...!sun!suntan!fajita!doc
%
% Market Focus Technologies, Inc.
% 5964 La Place Ct., Ste. 100
% Carlsbad, California 92008
%
% (Illustrator88 is an Adobe Trademark, but then you knew that.)
%begin MFTI stuff
/bdef {bind def} bind def
/ldef {load def} bdef
/xdef {exch def} bdef
% graphic state operators
/A {pop} bdef
/a {pop}
/R {0 ne /false exch def /none /none def} bdef
/O {0 ne /false exch def /none /none def} bdef
/_K {3 index add neg dup 0 lt {pop 0} if 3 1 roll} bdef
/_k /setcmybcolor where
{/setcmybcolor get} {{1 sub 4 1 roll _K _K _K setrgbcolor pop} bind}
ifelse def
/g {/_b xdef /p {_b setgray} def} bdef
/G {/_B xdef /P {_B setgray} def} bdef
/k {/_b xdef /_y xdef /_m xdef /_c xdef /p {_c _m _y _b _k} def} bdef
/K {/_B xdef /_Y xdef /_M xdef /_C xdef /P {_C _M _Y _B _k} def} bdef
/d /setdash ldef
/_i currentflat def
/i {dup 0 eq {pop _i} if setflat} bdef
/j /setlinejoin ldef
/J /setlinecap ldef
/M /setmiterlimit ldef
/w /setlinewidth ldef
% path construction operators
/c {transform .25 sub round .25 add exch
.25 sub round .25 add exch itransform curveto} bdef
/C /c ldef
/v {currentpoint 6 2 roll transform .25 sub round .25 add exch
.25 sub round .25 add exch itransform curveto} bdef
/V /v ldef
/y {transform .25 sub round .25 add exch
.25 sub round .25 add exch itransform 2 copy curveto} bdef
/Y /y ldef
/l {transform .25 sub round .25 add exch
.25 sub round .25 add exch itransform lineto} bdef
/L /l ldef
/m {transform .25 sub round .25 add exch
.25 sub round .25 add exch itransform moveto} bdef
% error operators
/_e [] def
/_E {_e length 0 ne {gsave 0 g 0 G 0 i 0 J 0 j 1 w 10 M [] 0 d
/Courier 20 0 0 1 z [0.966 0.259 -0.259 0.966
_e 0 get _e 2 get add 2 div _e 1 get _e 3 get add 2 div] e _f t T
grestore} if} bdef
/_fill {{fill} stopped
{/_e [pathbbox] def /_f (ERROR: can't fill, increase flatness) def %n
_E} if} bdef
/_stroke {{stroke} stopped
{/_e [pathbbox] def /_f (ERROR: can't stroke, increase flatness) de%f n
_E} if} bdef
% path painting operators
/n /newpath ldef
/N /n ldef
/P {0 setgray} bdef
/p {1 setgray} bdef
/F {p _fill} bdef
/f {closepath F} bdef
/S {P _stroke} bdef
/s {closepath S} bdef
/B {gsave F grestore S} bdef
/b {closepath B} bdef
% group construction operators
/u {} bdef
/U {} bdef
%---- the end, remove any mail junk after this line ----