Hough transform: Difference between revisions

m
→‎{{header|Perl 6}}: added .race for concurrency
m (→‎{{header|Perl 6}}: Add a link to an output image)
m (→‎{{header|Perl 6}}: added .race for concurrency)
Line 704:
my $y = floor $pixel / $xsize;
 
for (0..^$width).race.map: -> $k {
my $th = $dth*$k;
my $r = ($x*cos($th) + $y*sin($th));
2,392

edits