Next Welcome to my ~/bin 124

imgdiff

        my $xmin= min($size[0][0], $size[1][0]);
        my $ymin= min($size[0][1], $size[1][1]);
        for (0 .. 1) {
          next if $size[$_][0] == $xmin && $size[$_][1] == $ymin;
          run("pnmscale -xysize $xmin $ymin $pnm[$_] > $tmp");
          run("mv $tmp $pnm[$_]");
        }


Next Menu Copyright © 2005 M. J. Dominus