#!/usr/bin/perl

$geofile=sprintf("%s.geo",$ARGV[0]);
$datafile=sprintf("%s.pat",$ARGV[0]);

if($#ARGV!=0){
  printf("usage: MakePath2.pl geofile\n");
  printf("geoファイルは拡張子を省いて指定してください。\n");
  printf("コンバート後、(geoname).pat というファイルが生成されます\n");
  exit(1);
}

#GEOファイルの読み込み
open(fh,"$geofile") or die("Error: Source file [$geofile] not found.\n");
printf("PathGeometry : %s\n",$geofile);
@geodata=();
@geodata=<fh>;
close(fh);
@outbuf=();
$nb_points=0;
foreach $linebuf (@geodata){
  @linebuf=split('\s',$linebuf);
  if($linebuf=~/^POLYS/){
    last;
  } 
  if($linebuf=~/^[\-\+0-9]+:/){
    $nb_points++;
    push(@outbuf,pack("fff",@linebuf[1 .. 3]));
  }
}

open(fh,">$datafile");
printf("OutputPath   : %s\n",$datafile);
binmode(fh);
$nb_cnt = 0;
foreach (@outbuf) {
  printf(fh "%s", @outbuf[$nb_cnt]);
  $nb_cnt++;
}
close(fh);
exit(1);