From e29cb11d2e5a7873e5b2e0d92e3cb9d15ab3279d Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Wed, 10 Nov 1993 21:38:05 +0000 Subject: [PATCH] Fixed image drawing operations to be at transformed coords, not native coords. Sizes and image coords are still native because we dont want to have to scale the image (bitmap) --- v7/src/win32/graphics.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/v7/src/win32/graphics.scm b/v7/src/win32/graphics.scm index 5676a4dfe..efd1de117 100644 --- a/v7/src/win32/graphics.scm +++ b/v7/src/win32/graphics.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/win32/graphics.scm,v 1.1 1993/09/20 01:13:04 adams Exp $ +$Id: graphics.scm,v 1.2 1993/11/10 21:38:05 adams Exp $ Copyright (c) 1993 Massachusetts Institute of Technology @@ -784,14 +784,17 @@ MIT in each case. |# ;(display ";Special full window image/draw\n") (set-win32-device/bitmap! window bm) (delete-object (select-object hdc bm))) - (dib-blt hdc x y w h dib 0 0 SRCCOPY)) +;; (dib-blt hdc x y w h dib 0 0 SRCCOPY)) + (dib-blt hdc (win32-xform-x window x) (win32-xform-y window y) w h + dib 0 0 SRCCOPY)) (win32-device/invalidate! window))) (define (dib-image/draw-subimage device x y image im-x im-y w h) (let* ((dib (image/descriptor image)) (window (graphics-device/descriptor device)) (hdc (win32-device/hdc window))) - (dib-blt hdc x y w h dib im-x im-y SRCCOPY) + (dib-blt hdc (win32-xform-x window x) (win32-xform-y window y) w h + dib im-x im-y SRCCOPY) (win32-device/invalidate! window))) (define (dib-image/fill-from-byte-vector image byte-vector) -- 2.25.1