my $rx = $bxScaled[$x];
            my $ry = $byScaled[$y];