use strict;
use warnings;
use utf8;
use 5.010;
use Image::Magick;

foreach my $image_path (@ARGV) {
    my ($image, $result) = (Image::Magick->new);
    print "Somwthing wrong with $image_path.n"and next if $image->Read($image_path);
    my ($convert, $width, $height) = (Image::Magick->new, $image->Get('columns') * 2, $image->Get('rows') * 2);
    $convert->Set(size=> $width."x".$height);
    $convert->ReadImage('canvas:white');
    # A new image instance whose size is 4 times as large as original one's
    for (my $x = 0; $x < $width / 2; $x++) {
        for (my $y = 0; $y < $height / 2; $y++) {
            my (@orig_pixels) = $image->GetPixel(x=>$x,y=>$y);
            # original pixels array, in R,G,B order
            my (@repl_pixels_R,@repl_pixels_G,@repl_pixels_B,@repl_pixels__);
            @repl_pixels_R = ($orig_pixels[0], 0, 0);
            @repl_pixels_G = (0, $orig_pixels[1], 0);
            @repl_pixels_B = (0, 0, $orig_pixels[2]);
@repl_pixels__ = (0, 0, 0);
            $convert->SetPixel(x=>$x*2,  y=>$y*2,  color=>@repl_pixels_R);
            $convert->SetPixel(x=>$x*2-1,y=>$y*2,  color=>@repl_pixels_G);
            $convert->SetPixel(x=>$x*2,  y=>$y*2-1,color=>@repl_pixels_B);
            $convert->SetPixel(x=>$x*2-1,y=>$y*2-1,color=>@repl_pixels__);
            # R G
            # B _
    }
}
    $convert->Write(filename=>$image_path.".CRT.png", compression=>'None');
    # save file
}