original commit: 3d20ba3b0e84a04af574936076828a3dd6c2f9ec
This commit is contained in:
Robby Findler 2002-09-14 14:04:44 +00:00
parent f68e0462e9
commit 114a5b6aab

View File

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