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