Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!bbn!apple!amdahl!drivax!alexande
From: alexande@drivax.DRI (Mark Alexander)
Newsgroups: comp.sys.ibm.pc
Subject: Re: Draw Program
Summary: How fake EPS with GEM Draw
Message-ID: <4320@drivax.DRI>
Date: 22 Feb 89 20:41:17 GMT
References: <42900033@uicsrd.csrd.uiuc.edu> <36300034@iuvax>
Reply-To: alexande@drivax.UUCP (Mark Alexander)
Organization: Bob-ist Temple of Monterey
Lines: 80

In article <36300034@iuvax> boyer@iuvax.cs.indiana.edu writes:
>GEM Draw from Digital Research is very similar to the MAC Draw program...
>The only DRAWback :-) to  the GEM package is that it does not support
>encapsulated postscript for importing files to Word Processing or DTP
>programs.

Draw pictures (.GEM files) can be incorporated into Ventura Publisher
and GEM Desktop Publisher documents directly, without using EPS.

You have more of problem with programs that don't read .GEM files.
It's true that Draw doesn't produces EPS (actually GEM's PostScript
driver is at fault here).  However, you can edit the files "pst.pre"
and "pst.cnf" that come with GEM to make some word processors happy.
I've done this with Borland Sprint and GEM 3.1.

Here is the modified PST.CNF file that I use with Sprint:

eoftype(MAC)
imgtype(FAST)
margins(18 18 18 18)
resfont(LW+)

The change is the "eoftype" line.  It tells GEM not to put a Control-D
at the end of the PostScript file.

Here are the differences between the standard PST.PRE and the version
I modified for Sprint (called PST.SPR for comparison purposes).

*** pst.pre
--- pst.spr
**************
*** 1,4
  % Copyright (C) Digital Research, Inc. 1986, 1987. All rights reserved.
  systemdict /setpacking known {/svp currentpacking def true setpacking}if
  /gemdict 250 dict def
  gemdict begin
--- 1,7 -----
  % Copyright (C) Digital Research, Inc. 1986, 1987. All rights reserved.
+ % Modified by Mark Alexander
+ %	matinit has been changed to not center the image on the page.
+ %	This makes it easier to import graphics into Borland SPRINT.
  systemdict /setpacking known {/svp currentpacking def true setpacking}if
  /gemdict 250 dict def
  gemdict begin
**************
*** 18,27
  /geminit{np 1 setlinejoin /mpf true def
  	/encstr 80 string def gs}bd
  /matinit{/landscape ed /p3 ed /p2 ed /p1 ed
! 	gr 72 300 div exch div dup scale clippath pathbbox exch /prx ed
! 	exch dup /ply ed sub 1 add p3 sub 2 div ply add /ty ed
! 	dup prx exch sub 1 add p2 sub 2 div add
! 	landscape{p1 add}if ty translate
  	landscape{90 rotate p2 /p1 ed p3 /p2 ed p1 /p3 ed}if
  	gs}bd
  /gr /grestore load def
--- 21,27 -----
  /geminit{np 1 setlinejoin /mpf true def
  	/encstr 80 string def gs}bd
  /matinit{/landscape ed /p3 ed /p2 ed /p1 ed
! 	gr 72 300 div exch div dup scale 
  	landscape{90 rotate p2 /p1 ed p3 /p2 ed p1 /p3 ed}if
  	gs}bd
  /gr /grestore load def


In addition, if your Draw picture is smaller than full page, you
will have to manually edit the BoundingBox comment in the PostScript
file to reflect the actual picture size.  GEM always assumes it's 8x10.5;
it doesn't know how big the pictures really is.

The line normally looks like this: 

%%BoundingBox: 0 0 575 755 

This gives the x and y coordinates of the lower left and upper right
corners of a rectangle that surrounds the entire picture.  The units
are in points (1/72 inch).
-- 
Mark Alexander	(amdahl!drivax!alexande)