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

..

Browse Source 
original commit: 58832527a69d292f0c8754aee67259de476ab879
This commit is contained in:
Robby Findler 2002-09-19 14:58:14 +00:00
parent 1bf454ad07
commit 1fd6f4ba40
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mrlib/graph.ss
View File

@ -357,10 +357,10 @@
[(xt yt wt ht) (get-position to)]
[(lf tf rf bf) (values xf yf (+ xf wf) (+ yf hf))]
[(lt tt rt bt) (values xt yt (+ xt wt) (+ yt ht))])
(let ([x1 (+ xf (quotient wf 2))]
[y1 (+ yf (quotient hf 2))]
[x2 (+ xt (quotient wt 2))]
[y2 (+ yt (quotient ht 2))])
(let ([x1 (+ xf (/ wf 2))]
[y1 (+ yf (/ hf 2))]
[x2 (+ xt (/ wt 2))]
[y2 (+ yt (/ ht 2))])
(unless (or (and (x1 . <= . left)
(x2 . <= . left))