#!/usr/bin/php
<?php
if ($argc != 2 || in_array($argv[1], array('--help', '-help', '-h', '-?'))) {
?>

This is a command line PHP script for processing newly exported .inc files

  Usage:
  <?php echo $argv[0]; ?> <option>

  <option> is the filename of the include file
	to make a wireframe model of.
	--help, -help, -h, or -? displays this.

<?php
} else {
	if(is_file($argv[1])){
		$incname = substr($argv[1],0,strlen($argv[1])-4);
		if(strrpos($incname,'/')!==false){
			$basename = substr($incname,strrpos($incname,'/')+1);
		}else{
			$basename = $incname;
		}
		if(strrpos($basename,'\\')!==false){
			$basename = substr($basename,strrpos($basename,'\\')+1);
		}
		
		$fcontents = file_get_contents($argv[1]);
		$vertexpattern = '/<(-?[\d\.]{8,}), (-?[\d\.]{8,}), (-?[\d\.]{8,})> <(-?[\d\.]{8}), (-?[\d\.]{8}), (-?[\d\.]{8})>/';
		$offsetval = 0;
		$tri = 0;
		$edges=array();
		$trivtx=array();
		$vertices=array();
		$vtx=array('x'=>0.0,'y'=>0.0,'z'=>0.0);
		while(preg_match($vertexpattern,$fcontents,$matches,PREG_OFFSET_CAPTURE,$offsetval)){
			$vt = '<'.$matches[1][0].', '.$matches[2][0].', '.$matches[3][0].'>';
			//$vtx['x']=(float)$matches[1][0];
			//$vtx['y']=(float)$matches[2][0];
			//$vtx['z']=(float)$matches[3][0]);
			//$norm = '<'.$matches[4][0].', '.$matches[5][0].', '.$matches[6][0].'>';
			$offsetval = $matches[6][1];
			
			$vertices[$vt]=true;
			$trivtx[$tri]=$vt;
			$tri++;
			if($tri>=3){
				$tri=0;
				if(!in_array(array($trivtx[1],$trivtx[0]),$edges))
					$edges[]=array($trivtx[0],$trivtx[1]);
				if(!in_array(array($trivtx[2],$trivtx[1]),$edges))
					$edges[]=array($trivtx[1],$trivtx[2]);
				if(!in_array(array($trivtx[0],$trivtx[2]),$edges))
					$edges[]=array($trivtx[2],$trivtx[0]);
			}
		}
		$outstring = <<<EOT
/*
	POV-Ray 3.6+ Wireframe Include File for $basename.inc
	php mesh2 Wireframe generator, 2010 Christopher Shake
*/

#macro {$basename}_vertices(vertex_radius,vertex_texture)
union{

EOT;
		foreach($vertices as $vertex => $exists){
			$outstring .= "\tsphere{{$vertex}, vertex_radius}\n";
		}
		$outstring .= "\ttexture{vertex_texture}\n}\n#end\n\n#macro {$basename}_edges(edge_radius,edge_texture)\nunion{\n";
		foreach($edges as $edge){
			$outstring .= "\tcylinder{{$edge[0]},{$edge[1]},edge_radius}\n";
		}
		$outstring .= "\ttexture{edge_texture}\n}\n#end";
	}
	file_put_contents($incname.'_wireframe.inc',$outstring);
}
?>