Path: utzoo!censor!geac!torsqnt!news-server.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!AI.SRI.COM!felix
From: felix@AI.SRI.COM (Francois Felix INGRAND)
Newsgroups: comp.laser-printers
Subject: Problem with Imagen (Ultrascript) and nup
Message-ID: <9007120321.AA28448@crayola.cs.UMD.EDU>
Date: 22 Jun 90 19:02:31 GMT
Sender: usenet@ucbvax.BERKELEY.EDU
Organization: SRI International, Menlo Park, CA
Lines: 53
Approved: laser-lovers@brillig.umd.edu


I have a problem when I try to use the nup package on an Imagen 3320
(Ultrascript 4.1T Rev. B IP/II).

The nup allow one to print 2, 4, n pages on one page.

For this it redifines a bunch of function (showpage, gsave, etc) I am
not a postscript expert, but it seems to define - and + version of
these functions, for example it defines +gsave and -gsave.

The code which I think does that, follows. On a Apple LW, this works
fine. On our 3320, I get the following error:

%%[Error: undefined; Offending Command: -gsave]%%

(so obviously the function definition has failed...)

Any fix?

%=========================<< Pods: - Functions >>==============================
%
% Save the old definitions of some important operators
%

/pods [				% The operators that we'll redefine.
	/showpage /copypage /erasepage
	/initgraphics /initmatrix /initclip
	/defaultmatrix /currentmatrix /setmatrix
	/restore
	/gsave /grestore /grestoreall
] def

/+s 128 string dup 0 (+) putinterval def
/-s 128 string dup 0 (-) putinterval def
/namestr 128 string def

pods {
	dup namestr cvs			% /foo ==> (foo)
	dup length /l exch def		%
	-s exch 1 exch putinterval	%      ==> (-foo)
	systemdict exch get		% Get the definition of foo
	-s 0 l 1 add getinterval	% Get (-foo)
	exch def			% And define one to the other.
} forall


Thanks in advance,
-- 
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Francois Felix INGRAND                          SRI International, AIC
felix@AI.SRI.COM                                333, Ravenswood Avenue
felix%AI.SRI.COM@UUNET.UU.NET                   MENLO PARK, CA 94025, USA
"Pourquoi tant de haine..." (Edika)      "Read my Lisp... No new syntax" (nil)