..
original commit: 3d20ba3b0e84a04af574936076828a3dd6c2f9ec
This commit is contained in:
parent
f68e0462e9
commit
114a5b6aab
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user