Select Code to Download

my @clips = (
    { cx => $X * 0.500, cy => $Y * 0.4,   rx2 => ( $X * 0.295 )**2, ry
+2 => ( $Y * 0.40 )**2 },
...
    { cx => $X * 0.428, cy => $Y * 0.748, rx2 => ( $X * 0.067 )**2, ry
+2 => ( $Y * 0.038)**2 },
    ...
};

sub clip {
    my( $x, $y ) = @_;
...
    ...
    return 0;
}