Hough transform: Difference between revisions
m
→{{header|Perl 6}}: added .race for concurrency
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Add a link to an output image) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: added .race for concurrency) |
||
Line 704:
my $y = floor $pixel / $xsize;
my $th = $dth*$k;
my $r = ($x*cos($th) + $y*sin($th));
|