From ff75fd6caffc51f45a09b7c28fc7fe1eb8e4efeb Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 22 Sep 2002 19:53:00 +0000 Subject: [PATCH] .. original commit: fe015405d5606a6a13ce2496d641ac3d952f0361 --- collects/mrlib/graph.ss | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/collects/mrlib/graph.ss b/collects/mrlib/graph.ss index 6fa63329..28c1aca7 100644 --- a/collects/mrlib/graph.ss +++ b/collects/mrlib/graph.ss @@ -362,14 +362,10 @@ [x2 (+ xt (/ wt 2))] [y2 (+ yt (/ ht 2))]) - (unless (or (and (x1 . <= . left) - (x2 . <= . left)) - (and (x1 . >= . right) - (x2 . >= . right)) - (and (y1 . <= . top) - (y2 . <= . top)) - (and (y1 . >= . bottom) - (y2 . >= . bottom))) + (when (or (and (<= left x1 right) + (<= top y1 bottom)) + (and (<= left x2 right) + (<= top y2 bottom))) (let-values ([(from-x from-y) (or-2v (find-intersection x1 y1 x2 y2