in reply to Re^2: Check if line is straight
in thread Check if line is straight

return abs(($x2-$x1)*($y-$y1)-($x-$x1)*($y2-$y1)) < $tolerance;

Update added abs()

In Section Seekers of Perl Wisdom