Select Code to Download

my @slope = (($ne[1]-$nw[1])/($ne[0]-$nw[0]),
             ($se[1]-$sw[1])/($se[0]-$sw[0]),
...
          and $find[0]*$slope[1]+$start[1]<=$find[1]
          and $find[1]*$slope[2]+$start[2]>=$find[0]
          and $find[1]*$slope[3]+$start[3]<=$find[0];