Hough transform: Difference between revisions
m
→{{header|Perl}}: use better pi value
SqrtNegInf (talk | contribs) (Added Perl 6 example) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: use better pi value) |
||
Line 634:
{{trans|Sidef}}
<lang perl>use Imager;
use constant pi => 3.14159265;
sub hough {
Line 651 ⟶ 653:
$rmax = sqrt($xsize**2 + $ysize**2);
$dr = 2 * $rmax / $height;
$dth =
for $x (0..$xsize-1) {
|