From 0a8b59774d07e1bff533d8e27df561484ab5041c Mon Sep 17 00:00:00 2001 From: Gerald Jay Sussman Date: Tue, 12 Jan 1993 21:30:52 +0000 Subject: [PATCH] Fix bugs in consistent assignment of coordinate limits. --- v7/src/6001/picture.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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))) -- 2.25.1