Hough transform: Difference between revisions
m
→{{header|Perl 6}}: Typo
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: use better pi value) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Typo) |
||
Line 707:
my $th = $dth*$k;
my $r = ($x*cos($th) + $y*sin($th));
my $iry = ($height/2 + ($r/$dr).round(1)).Int;
my $c = '#' ~ (@canvas[$iry][$k]--).base(16) x 3;
%cstore{$c} = $image.colorAllocate($c) if %cstore{$c}:!exists;
| |||