Re: Detecting control placement constraints in dialog resources - rectangle overlap checking

[shotgunefx]

You want to double check my work here (though some use of rand() and Tk could make quick work of testing visually). I'm assuming X1 < X2 , Y1 < Y2

my @box = (
    { name => "Box 1", x1 => 0,   y1 => 0,   x2 => 320, y2 => 100 },
    { name => "Box 2", x1 => 100, y1 => 10,  x2 => 510, y2 => 500 },
    { name => "Box 3", x1 => 20,  y1 => 300, x2 => 120, y2 => 600 },
    { name => "Box 4", x1 => 300, y1 => 301, x2 => 310, y2 => 600 },
);


sub bounding_box {
    my @box = sort { $a->{x1} <=> $b->{x1} } @_;    # Sort on X axis
    for ( my $i = 0 ; $i < $#box ; $i++ ) {
        for ( my $j = $i + 1 ; $j < @box ; $j++ ) {
            warn "Checking $box[$i]->{name} against $box[$j]->{name}\n
+";
            if ( $box[$i]->{x2} > $box[$j]->{x1} ) {
                if ( $box[$i]->{y2} > $box[$j]->{y1}
                    && $box[$i]->{y1} < $box[$j]->{y2} )
                {
                    warn " $box[$i]->{name} overlaps $box[$j]->{name}\
+n";
                   # Do something here
                }
                else {
                    warn
                      " $box[$i]->{name} doesn't overlap $box[$j]->{na
+me}\n";
                }
            }
            else {
                last;
            }
        }

    }
}

update My spaceship <=> was half missing. Whoops.