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

use the real rectangles-intersect? predicate, not a broken one

Browse Source
This commit is contained in:
Robby Findler 2012-11-10 07:50:06 -06:00
parent 59d378ce1e
commit 867f2d3a43
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/drracket/private/module-language.rkt
View File

@ -1889,16 +1889,6 @@
(send dc set-font defs/ints-font)))))
(super-new)))
(define (rectangles-intersect? l1 t1 r1 b1 l2 t2 r2 b2)
(or (point-in-rectangle? l1 t1 l2 t2 r2 b2)
(point-in-rectangle? r1 t1 l2 t2 r2 b2)
(point-in-rectangle? l1 b1 l2 t2 r2 b2)
(point-in-rectangle? r1 b1 l2 t2 r2 b2)))
(define (point-in-rectangle? x y l t r b)
(and (<= l x r)
(<= t y b)))
(define bx (box 0))
(define by (box 0))
(define bw (box 0))