From 48bed65e17529ec703e40ccec6b2c1b03b6ba4b1 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 10 Aug 2012 13:46:53 -0500 Subject: [PATCH] pulled rectangle-intersect? out into its own file so it can be reused (in some code that I've not yet pushed) --- collects/drracket/private/module-language.rkt | 3 ++- collects/drracket/private/rectangle-intersect.rkt | 12 ++++++++++++ 2 files changed, 14 insertions(+), 1 deletion(-) create mode 100644 collects/drracket/private/rectangle-intersect.rkt diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt index dcdcadc89d..683ce10775 100644 --- a/collects/drracket/private/module-language.rkt +++ b/collects/drracket/private/module-language.rkt @@ -24,7 +24,8 @@ "drsig.rkt" "rep.rkt" "eval-helpers.rkt" - "local-member-names.rkt") + "local-member-names.rkt" + "rectangle-intersect.rkt") (define-runtime-path expanding-place.rkt "expanding-place.rkt") diff --git a/collects/drracket/private/rectangle-intersect.rkt b/collects/drracket/private/rectangle-intersect.rkt new file mode 100644 index 0000000000..ef0f318624 --- /dev/null +++ b/collects/drracket/private/rectangle-intersect.rkt @@ -0,0 +1,12 @@ +#lang racket/base +(provide rectangles-intersect?) + +(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)))