#!/bin/sh
#! -*- perl -*-
eval 'exec $PERLLOCATION/bin/perl -x $0 ${1+"$@"} ;'
 if 0;

$txDir = "/productionName/textures";
opendir(CURRDIR, ".") or die "Cannot open current directory: $!";
foreach my $file (readdir(CURRDIR)) {
	my($basename, $frame) = $file =~ /([^\/]*)\.(\d+)\.tif$/;
	next if ($& eq '');		# skip if file didn't match
	my $newName = $txDir . "/" . $basename . '.' . $frame . '.tx';

	system 'txmake', $file, $newName;
}
closedir CURRDIR;