#!/usr/bin/perl
#
# Programmer:    Craig Stuart Sapp <craig@ccrma.stanford.edu>
# Creation Date: Fri Aug 25 17:55:45 PDT 2000
# Last Modified: Fri Aug 25 17:55:45 PDT 2000
# Filename:      /disk/linux3/web/websites/sig/bin/batonstuff/beatset2/translateit
# Syntax:        perl 5
#
# Description:
#


# read in the translation file:
%table = readtranslationfile("translate");

while (<>) {
   next if /^\s*$/;
   /(\d+)\s+(\d+)/;
   $value = $2;
   $outvalue = 127 - $table{$value};
   print "$1\t$outvalue\n";
}


sub readtranslationfile {
   my ($filename) = @_;
   my %output;

   open(INPUT, "$filename") || die;
   while (<INPUT>) {
      next if /^\s*$/;
      /(\d+)\s+(\d+)/;
      $output{$1} = $2;
   }

   return %output;
}