#!/usr/local/bin/perl
#
# holecoord.perl : make drill coordinates from drill report
#

require "getopts.pl";

$opt_n="[0-9]+";
&Getopts('n:h');

if($opt_h){
    print <<EOF;
  Read drill list report from FILE and produce drill coordinates list
   to STDOUT.

usage:
  holecoord [-h] [-n REGEXP] FILE
  
  -n REGEXP : output only drill holes which a drill number is matched to REGEXP

  Output file format is:
  XCOORD(um),YCOORD(um)
EOF
    exit;
}

while(<>){
    if(/^THRUHOLES/){
	last;
    }
}

while(<>){
    if(/^\s*([0-9.-]+)\s+($opt_n)\s+([0-9.-]+)\s+([0-9.-]+)/){
	$x=int($3*25.4+0.5);
	$y=int($4*25.4+0.5);
	print "$x,$y\n";
    }
}