From: Gerald Jay Sussman <edu/mit/gjs>
Date: Tue, 12 Jan 1993 21:30:52 +0000 (+0000)
Subject: Fix bugs in consistent assignment of coordinate limits.
X-Git-Tag: 20090517-FFI~8595
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0a8b59774d07e1bff533d8e27df561484ab5041c;p=mit-scheme.git

Fix bugs in consistent assignment of coordinate limits.
---

diff --git a/v7/src/6001/picture.scm b/v7/src/6001/picture.scm
index 9ff10e49b..ab1e3620c 100644
--- a/v7/src/6001/picture.scm
+++ b/v7/src/6001/picture.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/picture.scm,v 1.17 1992/09/02 03:18:45 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/picture.scm,v 1.18 1993/01/12 21:30:52 gjs Exp $
 
 Copyright (c) 1991-92 Massachusetts Institute of Technology
 
@@ -79,7 +79,7 @@ MIT in each case. |#
 			       false
 			       (x-geometry-string x y width height)
 			       true)))
-    (graphics-set-coordinate-limits window 0 (- height) width 0)
+    (graphics-set-coordinate-limits window 0 (- (- height 1)) (- width 1) 0)
     ;; Prevent this window from receiving the keyboard focus.
     (x-graphics/disable-keyboard-focus window)
     ;; Inform the window manager that this window does not do any
@@ -252,7 +252,7 @@ MIT in each case. |#
 	(graphics-device-coordinate-limits window))
     (lambda (x1 y1 x2 y2)
       (set! *last-picture-displayed* pic)
-      (graphics-set-coordinate-limits window 0 (- y1 y2) (- x2 x1) 0)
+      (graphics-set-coordinate-limits window 0 (- y2 y1) (- x2 x1) 0)
       (let* ((win-wid (fix:+ 1 (fix:- x2 x1)))
 	     (win-hgt (fix:+ 1 (fix:- y1 y2)))
 	     (len&margin (integer-divide win-wid (picture-width pic)))