Path: utzoo!attcan!uunet!cs.utexas.edu!usc!orion.oac.uci.edu!mheffron
From: mheffron@orion.oac.uci.edu (Matt Heffron)
Newsgroups: comp.sys.xerox
Subject: SCALEDBITBLT bug/patch
Message-ID: <26112456.19762@orion.oac.uci.edu>
Date: 28 Mar 90 20:53:41 GMT
Reply-To: mheffron@orion.oac.uci.edu (Matt Heffron)
Organization: Beckman Instruments, Inc.
Lines: 18

The code below will fix SCALEDBITBLT so that if DESTINATIONLEFT and/or
DESTINATIONBOTTOM are unspecified, it defaults to the current location
in the destination imagestream, rather than using 0 for those values.
This is part of the fix for bitmaps not appearing (or in the wrong place)
in TEdit documents output with the PostScript imagestream driver I wrote.

Matt Heffron

In the "INTERLISP" package:

(XCL:REINSTALL-ADVICE 'SCALEDBITBLT :BEFORE
 '((:LAST (CL:WHEN (IMAGESTREAMP DESTINATION)
              (CL:UNLESS DESTINATIONLEFT
                  (SETQ DESTINATIONLEFT (DSPXPOSITION NIL DESTINATION)))
              (CL:UNLESS DESTINATIONBOTTOM
                  (SETQ DESTINATIONBOTTOM (DSPYPOSITION NIL DESTINATION)))))))

(READVISE SCALEDBITBLT)