.
original commit: de72610710c8e5eda775c2b0bec13b9ed190ae0b
This commit is contained in:
parent
5608a3d5cd
commit
83248c76b6
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user