Legacy ImageMagick Discussions Archive

Code: Select all

exiftool -trailer:all= input.mpo -o R.jpg
exiftool input.mpo -mpimage2 -b > L.jpg

Code: Select all

composite -stereo L.jpg R.jpg stereo.jpg

Code: Select all

#!/usr/bin/perl -w
# Version 2013-10-11 by Gan Uesli Starling
# A program to separate MPO files into cross-eye stereo pairs.
# Requires both ExifTool and ImageMagick to be installed in system.
# Offered without warrantee or guarantee of any kind whatsoever. Use at own risk.

# Get a list of all *.MPO files, then split & rejoin each one.
sub parse_files {
    my ($dir, $re_hunt, $geometry) = @_;
    my @file_list = hunt_files($dir, $re_hunt);
    for my $mpo (@file_list) {
        for ( "R.jpg", "L.jpg") {unlink $_};
        my $stereo = 'X_' . $mpo;
        $stereo =~ s{\.(mpo|MPO)$}{.jpg};
        print "Splitting $mpo\n";
        system("exiftool -trailer:all= $mpo -o ./R.jpg");
        system("exiftool $mpo -mpimage2 -b > ./L.jpg");
        system("montage -tile 2x0 -geometry $geometry R.jpg L.jpg $stereo");
        #last;
    }
}

# Return a lists of files from path that match a RegEx.
sub hunt_files {
    my ($path, $re) = @_;
    my @list;
    opendir ( my $dh, $path ) || die "Error in opening dir $path\n";
    while( (my $file = readdir( $dh ))){
         push @list, $file if $file =~ m/$re/;
    }
    closedir($dh);
    return @list;
}

parse_files('./', '^.*.(mpo|MPO)$', '3584x2016');

print "All done!\n";

sleep 5;