From 83248c76b67848df219f1165409db6e104aaeaa4 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 20 Oct 2004 20:11:35 +0000 Subject: [PATCH] . original commit: de72610710c8e5eda775c2b0bec13b9ed190ae0b --- collects/mrlib/graph.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/mrlib/graph.ss b/collects/mrlib/graph.ss index 519869f0..a857891a 100644 --- a/collects/mrlib/graph.ss +++ b/collects/mrlib/graph.ss @@ -407,7 +407,6 @@ (not (strict-in-rectangle? point-x point-y (min lt rt) (min 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))))) @@ -462,9 +461,9 @@ (cond [(and (from-x . = . to-x) (from-y . < . to-y)) - pi] + (* pi 3/2)] [(from-x . = . to-x) - (- pi)] + (* pi 1/2)] [(from-x . < . to-x) (+ pi (atan (/ (- from-y to-y) (- from-x to-x))))] [else