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
in reply to Re^2: Check if line is straight
in thread Check if line is straight
Update added abs()