From 114a5b6aab88e5e8818ebbd518d4d98b87c54524 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 14 Sep 2002 14:04:44 +0000 Subject: [PATCH] .. original commit: 3d20ba3b0e84a04af574936076828a3dd6c2f9ec --- collects/mrlib/graph.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/mrlib/graph.ss b/collects/mrlib/graph.ss index 736a78dd..d1a16ee8 100644 --- a/collects/mrlib/graph.ss +++ b/collects/mrlib/graph.ss @@ -396,10 +396,11 @@ (max lt rt lf rf) (max tt bt tf bf)) (not (strict-in-rectangle? point-x point-y (min lt rt) (min tt bt) - (max lt rt) (max tt bt)) + (max lt rt) (max tt bt))) + (not (strict-in-rectangle? point-x point-y (min lf rf) (min tf bf) - (max lf rf) (max tf bf)))))) + (max lf rf) (max tf bf))))) (update-polygon from-x from-y to-x to-y) (cond [(or (in-rectangle? from-x from-y lt tt rt bt)