#!/usr/bin/perl

open IN,"<gliInterceptLog.txt";
open OUT,">part.obj";

$i = 1;
while(<IN>) {	

	$line = $_;
	if ( $line =~ /^glBegin\(GL_TRIANGLE_FAN\)/ ) {
		$line = <IN>;
		$line =~ /glNormal3f\((.*),(.*),(.*)\)/;
		print OUT "vn $1 $2 $3\n";
		$line = <IN>;
		$line =~ /glVertex3f\((.*),(.*),(.*)\)/;
		print OUT "v $1 $2 $3\n";
		$line = <IN>;
		$line =~ /glNormal3f\((.*),(.*),(.*)\)/;
		print OUT "vn $1 $2 $3\n";
		$line = <IN>;
		$line =~ /glVertex3f\((.*),(.*),(.*)\)/;
		print OUT "v $1 $2 $3\n";
		$line = <IN>;
		$line =~ /glNormal3f\((.*),(.*),(.*)\)/;
		print OUT "vn $1 $2 $3\n";
		$line = <IN>;
		$line =~ /glVertex3f\((.*),(.*),(.*)\)/;
		print OUT "v $1 $2 $3\n";
		print OUT "f ",$i,"//",$i," ",$i+1,"//",$i+1," ",$i+2,"//",$i+2,"\n";
		$i = $i+3;
	}
}