Image convolution: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Perl example) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: change test image) |
||
Line 1,575: | Line 1,575: | ||
my $smoothed = conv2d $image, $kernel, {Boundary => 'Truncate'}; |
my $smoothed = conv2d $image, $kernel, {Boundary => 'Truncate'}; |
||
wpic $smoothed, 'pythagoras_convolution.png';</lang> |
wpic $smoothed, 'pythagoras_convolution.png';</lang> |
||
Compare offsite images: [https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/ |
Compare offsite images: [https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/frog.png frog.png] vs. |
||
[https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/ |
[https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/frog_convolution.png frog_convolution.png] |
||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |