|
|
|
| Pathologically Eclectic Rubbish Lister | |
| PerlMonks |
Re^3: Check if line is straightby lidden (Curate) |
| on May 16, 2011 at 23:13 UTC ( [id://905169]=note: print w/replies, xml ) | Need Help?? |
|
return abs(($x2-$x1)*($y-$y1)-($x-$x1)*($y2-$y1)) < $tolerance; Update added abs()
In Section
Seekers of Perl Wisdom
|
|
||||||||||||||||||||||