original commit: de72610710c8e5eda775c2b0bec13b9ed190ae0b
This commit is contained in:
Robby Findler 2004-10-20 20:11:35 +00:00
parent 5608a3d5cd
commit 83248c76b6

View File

@ -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