Median filter: Difference between revisions
no edit summary
No edit summary |
|||
Line 747:
else (color_div (color_add sample.(mid)
sample.(mid+1)) 2)</lang>
=={{header|Perl 6}}==
<lang perl6># Reference: https://github.com/azawawi/perl6-magickwand
# WIP by module author
#!/usr/bin/env perl6
use v6;
use MagickWand;
# A new magic wand
my $original = MagickWand.new;
# Read an image
$original.read("image/example.jpg");
# apply median filter
say "Median Filter...";
my $o = $original.clone;
$o.median-filter;
$o.label("Median Filter");
# And then write a new image
$o.write("output.png");
# And cleanup on exit
LEAVE {
$original.cleanup if $original.defined;
$o.cleanup if $o.defined;
}</lang>
=={{header|Phix}}==
| |||