#!/sw/bin/perl

@CUT = (
    #   Zeile 1
    [ qw(page.tga            100x80+0+0     page-border-1.jpg)     ],
    [ qw(page.tga            20x80+100+0    page-border-2.jpg)     ],
    [ qw(page.tga            80x80+120+0    page-border-3.jpg)     ],
    [ qw(page.tga            500x80+200+0   page-border-4.jpg)     ],
    #   Zeile 2
    [ qw(page.tga            100x20+0+80    page-border-5.jpg)     ],
    [ qw(page.tga            20x20+100+80   page-border-6.jpg)     ],
    [ qw(page.tga            80x20+120+80   page-border-7.jpg)     ],
    #   Zeile 3
    [ qw(page.tga            100x11+0+100   page-border-8.jpg)     ],
    [ qw(page.tga            100x150+0+354  page-border-9.jpg)     ],
    #   Titelzeile
    [ qw(page-ti.tga         500x80+200+0   page-title-ti.jpg)     ],
    [ qw(page-ab.tga         500x80+200+0   page-title-ab.jpg)     ],
    [ qw(page-ne.tga         500x80+200+0   page-title-ne.jpg)     ],
    [ qw(page-do.tga         500x80+200+0   page-title-do.jpg)     ],
    [ qw(page-ex.tga         500x80+200+0   page-title-ex.jpg)     ],
    [ qw(page-so.tga         500x80+200+0   page-title-so.jpg)     ],
    [ qw(page-co.tga         500x80+200+0   page-title-co.jpg)     ],
    [ qw(page-su.tga         500x80+200+0   page-title-su.jpg)     ],
    [ qw(page-re.tga         500x80+200+0   page-title-re.jpg)     ],
    #   Navigationsleiste (normal)
    [ qw(page.tga            100x27+0+111   page-navbar-ti-n.jpg)  ],
    [ qw(page.tga            100x27+0+138   page-navbar-ab-n.jpg)  ],
    [ qw(page.tga            100x27+0+165   page-navbar-ne-n.jpg)  ],
    [ qw(page.tga            100x27+0+192   page-navbar-do-n.jpg)  ],
    [ qw(page.tga            100x27+0+219   page-navbar-ex-n.jpg)  ],
    [ qw(page.tga            100x27+0+246   page-navbar-so-n.jpg)  ],
    [ qw(page.tga            100x27+0+273   page-navbar-co-n.jpg)  ],
    [ qw(page.tga            100x27+0+300   page-navbar-su-n.jpg)  ],
    [ qw(page.tga            100x27+0+327   page-navbar-re-n.jpg)  ],
    #   Navigationsleiste (selected)
    [ qw(page-ti.tga         100x27+0+111   page-navbar-ti-s.jpg)  ],
    [ qw(page-ab.tga         100x27+0+138   page-navbar-ab-s.jpg)  ],
    [ qw(page-ne.tga         100x27+0+165   page-navbar-ne-s.jpg)  ],
    [ qw(page-do.tga         100x27+0+192   page-navbar-do-s.jpg)  ],
    [ qw(page-ex.tga         100x27+0+219   page-navbar-ex-s.jpg)  ],
    [ qw(page-so.tga         100x27+0+246   page-navbar-so-s.jpg)  ],
    [ qw(page-co.tga         100x27+0+273   page-navbar-co-s.jpg)  ],
    [ qw(page-su.tga         100x27+0+300   page-navbar-su-s.jpg)  ],
    [ qw(page-re.tga         100x27+0+327   page-navbar-re-s.jpg)  ],
);

sub mysystem {
	my ($cmd) = @_;
	print STDERR "\$ $cmd\n";
	system($cmd);
}
foreach $c (@CUT) {
	my ($f, $g, $t) = @{$c};
	print "$f|$g -> $t\n";
    mysystem "cp $f tmp.tga";
    mysystem "mogrify -crop $g tmp.tga";
    mysystem "convert -quality 75 tmp.tga $t";
    mysystem "rm -f tmp.tga";
}