print "File root: ";
$f = <STDIN>;
chomp $f;

$file = "$f.inc";
$outfile = ">$f.obj";
$N=0; $T=0;

open(IN, $file) or die "Can't open $file $!\n";
open(OUT, $outfile) or die "Can't open $outfile $!\n";

print "Processing...\n";

# pass 1 - identify the points
while ($line = <IN>) {
  chomp $line;
  if ($line =~ "triangle") {
    $T+=1;
    ($P1,$P2,$P3) = split (">",$line);
    $P = $P1; Point(); 
    $P = $P2; Point(); 
    $P = $P3; Point(); 
    #<STDIN>;
  }
}

$NN=$T*3;

print "$T triangles = $NN sides, $N points\n";
close (IN);


# pass 2 - identify the faces
open(IN, $file) or die "Can't open $file $!\n";

print "Writing...\n";
while ($line = <IN>) {
  chomp $line;
  if ($line =~ "triangle") {
    ($P1,$P2,$P3) = split (">",$line);
    $P1 =~ s/.*<//;
    $P2 =~ s/.*<//;
    $P3 =~ s/.*<//;
    $p1 = $point{$P1};
    $p2 = $point{$P2};
    $p3 = $point{$P3};
    print OUT "f $p1 $p2 $p3\n";
  }
  if ($line =~ "= mesh") {
    ($junk1,$m,$junk2) = split(" ",$line,3);
    print OUT "usemtl $m\n";
#   print "usemtl $m\n";
  }
}

print "Finished\n";
exit;

      
#=====================
sub Point {
  $P =~ s/.*<//;
  #print "Point: $P";
  # have we seen this point before?
  if ($point{$P} == 0) {
    # add this point to the table
    #print "  is new";
    $N+=1;
    $point{$P} = $N;
    $P =~ s/,//g;
    #if ($P =~ "E") {
      ($x,$y,$z) = split(" ",$P);
      $x = $x * 1;
      $y = $y * -1;
      $z = $z * 1;
      #print "$P > ";
      $P = $x . " " . $y . " " . $z;
      #print "$P\n";
    #}
    print OUT "v $P\n";
  }
  #print "\n";
}