🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.sys.xerox
Article #154

SCALEDBITBLT bug/patch

#154
From: Matt Heffron
Date: Wed, 28 Mar 1990 20:53
18 lines
1139 bytes
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)
Technical Details
Message-ID: <26112456.19762@orion.oac.uci.edu>
Path: arc1-ca.pugleaf.net!utzoo!attcan!uunet!cs.utexas.edu!usc!orion.oac.uci.edu!mheffron

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!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