#!/usr/bin/perl
#
# Programmer:    Craig Stuart Sapp <craig@ccrma.stanford.edu>
# Creation Date: Sat Mar 25 10:03:48 PST 2006
# Last Modified: Sat Mar 25 10:03:48 PST 2006
# Filename:      /project/mazurka/website/auto/tapadj/addoffset
# Syntax:        perl 5
#
# Description:
#

use strict;

my $offset = 0.0;
my $line;
my $rhy;
my $beat;
my $atime;
my $delta;

my $counter = 0;
my $frac;
my $trial = 0;

while ($line = <>) {
   if ($line =~ /^!!!offset:\s*([\d\.-]+)/) {
      $offset = $1;
      next;
   }
   if ($line =~ /^!!!trial:\s*([\d\.-]+)/) {
      $trial = int($1);
      next;
   }

   if ($line =~ /^!!/) {
      # print $line;
      next;
   }
   if ($line =~ /^=/) {
      # print $line;
      next;
   }
   if ($line =~ /^\*/) {
      # print $line;
      next;
   }

   if ($line =~ /^(\d+)\t(\d+)\t(\d+)\t(\d+)$/) {
      $rhy   = $1;
      $beat  = $2;
      $atime = $3;
      $delta = $4;

      $frac= 0;
      $atime = int($atime + $offset + 0.5) / 1000.0;
      if ($atime =~ /\.(\d+)/) {
         $frac = length($1);
      }
      if ($frac == 0) {
         $atime .= ".000";
      } elsif ($frac == 1) {
         $atime .= "00";
      } elsif ($frac == 2) {
         $atime .= "0";
      }
   
      #print "$atime\t$counter\n";
      print "$atime\t$trial\n";
      $counter++;
      next;
   }

}