From 867f2d3a436319a2b3b1d59daf209fdc4a1ee8d6 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 10 Nov 2012 07:50:06 -0600 Subject: [PATCH] use the real rectangles-intersect? predicate, not a broken one --- collects/drracket/private/module-language.rkt | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt index 7ce9dbc8ba..a31d2f2df6 100644 --- a/collects/drracket/private/module-language.rkt +++ b/collects/drracket/private/module-language.rkt @@ -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))