Code: Select all
#!/usr/bin/perl -0777
use open IO=> ':raw';
$opaque= pack "C", 255;
sub addalpha {
return pack '(a4)*', map {$_.$opaque} unpack '(a3)*', shift;
}
while (<>) {
unless (($base= $ARGV) =~s/\.TEX$//i) {
warn "$ARGV has an unrecognized file extension\n";
next;
}
($version, $texType, $W, $H, $x, $mipLevels, $x, $x)= unpack "I*", substr $_, 0, 32;
if (3 != $version) {
if (2 != $version) {
if (6 != $version) {
if (13 != $version) {
warn "$ARGV is not a TEX file\n";
next;
}
}
}
}
#$W=$W+$W;
#$H=$H/2;
warn "version $version\n";
warn "texType $texType\n";
warn "$W x $H\n";
warn "mip levels $mipLevels\n";
$suffix= "";
@shift= 0 .. $mipLevels;
@W= map {$W >> $_} (@shift,@shift); # doubled for offsets into texType 2 with miplevels
@H= map {$H >> $_} (@shift,@shift);
$pixW= $texType == 3 ?4 :1;
@off= ($sum= 0);
for (0..$#W) {
push @off, $sum+= $W[$_]*$pixW*$H[$_];
}
for $mip (0 .. 0) {
# for $mip (0 .. $mipLevels) { # We're only interested in the largest version of the texture
$W= $W[$mip];
$H= $H[$mip];
if ($mip) {
$suffix= -$mip;
}
$out= "$base$suffix.bmp";
# likely BMP values
$offset= 54;
$size= $offset + $W*$H*4;
$ID2= 40;
$planes= 1;
$bpp= 32;
$compression= 0;
$SizeImage= $W*$H;
$XPPM= 2834;
$YPPM= 2834;
$ColorsUsed= 0;
$ColorsImportant= 0;
$colormap= "";
# override some of these on a per-tex-type basis
if (1 == $texType || 2 == $texType) {
@color= @col= unpack "C*", substr $_, 32, 256*3;
if (2 == $version) {
@color= @col= unpack "C*", substr $_, 24, 256*3;
}
for $n (0..255) {
# bmp colors are BGR instead of RGB
for $m (0..2) {
$color[($n*3)+$m]= $col[($n*3)+2-$m];
}
}
if (1 == $texType) {
$offset= 54 + 256*4; # 256 color palette
$size= $offset+$W*$H;
$bpp= 8;
$ColorsUsed= 256;
$ColorsImportant= 256;
$colormap= addalpha pack 'C*', @color;
$texture= pack "(a$W)*", reverse unpack "(a$W)*", substr $_, 800+$off[$mip], $W*$H;
} else {
$wh= $W*$H;
my @image= unpack "C*", pack "(a$W)*", reverse unpack "(a$W)*", substr $_, 800+$off[$mip], $wh;
my @opacity= unpack "(a1)*", pack "(a$W)*", reverse unpack "(a$W)*", substr $_, 800+$off[$mip+1+$mipLevels], $wh;
my @rgb= unpack "(a3)*", pack "C*", @color;
$texture= pack "(a4)*", map {"$rgb[$image[$_]]$opacity[$_]"} 0..($wh-1);
}
} elsif (3 == $texType) {
$W4= $W*4; # width of scanline
$texture= pack "(a$W4)*", reverse unpack "(a$W4)*", substr $_, 32+$off[$mip], $W4*$H;
} elsif (6 == $texType) {
#PS2 texture format
@color= @col= unpack "C*", substr $_, 0x38, 256*4;
$CurrOfs = 1;
for $i (1 .. 255){
$SwitchI = ($i / 8)%4;
if ( 1 == $SwitchI ) { $vSum = 8; }
elsif ( 2 == $SwitchI ) { $vSum = -8; }
else { $vSum = 0; }
$storeAddr = $i + $vSum ;
$color[($storeAddr*4)+0] = $col[($CurrOfs*4)+0];
$color[($storeAddr*4)+1] = $col[($CurrOfs*4)+1];
$color[($storeAddr*4)+2] = $col[($CurrOfs*4)+2];
$color[($storeAddr*4)+3] = $col[($CurrOfs*4)+3];
$CurrOfs += 1;
}
for $n (0..256*4-1) {
$col[$n]=$color[$n];
}
for $n (0..255) {
# bmp colors are BGR instead of RGB
$color[($n*4)+0]= $col[($n*4)+2];
$color[($n*4)+1]= $col[($n*4)+1];
$color[($n*4)+2]= $col[($n*4)+0];
$color[($n*4)+3]= 255;
}
$offset= 54 + 256*4; # 256 color palette
$size= $offset+$W*$H;
$bpp= 8;
$ColorsUsed= 256;
$ColorsImportant= 256;
$colormap= pack 'C*', @color;
@texout = @rawtex = unpack "C*", substr $_, (0x38 + 31 + 0x100*4)+$off[$mip], $W*$H;
$block_location = 0;
$byte_num = 0;
$swap_selector = 0;
$posY = 0;
$column_location = 0;
for $y (0..$H-1) {
for $x (0..$W-1) {
$block_location = ($y & -16) * $W + ($x & -16) * 2;
$swap_selector = (( ($y + 2) >> 2) & 0x1) * 4;
$posY = ((($y & -4) >> 1) + ($y & 1)) & 0x7;
$column_location = $posY * $W * 2 + (($x + $swap_selector) & 0x7) * 4;
$byte_num = (( $y >> 1) & 1) + ( ( $x >> 2) & 2);
$texout[($y * $W) + $x] = $rawtex[$block_location + $column_location + $byte_num + 1];
}
}
@texrows = @rawtexrows= unpack "(a$W)*", pack 'C*', @texout;
$texture= pack "(a$W)*", reverse @texrows;
} elsif (13 == $texType) {
#Xbox (original) texture format
@color= @col= unpack "C*", substr $_, 0x18, 256*4;
#The palette is BMP-correct as-is
$offset= 0x18 + 256*4; # 256 color palette
$size= $offset+$W*$H;
$bpp= 8;
$ColorsUsed= 256;
$ColorsImportant= 256;
$colormap= pack 'C*', @color;
@texout = @rawtex = unpack "C*", substr $_, (0x18 + 0x100*4)+$off[$mip], $W*$H;
@texrows = @rawtexrows= unpack "(a$W)*", pack 'C*', @texout;
$texture= pack "(a$W)*", reverse @texrows;
}
else {
warn "$ARGV: unsupported tex file type: $texType\n";
next;
}
$header= "BM".pack "IssIIIIssIIIIII", $size, 0, 0, $offset, $ID2, $W, $H, $planes, $bpp, $compression, $SizeImage, $XPPM, $YPPM, $ColorsUsed, $ColorsImportant;
open OUT, "> $out" or die "can't write to $out";
print OUT $header;
print OUT $colormap;
print OUT $texture;
close OUT;
}
}
