fly/terragear
1
0
Fork 0
Code Activity

Initial revision.

Browse source
This commit is contained in:
curt 2001-05-15 02:03:19 +00:00
parent abf4e0ad08
commit edd192597b
1 changed files with 43 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
src/Prep/Photo/chop.pl Executable file
View file

@ -0,0 +1,43 @@
#!/usr/bin/perl
die "Usage: $0 file xdiv ydiv res\n" if ( $#ARGV != 3 );
$file = shift @ARGV;
$xdiv = shift @ARGV;
$ydiv = shift @ARGV;
$res = shift @ARGV;
die "Must start with a .png file\n" if ( $file !~ m/\.png$/ );
# extract image dimensions
$info = `file $file`;
$info =~ s/,//g;
($junk, $type, $junk, $junk, $width, $junk, $height, $junk)
= split(/\s+/, $info, 8);
print "$width - $height\n";
$basename = $file;
$basename =~ s/\.png$//;
# convert source image to pnm
# `pngtopnm $basename.png > $basename.pnm`
$dx = $width / $xdiv;
$dy = $height / $ydiv;
for ( $j = 0; $j < $ydiv; $j++ ) {
for ( $i = 0; $i < $xdiv; $i++ ) {
print "$i $j\n";
$x = $dx * $i;
$y = $height - $dy * ($j + 1);
$outputpnm = sprintf("$basename%X%X.pnm", $i, $j);
$outputsgi = sprintf("$basename%X%X.sgi", $i, $j);
$outputrgb = sprintf("$basename%X%X.rgb", $i, $j);
printf "pnmcut $x $y $dx $dy $basename.pnm | pnmscale -xysize $res $res > $outputpnm\n";
`pnmcut $x $y $dx $dy $basename.pnm | pnmscale -xysize $res $res > $outputpnm`;
`convert $outputpnm $outputsgi`;
unlink($outputpnm);
rename($outputsgi, $outputrgb);
}
}