#!/usr/bin/perl
#
# Programmer:    Craig Stuart Sapp <craig@ccrma.stanford.edu>
# Creation Date: Tue Jun  6 22:00:16 PDT 2006
# Last Modified: Tue Jun  6 22:00:16 PDT 2006
# Filename:      ...info/revcond/pid9048-06/quantized/svquantize
# Syntax:        perl 5
#
# Description:   quantize timing values so they are similar to SV time
#                resolution.
#

use strict;


my $line;
my $kern;
my $beat;
my $atime = 0;
my $lasttime = 0;
my $delta;

while ($line = <>) {
   print $line if $line =~ /^\!/;
   print $line if $line =~ /^\*/;
   print $line if $line =~ /^=/;
   print $line if $line =~ /^\s*$/;
   if ($line =~ /^(\d+)\t(\d+)\t(\d+)\t(\d+)$/) {
      $lasttime = $atime;
      $kern  = $1;
      $beat  = $2;
      $atime = $3;
      $delta = $4;
      $atime = int($atime / 20.0 + 0.5) * 20.0;
      $delta = $atime - $lasttime;
      print "$kern\t$beat\t$atime\t$delta\n";
   }
}