#!/usr/bin/perl5
# cr_pts.pl - reads a list of points from STDIN and creates them in ideas
# cr_pts.pl - Dave Hurst/daveh@wamware.com

# optional first argument is '-v' which runs program file in verbose mode
print "K : #echo none\n" unless ($verbose = ($ARGV[0] =~ /-v/));

my $count = 0; $generated = 0;
my $status_frequency = 1000; # how often should we put out a message

print <<"PRG_START";
C : cr_pts.prg - create 3D points
K : #TOTAL_S=STOP_WATCH(0)
K : #LOOP_S=STOP_WATCH(0)
K : \$ /ta mm
K : /cr m3 p key
PRG_START

while (<STDIN>) {
   if (!$verbose && $count++ == $status_frequency) { 
      $generated += $status_frequency;
      print "K : #LOOP_E=STOP_WATCH(LOOP_S)\n";
      print "K : #LOOP_S=STOP_WATCH(0)\n";
      print "K : /cr m3 p key\n";
      print "K : #output '$generated points generated (',LOOP_E,' seconds)'\n"; 
      $count=0; 
   } 
   @pts = split;
   printf ("K : %g,%g,%g\n", @pts);
}
$generated += $count;
print<<"PRG_END";
K : #output '$generated points generated' 
K : DON
K : #TOTAL_E=STOP_WATCH(TOTAL_S)
K : #output TOTAL_E,' second total elapsed time'
E :
PRG_END
exit;