From 015b27d7a1cdf2ddd8e5418fa328414ca8e77ca0 Mon Sep 17 00:00:00 2001
From: divverent <divverent@61c419a2-8eb2-4b30-bcec-8cead039b335>
Date: Tue, 5 May 2009 09:59:40 +0000
Subject: [PATCH] a Q3 map origin to origin brush converter to fix maps that
 this q3map2 no longer compiles correctly

git-svn-id: svn://svn.icculus.org/netradiant/trunk@360 61c419a2-8eb2-4b30-bcec-8cead039b335
---
 tools/quake3/q3maporigin2originbrush.pl | 205 ++++++++++++++++++++++++
 1 file changed, 205 insertions(+)
 create mode 100644 tools/quake3/q3maporigin2originbrush.pl

diff --git a/tools/quake3/q3maporigin2originbrush.pl b/tools/quake3/q3maporigin2originbrush.pl
new file mode 100644
index 00000000..cd497cd2
--- /dev/null
+++ b/tools/quake3/q3maporigin2originbrush.pl
@@ -0,0 +1,205 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+sub ParseEntity($)
+{
+	my ($fh) = @_;
+
+	my %ent = ( );
+	my @brushes = ( );
+
+	while(<$fh>)
+	{
+		chomp; s/\r//g; s/\0//g; s/\/\/.*$//; s/^\s+//; s/\s+$//; next if /^$/;
+
+		if(/^\{$/)
+		{
+			# entity starts
+			while(<$fh>)
+			{
+				chomp; s/\r//g; s/\0//g; s/\/\/.*$//; s/^\s+//; s/\s+$//; next if /^$/;
+
+				if(/^"(.*?)" "(.*)"$/)
+				{
+					# key-value pair
+					$ent{$1} = $2;
+				}
+				elsif(/^\{$/)
+				{
+					my $brush = [];
+					push @brushes, $brush;
+
+					while(<$fh>)
+					{
+						chomp; s/\r//g; s/\0//g; s/\/\/.*$//; s/^\s+//; s/\s+$//; next if /^$/;
+
+						if(/^\{$/)
+						{
+							# patch?
+							push @$brush, $_;
+
+							while(<$fh>)
+							{
+								chomp; s/\r//g; s/\0//g; s/\/\/.*$//; s/^\s+//; s/\s+$//; next if /^$/;
+
+								if(/^\}$/)
+								{
+									push @$brush, $_;
+
+									last;
+								}
+								else
+								{
+									push @$brush, $_;
+								}
+							}
+						}
+						elsif(/^\}$/)
+						{
+							# end of brush
+							last;
+						}
+						else
+						{
+							push @$brush, $_;
+						}
+					}
+				}
+				elsif(/^\}$/)
+				{
+					return \%ent, \@brushes;
+				}
+			}
+		}
+		else
+		{
+			die "Unexpected line in top level: >>$_<<";
+		}
+	}
+
+	return undef;
+}
+
+sub UnparseEntity($$)
+{
+	my ($ent, $brushes) = @_;
+	my %ent = %$ent;
+
+	my $s = "{\n";
+
+	for(sort keys %ent)
+	{
+		$s .= "\"$_\" \"$ent{$_}\"\n";
+	}
+
+	if(defined $brushes)
+	{
+		for(@$brushes)
+		{
+			$s .= "{\n";
+			$s .= "$_\n" for @$_;
+			$s .= "}\n";
+		}
+	}
+
+	$s .= "}\n";
+	return $s;
+}
+
+my @axialbrushpattern = (
+	[ "+++", "+-+", "-++", " - ", "-  " ],
+	[ "+++", "-++", "++-", "+  ", "  +" ],
+	[ "+++", "++-", "+-+", " - ", "  +" ],
+	[ "---", "+--", "-+-", " - ", "+  " ],
+	[ "---", "--+", "+--", "-  ", "  +" ],
+	[ "---", "-+-", "--+", " + ", "  +" ]
+);
+sub axialbrushpattern($$$)
+{
+	my ($plane, $vertex, $coord) = @_;
+	my $ch = substr $axialbrushpattern[$plane][$vertex], $coord, 1;
+	return $ch eq '+' ? +1 : $ch eq '-' ? -1 : 0;
+}
+sub frac($)
+{
+	my ($x) = @_;
+	return $x - int $x;
+}
+sub ConvertOriginBrush($$$$)
+{
+	my ($brushPrimit, $x, $y, $z) = @_;
+	my @data = ();
+	if($brushPrimit)
+	{
+		push @data, "brushDef";
+		push @data, "{";
+		for(0..5)
+		{
+			push @data, sprintf
+				"( %s %s %s ) ( %s %s %s ) ( %s %s %s ) ( ( %s %s %s ) ( %s %s %s ) ) common/origin 0 0 0",
+				$x + 8 * axialbrushpattern($_, 0, 0), $y + 8 * axialbrushpattern($_, 0, 1), $z + 8 * axialbrushpattern($_, 0, 2),
+				$x + 8 * axialbrushpattern($_, 1, 0), $y + 8 * axialbrushpattern($_, 1, 1), $z + 8 * axialbrushpattern($_, 1, 2),
+				$x + 8 * axialbrushpattern($_, 2, 0), $y + 8 * axialbrushpattern($_, 2, 1), $z + 8 * axialbrushpattern($_, 2, 2),
+				1/16.0, 0, frac((axialbrushpattern($_, 3, 0) * $x + axialbrushpattern($_, 3, 1) * $y + axialbrushpattern($_, 3, 2) * $z) / 16.0 + 0.5),
+				0, 1/16.0, frac((axialbrushpattern($_, 4, 0) * $x + axialbrushpattern($_, 4, 1) * $y + axialbrushpattern($_, 4, 2) * $z) / 16.0 + 0.5);
+		}
+		push @data, "}";
+	}
+	else
+	{
+		my $data = "// origin brush\n{\n";
+		for(0..5)
+		{
+			push @data, sprintf
+				"( %s %s %s ) ( %s %s %s ) ( %s %s %s ) common/origin %s %s 0 %s %s 0 0 0",
+				$x + 8 * axialbrushpattern($_, 0, 0), $y + 8 * axialbrushpattern($_, 0, 1), $z + 8 * axialbrushpattern($_, 0, 2),
+				$x + 8 * axialbrushpattern($_, 1, 0), $y + 8 * axialbrushpattern($_, 1, 1), $z + 8 * axialbrushpattern($_, 1, 2),
+				$x + 8 * axialbrushpattern($_, 2, 0), $y + 8 * axialbrushpattern($_, 2, 1), $z + 8 * axialbrushpattern($_, 2, 2),
+				frac((axialbrushpattern($_, 3, 0) * $x + axialbrushpattern($_, 3, 1) * $y + axialbrushpattern($_, 3, 2) * $z) / 16.0 + 0.5) * 64.0,
+				frac((axialbrushpattern($_, 4, 0) * $x + axialbrushpattern($_, 4, 1) * $y + axialbrushpattern($_, 4, 2) * $z) / 16.0 + 0.5) * 64.0,
+				1/4.0, 1/4.0;
+		}
+	}
+	return \@data;
+}
+
+my ($infile, $outfile) = @ARGV;
+open my $infh, '<', $infile
+	or die "<$infile: $!";
+my $brushPrimit = 0;
+
+my $outbuf = "";
+for(;;)
+{
+	my ($ent, $brushes) = ParseEntity $infh;
+	defined $ent
+		or last;
+	if(@$brushes)
+	{
+		$brushPrimit = 1
+			if grep { m!\s+brushDef\s+!; } @$brushes;
+		if(grep { m!\s+common/origin\s+!; } @$brushes)
+		{
+			# we have origin brushes - good
+		}
+		else
+		{
+			if(defined $ent->{origin})
+			{
+				my $origin = [ split /\s+/, ($ent->{origin} || "0 0 0") ];
+				delete $ent->{origin};
+				push @$brushes, ConvertOriginBrush $brushPrimit, $origin->[0], $origin->[1], $origin->[2];
+			}
+		}
+	}
+	$outbuf .= UnparseEntity $ent, $brushes;
+}
+
+close $infh;
+
+open my $outfh, '>', $outfile
+	or die ">$outfile: $!";
+print $outfh $outbuf;
+close $outfh;
-- 
2.39.2