suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

..

Browse Source 
original commit: fe015405d5606a6a13ce2496d641ac3d952f0361
This commit is contained in:
Robby Findler 2002-09-22 19:53:00 +00:00
parent b099611dcf
commit ff75fd6caf
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mrlib/graph.ss
View File

@ -362,14 +362,10 @@
[x2 (+ xt (/ wt 2))]
[y2 (+ yt (/ ht 2))])
(unless (or (and (x1 . <= . left)
(x2 . <= . left))
(and (x1 . >= . right)
(x2 . >= . right))
(and (y1 . <= . top)
(y2 . <= . top))
(and (y1 . >= . bottom)
(y2 . >= . bottom)))
(when (or (and (<= left x1 right)
(<= top y1 bottom))
(and (<= left x2 right)
(<= top y2 bottom)))
(let-values ([(from-x from-y)
(or-2v (find-intersection x1 y1 x2 y2