felix@AI.SRI.COM (Francois Felix INGRAND) (06/23/90)
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)