sub clip {
    my( $x, $y ) = @_;
    return 1 if ( $x - $clips[0]{cx} )**2 / $clips[0]{rx2} + ( $y - $clips[0]{cy} )**2 / $clips[0]{ry2} < 1;
    return 1 if ( $x - $clips[1]{cx} )**2 / $clips[1]{rx2} + ( $y - $clips[1]{cy} )**2 / $clips[1]{ry2} < 1;
    return 1 if ( $x - $clips[2]{cx} )**2 / $clips[2]{rx2} + ( $y - $clips[2]{cy} )**2 / $clips[2]{ry2} < 1;
    ...
    return 0;
}