#!/usr/bin/perl

for my $file (glob("*.pat")) {
    my $out = $file;
    my $size = $file =~ /bbeeffii/ ? 50 : 25;
    $size = int($size/2) if $file =~ /-sm/;
    $out =~ s/\.pat$/.png/;
    warn "$file -> $out\n";
    system("./quilt.pl --size=$size $file > $out");
}