arch/dev/split-png-linux.pl

#!/usr/bin/perl

# File by mwedel@scruz.net to deal with splitting png's.
# Takes any number of files on the command line, but all the split images
# are dumped in the current directory.
# does preserve alpha channel.  Tested on skree images.

# Modification by PeterM
# Notes:  I don't really know how this script was supposed to work
# I use it like this:
# > mkdir out           (makes an output directory so I don't clobber my input)
# > split-png-linux.pl file.111.png
#
#  The results end up in the directory "out"

$PNGSIZE=32;

for ($i=0; $i <= $#ARGV; $i++) {
    @name = split(m#/#, $ARGV[$i]);
    $source = $name[$#name];
    $#name--;
    $destdir=join(m#/#, @name);
    
    if ($source =~ /([\w-]+)\.(\d)(\d)(\d)\.png/ ) {
        $base = $1;
        $facing = $3;
        $animation = $4;
    } else {
        print STDERR "filename $source does not follow proper naming conventions - don't know how to name files - skipping\n";
        next;
    }

    if (!open(DESC,"pngtopnm $ARGV[$i] | pnmfile |")) {
        print STDERR "Could not run pngtopnm $source | pnmfile\n";
        next;
    }
    $desc = <DESC>;
    close(DESC);
    $desc =~ /(\d+) by (\d+)/;
    if ($1 == 0 || $2 == 0) {
        print STDERR "File $ARGV[$i] - file not described properly\n";
        next;
    }
    if (($1 % 32) || ($2 % 32)) {
        print STDERR "File $ARGV[$i] not an increment of 32x32 size - size is $1x$2\n";
        next;
    }
    $destx = $1/32;
    $desty = $2/32;
    print "File $ARGV[$i] will be split into $destx X $desty pieces\n";

    $piece = 0;
    # The order of the for loops of x and y seem non intuitive, but believe
    # me, this does left to right, top to bottom (ie, as you read and
    # english language book) in terms of part numbering.

    for ($y=0; $y < $desty; $y++) {
        for ($x=0; $x < $destx; $x++) {
            $piece ++;
            # Deal with naming convention.  piece 10 should be A, A ascii
            # code starts at 65.
            if ($piece > 9 ) {
                if($piece > 9 + 26) {
                  $np = chr( $piece + 55  + 6 )
                } else {
  
                $np = chr($piece + 55);
                }
            } else {
                $np = $piece;
            }
            $cutx = $x * 32;
            $cuty = $y * 32;
            system("pngtopnm -alpha $ARGV[$i] | pnmcut $cutx $cuty 32  32 > /tmp/alpha.$$");
            system("pngtopnm $ARGV[$i] | pnmcut $cutx $cuty  32  32 > /tmp/png.$$");
            system("pnmtopng -alpha /tmp/alpha.$$ /tmp/png.$$ > out/$base.$np$facing$animation.png");
        }
    }
    # do a little cleanup 
    unlink("/tmp/alpha.$$");
    unlink("/tmp/png.$$");
}

#           system("pngtopnm -alpha $ARGV[$i] | pnmcut -left $cutx -top $cuty -width 32 -height 32 > /tmp/alpha.$$");
#           system("pngtopnm $ARGV[$i] | pnmcut -left $cutx -top $cuty -width 32 -height 32 > /tmp/png.$$");
Revision:	1.1.1.1 (vendor branch)
Committed:	Mon Feb 6 20:26:07 2006 UTC (20 years, 8 months ago) by root
Content type:	text/plain
Branch:	UPSTREAM, MAIN
CVS Tags:	pre_first_cfarch_normalize_run, pre_second_normalise_run, post_second_normalise_run, post_normalise_revert, rel-2_82, rel-2_81, rel-2_80, UPSTREAM_2006_03_15, rel-3_0, rel-2_6, rel-2_7, rel-2_4, rel-2_5, rel-2_2, rel-2_0, rel-2_1, rel-2_72, rel-2_73, rel-2_71, rel-2_76, rel-2_77, rel-2_74, rel-2_75, rel-2_54, rel-2_55, rel-2_56, rel-2_79, UPSTREAM_2006_02_01, rel-2_53, rel-2_32, post_first_cfarch_normalize_run, UPSTREAM_2006_02_22, rel-2_90, rel-2_92, rel-2_93, rel-2_78, rel-2_61, pre_normalise_revert, rel-2_43, rel-2_42, rel-2_41, HEAD
Changes since 1.1:	+0 -0 lines
Log Message:	Initial Import
#	User	Rev	Content
1	root	1.1	#!/usr/bin/perl
2
3			# File by mwedel@scruz.net to deal with splitting png's.
4			# Takes any number of files on the command line, but all the split images
5			# are dumped in the current directory.
6			# does preserve alpha channel. Tested on skree images.
7
8			# Modification by PeterM
9			# Notes: I don't really know how this script was supposed to work
10			# I use it like this:
11			# > mkdir out (makes an output directory so I don't clobber my input)
12			# > split-png-linux.pl file.111.png
13			#
14			# The results end up in the directory "out"
15
16			$PNGSIZE=32;
17
18			for ($i=0; $i <= $#ARGV; $i++) {
19			@name = split(m#/#, $ARGV[$i]);
20			$source = $name[$#name];
21			$#name--;
22			$destdir=join(m#/#, @name);
23
24			if ($source =~ /([\w-]+)\.(\d)(\d)(\d)\.png/ ) {
25			$base = $1;
26			$facing = $3;
27			$animation = $4;
28			} else {
29			print STDERR "filename $source does not follow proper naming conventions - don't know how to name files - skipping\n";
30			next;
31			}
32
33			if (!open(DESC,"pngtopnm $ARGV[$i] \| pnmfile \|")) {
34			print STDERR "Could not run pngtopnm $source \| pnmfile\n";
35			next;
36			}
37			$desc = <DESC>;
38			close(DESC);
39			$desc =~ /(\d+) by (\d+)/;
40			if ($1 == 0 \|\| $2 == 0) {
41			print STDERR "File $ARGV[$i] - file not described properly\n";
42			next;
43			}
44			if (($1 % 32) \|\| ($2 % 32)) {
45			print STDERR "File $ARGV[$i] not an increment of 32x32 size - size is $1x$2\n";
46			next;
47			}
48			$destx = $1/32;
49			$desty = $2/32;
50			print "File $ARGV[$i] will be split into $destx X $desty pieces\n";
51
52			$piece = 0;
53			# The order of the for loops of x and y seem non intuitive, but believe
54			# me, this does left to right, top to bottom (ie, as you read and
55			# english language book) in terms of part numbering.
56
57			for ($y=0; $y < $desty; $y++) {
58			for ($x=0; $x < $destx; $x++) {
59			$piece ++;
60			# Deal with naming convention. piece 10 should be A, A ascii
61			# code starts at 65.
62			if ($piece > 9 ) {
63			if($piece > 9 + 26) {
64			$np = chr( $piece + 55 + 6 )
65			} else {
66
67			$np = chr($piece + 55);
68			}
69			} else {
70			$np = $piece;
71			}
72			$cutx = $x * 32;
73			$cuty = $y * 32;
74			system("pngtopnm -alpha $ARGV[$i] \| pnmcut $cutx $cuty 32 32 > /tmp/alpha.$$");
75			system("pngtopnm $ARGV[$i] \| pnmcut $cutx $cuty 32 32 > /tmp/png.$$");
76			system("pnmtopng -alpha /tmp/alpha.$$ /tmp/png.$$ > out/$base.$np$facing$animation.png");
77			}
78			}
79			# do a little cleanup
80			unlink("/tmp/alpha.$$");
81			unlink("/tmp/png.$$");
82			}
83
84			# system("pngtopnm -alpha $ARGV[$i] \| pnmcut -left $cutx -top $cuty -width 32 -height 32 > /tmp/alpha.$$");
85			# system("pngtopnm $ARGV[$i] \| pnmcut -left $cutx -top $cuty -width 32 -height 32 > /tmp/png.$$");