mheffron@orion.oac.uci.edu (Matt Heffron) (03/29/90)
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)"John_D._Sybalsky.mvenvos"@XEROX.COM (03/02/94)
In Medley 1.15 & up (coming "soon"), SCALEDBITBLT passes its DESTINATIONLEFT and DESTINATIONBOTTOM arguments along to the underlying routing, rather than coercing NILs to zero. This is because the device can often do the positioning faster than it takes to do the two calls to DSPXPOSITION & DSPYPOSITION. I've changed the display code to match this (so it'll work right),, and the IP code will follow. Probably, the Postscript code should handle NILs as well? --John