Hough transform: Difference between revisions

Content added Content deleted
(Added Wren)
m (→‎{{header|Raku}}: Work around concurrency problems in recent Raku)
Line 883: Line 883:
my $y = floor $pixel / $xsize;
my $y = floor $pixel / $xsize;


(0..^$width).race.map: -> $k {
(^$width).map: -> $k {
my $th = $dth*$k;
my $th = $dth*$k;
my $r = ($x*cos($th) + $y*sin($th));
my $r = ($x*cos($th) + $y*sin($th));