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