#!/usr/bin/perl
#
# Makes an executable file to record Partiview flypaths (no snapshots are taken)
#
# Usage:  perl record.pl execfile N 
#
# execfile = the executable file you can call with 'async execfile' in Partiview.
# N = the number of times where will be called
#
# Dinoj Surendran 12 Feb 03 dinoj@cs.uchicago.edu

if (( -t STDIN && @ARGV == 0 ) || ($#ARGV > 1))
{
  print STDERR "
                Usage:  perl $0 execfile N 

                execfile = the executable file you can call with 'async execfile' in Partiview.
                N        = the number of snapshots this will take.


";
  exit(1);
}

$scriptfile = $ARGV[0];
$numsteps = $ARGV[1];

open (OUT, ">$scriptfile");
print OUT "\#! /bin/csh -f \n\#\n";

for (my $i=0; $i<$numsteps; $i++)
{
    my $cmd = sprintf("echo where\n");
    print OUT $cmd;
}
close (OUT);
system ("chmod 755 $scriptfile");