Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!sample.eng.ohio-state.edu!purdue!dgc From: dgc@cs.purdue.EDU (Doug Crabill) Newsgroups: comp.lang.postscript Subject: Re: converting postscript to encapsulated postscript Message-ID: <14434@medusa.cs.purdue.edu> Date: 22 Apr 91 14:30:21 GMT References: <14010@adobe.UUCP> Sender: news@cs.purdue.EDU Distribution: comp.lang.postscript Organization: Purdue University Lines: 442 In article mass@hobiecat.cs.caltech.edu (Mass Sivilotti) writes: > Carl> EPS files can optionally contain a bitmapped image preview, so that systems > Carl> that can't render PostScript directly can at least display a crude > Carl> representation of what the graphic will look like. There are three > Carl> preview formats: Mac (PICT), IBM (tiff), and a platform independent preview > Carl> called EPSI. > > Does anybody out there have a good way to generate these bitmapped > previews, and include them in an EPSF file. In particular, Word > for Windows on the PC would like a TIFF preview (and some other > binary stuff) prepended onto a PostScript illustration. > > I have a large body of PostScript illustrations that would love to > be imported into WfW. Any help would be appreciated. > > --mass > (mass@hobiecat.cs.caltech.edu) I have a solution which easily generates the "platform independent preview called EPSI". It can probably be modified to generate TIFF previews if you are so inclined. The preview it generates works well with FrameMaker, among others, and the BoundingBox information it generates is application independent. I posted this a couple months ago, but apparently everyone was on spring break that week ;-) Doug There have been many requests for a program to convert from PS to EPS, from PS to EPSI, from PS to EPSF, from EPS to EPSI, and from PS to a variety of bitmap forms. I have written (glued together) a simple solution. You give my program (pstoepsi) arbitrary PostScript, and it converts it to Encapsulated PostScript (BoundingBox information) with a bitmap representation of the image in comments (EPSI format). It doesn't require unnecessary printing and hand editing of PostScript source to calculate BoundingBox information (as is needed with bb.ps). Pipe the rest of this message through /bin/sh to unshar and read the README for more information. Doug Crabill Department of Computer Science Purdue University dgc@cs.purdue.edu #! /bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh 'README' <<'END_OF_FILE' XDESCRIPTION X XThese scripts allow arbitrary PostScript to be converted to XEncapsulated PostScript with a bitmap (EPS, EPSI, EPSF). The real Xwork has been done by the authors of PBMPLUS (Jef Poskanzer), XGhostScript (L. Peter Deutsch), and OpenWindows (Sun). All I have Xdone is supply some glue to put all of these other applications to Xwork. It is beyond me why it has not been done before, especially Xconsidering the number of requests (pleas) for such a conversion Xprogram. X XI am providing these scripts with no guarantee, but will maintain them Xand fix bugs if you send them. X XDoug Crabill Xdgc@cs.purdue.edu X X XREQUIREMENTS X XYou must have the PBMPLUS utilities. X XYou must have either OpenWindows, GhostScript, or both. X XPBMPLUS is available via anonymous ftp from export.lcs.mit.edu in Xcontrib/pbmplus.tar.Z, OpenWindows is available from Sun, and XGhostScript is available via anonymous ftp from prep.ai.mit.edu in Xpub/gnu/ghostscript-2.1.1.tar.Z (watch for newer versions). X X XINSTALLATION X XDrop pbmtoepsi.c into the pbmplus source (in the pbm subdirectory), Xadd it to the Makefile, and make. Put the executable with the other Xpbm binaries. X XPut pstorast (formerly pstobits, posted by someone else in the past -- Xdon't remember who) in an appropriate location (/usr/local/bin, or Xwhatever). X XEdit pstoepsi and change all of the variables at the top so they match Xyour local configuration. X X XHOW TO USE IT X XRead the pstoepsi shell script for usage. X X XHOW IT WORKS X XThe conversion works by interpreting the source PostScript using Xeither X/NeWS (provided with OpenWindows) in batch mode or GhostScript Xin batch mode, converting the result into a portable bitmap, running it Xthrough pbmtoepsi, which converts it to a PostScript style bitmap Xcomplete with bounding box information, and concatenating the result Xwith the original PostScript. X XUsing X/NeWS for the conversion generally takes longer, but yields a Xsharper bitmap than with GhostScript. It is convenient to have both Xavailable because occasionally you will want to convert PostScript Xwhich will cause one or other of the interpreters to fail. If you Xwant to encapsulate PostScript which already thinks it is Xencapsulated, you should probably use the "-strip" option to pstoepsi. XThis will strip out all of the old encapsulation and add new Xencapsulation. X X XDoug Crabill XDepartment of Computer Science XPurdue University Xdgc@cs.purdue.edu END_OF_FILE if test 2401 -ne `wc -c <'README'`; then echo shar: \"'README'\" unpacked with wrong size! fi # end of 'README' fi if test -f 'pbmtoepsi.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pbmtoepsi.c'\" else echo shar: Extracting \"'pbmtoepsi.c'\" \(2248 characters\) sed "s/^X//" >'pbmtoepsi.c' <<'END_OF_FILE' X/* pbmtoepsi.c X** X** by Doug Crabill, based heavily on pbmtoascii X** X** Converts a pbm file to an encapsulated PostScript style bitmap. X** Note that it does NOT covert the pbm file to PostScript, only to X** a bitmap to be added to a piece of PostScript generated elsewhere. X** X** Copyright (C) 1988 by Jef Poskanzer. X** X** Permission to use, copy, modify, and distribute this software and its X** documentation for any purpose and without fee is hereby granted, provided X** that the above copyright notice appear in all copies and that both that X** copyright notice and this permission notice appear in supporting X** documentation. This software is provided "as is" without express or X** implied warranty. X*/ X X#include "pbm.h" X X#if !defined(MAXINT) X#define MAXINT (0x7fffffff) X#endif X Xmain( argc, argv ) X int argc; X char *argv[]; X{ X FILE *ifd; X register bit **bits; X int rows, cols, row, col, tot, count; X int top = MAXINT, bottom = -MAXINT, left = MAXINT, right = -MAXINT; X X pbm_init( &argc, argv ); X X if ( argc > 2 ) X pm_usage( "[pbmfile]" ); X X if ( argc == 2 ) X ifd = pm_openr( argv[1] ); X else X ifd = stdin; X X bits = pbm_readpbm( ifd, &cols, &rows ); X X pm_close( ifd ); X X for (row = 0; row < rows; row++) { X for (col = 0; col < cols; col++) { X if (bits[row][col] == PBM_BLACK) { X if (row < top) { X top = row; X } X if (row > bottom) { X bottom = row; X } X if (col < left) { X left = col; X } X if (col > right) { X right = col; X } X } X } X } X X printf("%%!PS-Adobe-2.0 EPSF-1.2\n"); X printf("%%%%BoundingBox: %d %d %d %d\n", left, rows - bottom, right, rows - top); X printf("%%%%BeginPreview: %d %d 1 %d\n", right - left + 1, bottom - top + 1, bottom - top + 1); X X for (row = top; row <= bottom; row++) { X printf("%% "); X count = 0; X for (col = left; col <= right; col += 4) { X tot = 0; X if (bits[row][col] == PBM_BLACK) { X tot += 8; X } X if (bits[row][col+1] == PBM_BLACK) { X tot += 4; X } X if (bits[row][col+2] == PBM_BLACK) { X tot += 2; X } X if (bits[row][col+3] == PBM_BLACK) { X tot++; X } X printf("%x", tot); X count++; X } X printf((count % 2) == 0 ? "\n" : "0\n"); X } X printf("%%%%EndImage\n"); X printf("%%%%EndPreview\n"); X X exit( 0 ); X} END_OF_FILE if test 2248 -ne `wc -c <'pbmtoepsi.c'`; then echo shar: \"'pbmtoepsi.c'\" unpacked with wrong size! fi # end of 'pbmtoepsi.c' fi if test -f 'pstoepsi' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pstoepsi'\" else echo shar: Extracting \"'pstoepsi'\" \(1925 characters\) sed "s/^X//" >'pstoepsi' <<'END_OF_FILE' X#!/bin/sh X# Script to convert an arbitrary PostScript image to an encapsulated X# PostScript image with a bitmap, suitable for incorporation into X# FrameMaker, LaTeX, troff, etc. X# X# Options: X# -gs Use ghostscript to convert to EPSI X# -news Use Sun's X/NeWS (OpenWindows) to convert to EPSI X# -strip Strip all %% directives from the source file -- useful X# when dealing with Adobe Illustrator and others who X# use directives incompatible with this coversion. X# X# Note in the USAGE line below, the source PostScript file must end X# in a .ps extention. This is a GhostScript requirement, not mine... X# X# I am providing this without any guarantee. X# X# Thu Nov 29 10:57:05 EST 1990 X# X# Doug Crabill dgc@cs.purdue.edu X XUSAGE="Usage: $0 [ -gs | -news ] [ -strip ] .ps .epsi" X X########################## Edit these variables ##################### XGS='/usr/local/gnu/gs' XPSTOPPM='/usr/local/gnu/lib/gs/pstoppm.ps' XPBMTOEPSI='/usr/local/pbm/pbmtoepsi' XRASTTOPNM='/usr/local/pbm/rasttopnm' XINTERP='gs' XSTRIP='false' XPSTORAST='./pstorast' X###################################################################### X Xfor A do X case $A in X -gs) INTERP='gs' X shift X ;; X -news) INTERP='news' X shift X ;; X -strip) STRIP='true' X shift X ;; X *) break X ;; X esac Xdone X XBASE=`basename "$1" .ps` X Xif [ $# -ne 2 -o ! -f "$1" -o "$1" = "$BASE" ] ; then X echo $USAGE 1>&2 X exit 1 Xfi X XTMP1="/tmp/$USER.1.$$" XTMP2="/tmp/$USER.2.$$" XTMP3="/tmp/$USER.3.$$" Xtrap 'rm -f $TMP1 $TMP2 ${BASE}.ppm; exit' 1 2 3 4 13 15 X Xif [ "true" = "$STRIP" ] ; then X awk '/^%%/ { next } {print}' < $1 > $TMP3 Xelse X TMP3="$1" Xfi X Xif [ "gs" = "$INTERP" ] ; then X $GS -q -dNODISPLAY $PSTOPPM << DGC X ($BASE) ppm1run XDGC X $PBMTOEPSI ${BASE}.ppm > $TMP1 X cat $TMP1 $TMP3 > $2 Xelse X $PSTORAST -in $TMP3 -out $TMP1 X $RASTTOPNM < $TMP1 | $PBMTOEPSI > $TMP2 X cat $TMP2 $TMP3 > $2 Xfi X Xif [ "$1" != "$TMP3" ] ; then X rm -f $TMP3 Xfi Xrm -f $TMP1 $TMP2 ${BASE}.ppm X Xexit 0 END_OF_FILE if test 1925 -ne `wc -c <'pstoepsi'`; then echo shar: \"'pstoepsi'\" unpacked with wrong size! fi chmod +x 'pstoepsi' # end of 'pstoepsi' fi if test -f 'pstorast' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'pstorast'\" else echo shar: Extracting \"'pstorast'\" \(1632 characters\) sed "s/^X//" >'pstorast' <<'END_OF_FILE' X#! /bin/sh X# @(#)ps2bits 1.2 89/12/12 X# ps2bits - PostScript to Rasterfile converter. X# X XUSAGE="Usage: `basename ${0}` [-in s] [-out s] [-dpi x y] [-size w h] [-color]" XOUT="pspage" XIN="%stdin" XDPIX=72 XDPIY=72 XXSIZE=8.5 XYSIZE=11 XDEPTH=1 X Xexport OPENWINHOME XNEWSHOME LD_LIBRARY_PATH X XOPENWINHOME="${OPENWINHOME-/usr/local/OpenWindows}" XXNEWSHOME=${OPENWINHOME} XLD_LIBRARY_PATH=${OPENWINHOME}/lib:/lib X Xif [ ! -f $OPENWINHOME/etc/NeWS/redbook.ps ]; then X echo "`basename $0`: xnews is not installed correctly in $OPENWINHOME" 1>&2 X echo " (set \$OPENWINHOME to where it is installed...)" 1>&2 X exit 1 Xfi X Xwhile [ ${#} -gt 0 ]; do X case "${1}" in X -color) shift; X DEPTH=8 X ;; X -out) shift; X OUT=${1} shift X ;; X -in) shift; X IN=${1} shift X ;; X -size) shift; X XSIZE=${1} shift; X YSIZE=${1} shift X ;; X -dpi) shift; X DPIX=${1} shift; X DPIY=${1} shift X ;; X *) echo ${USAGE}; X exit 0 X ;; X esac Xdone X X$OPENWINHOME/bin/xnews -init " X /currentpacking false def X /setpacking { pop } def X (NeWS/basics.ps) (r) file cvx exec X (NeWS/redbook.ps) (r) file cvx exec X X 500 dict begin % start userdict X false setautobind X /bind {} def X X /showpage { copypage erasepage initgraphics } def X /_pageno 0 def X /copypage { X /_pageno _pageno 1 add store X (${OUT}) X clippath writecanvas X } def X X ${DPIX} ${XSIZE} mul ${DPIY} ${YSIZE} mul ${DEPTH} X [ ${DPIX} 72 div 0 0 ${DPIY} 72 div neg 0 7 index ] X null buildimage setcanvas X erasepage initgraphics X X % hack for bug in folio initialization code. X /Courier findfont 10 scalefont setfont () stringwidth pop pop X X (${IN}) (r) file cvx exec X shutdownserver X" X END_OF_FILE if test 1632 -ne `wc -c <'pstorast'`; then echo shar: \"'pstorast'\" unpacked with wrong size! fi chmod +x 'pstorast' # end of 'pstorast' fi echo shar: End of shell archive. exit 0