Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!mcsun!ukc!edcastle!cs.ed.ac.uk!cs.edinburgh.ac.uk!ajcd From: ajcd@cs.edinburgh.ac.uk (Angus Duggan) Newsgroups: alt.sources Subject: Re: PostScript utilities Keywords: PostScript page signature selection Message-ID: <8633@skye.cs.ed.ac.uk> Date: 9 Apr 91 17:00:22 GMT References: <8545@skye.cs.ed.ac.uk> Sender: nnews@cs.ed.ac.uk Reply-To: ajcd@cs.edinburgh.ac.uk (Angus Duggan) Followup-To: alt.sources.d Organization: Edinburgh University Fried Brain Carry-out Lines: 37 Archive-name: psutils/patch01 In article <8545@skye.cs.ed.ac.uk>, ajcd@cs.edinburgh.ac.uk (me) writes: > People seem to have been asking for programs to perform page manipulation for > PostScript recently; here's my set of utilities for selecting and rearranging > pages from PostScript documents. > > #! /bin/sh ... This always happens to me; post something, then instantly start finding stupid bugs. I copied some stuff from the red book incorrectly, here's a patch: *** pstops.c.~1~ Wed Feb 20 14:06:57 1991 --- pstops.c Tue Apr 9 16:57:44 1991 *************** *** 296,302 **** } writestring("/initgraphics{initmatrix newpath initclip 1 setlinewidth\n"); writestring(" 0 setlinecap 0 setlinejoin []0 setdash 0 setgray\n"); ! writestring(" 0 setmiterlimit}bind def\n"); if (nobinding) /* desperation measures */ writestring("/bind{}def\n"); writestring("%%EndProcSet\n"); --- 296,302 ---- } writestring("/initgraphics{initmatrix newpath initclip 1 setlinewidth\n"); writestring(" 0 setlinecap 0 setlinejoin []0 setdash 0 setgray\n"); ! writestring(" 10 setmiterlimit}bind def\n"); if (nobinding) /* desperation measures */ writestring("/bind{}def\n"); writestring("%%EndProcSet\n"); a. -- Angus Duggan, Department of Computer Science, | I'm pink, therefore I'm Spam. University of Edinburgh, JCMB, | JANET: ajcd@uk.ac.ed.lfcs The King's Buildings, Mayfield Road, | VOICE: (UK) 031 650 5126 Edinburgh, EH9 3JZ, Scotland. | OR: ajcd%lfcs.ed.ac.uk@nsfnet-relay.ac.uk