Family Day update

Task/Image-convolution/Perl-6/image-convolution-1.pl6

@@ -0,0 +1,8 @@
+use PDL:from<Perl5>;
+use PDL::Image2D:from<Perl5>;
+
+my $kernel = pdl [[-2, -1, 0],[-1, 1, 1], [0, 1, 2]]; # emboss
+
+my $image = rpic 'frog.png';
+my $smoothed = conv2d $image, $kernel, {Boundary => 'Truncate'};
+wpic $smoothed, 'frog_convolution.png';

Task/Image-convolution/Perl-6/image-convolution-2.pl6

@@ -1,5 +1,4 @@
-#!/usr/bin/env perl6
-
+# Note: must install version from github NOT version from CPAN which needs to be updated.
 # Reference:
 # https://github.com/azawawi/perl6-magickwand
 # http://www.imagemagick.org/Usage/convolve/

Task/Image-convolution/Perl/image-convolution.pl

@@ -0,0 +1,11 @@
+use strict;
+use warnings;
+
+use PDL;
+use PDL::Image2D;
+
+my $kernel = pdl [[-2, -1, 0],[-1, 1, 1], [0, 1, 2]]; # emboss
+
+my $image = rpic 'pythagoras_tree.png';
+my $smoothed = conv2d $image, $kernel, {Boundary => 'Truncate'};
+wpic $smoothed, 'pythagoras_convolution.png';