🚀 go-pugleaf

It seems that the code for SCALEDBITBLT does the wrong thing if the
DESTINATIONLEFT and/or DESTINATIONBOTTOM parameters are NIL.  It uses
zero (0) as the value(s) when it should use the current X and Y position of
the stream (0 is the correct default when the destination is a bitmap).
The patchfile below advises SCALEDBITBLT to correct this.

-Matt Heffron		BEC.HEFFRON@ECLA.USC.EDU

(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "10-Jul-89 11:40:35" {DSK}<LISPFILES2>PATCHES>SBBPATCH.\;1 1335

      |changes| |to:|  (ADVICE SCALEDBITBLT)
                       (VARS SBBPATCHCOMS)

      |previous| |date:| "10-Jul-89 11:38:42" {DSK}<LISPFILES>MATT>SBBPATCH.\;1)


; Copyright (c) 1989 by Beckman Instruments, Inc.  All rights reserved.

(PRETTYCOMPRINT SBBPATCHCOMS)

(RPAQQ SBBPATCHCOMS ((ADVISE SCALEDBITBLT)))

(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)
(PUTPROPS SBBPATCH COPYRIGHT ("Beckman Instruments, Inc" 1989))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL)))
STOP

-------