#!/usr/bin/perl

#
# makeWhitneyMusic - Jim Bumgardner
#

$syntax = <<EOT;

makeWhitneyMusic [options]

-inst  instrument-name

       Clarinet, BlowHole, Saxofony, Flute, Brass, BlowBotl, Bowed, Plucked, 
       StifKarp, Sitar, Mandolin, Rhodey, Wurley, TubeBell, HevyMetl, PercFlut, 
       BeeThree, FMVoices, Moog, Simple, Drummer, BandedWG, Shakers, ModalBar, 
       Mesh2D, Resonate, and VoicForm

-tines nbr-tines
-amp   max-amplitude (default=300)
-rev   reverse pitches
-harm  harmonic pitches

The output score can be used with the command-line program 'calico' to produce
a music file for use with the corresponding flash script.  Calico can be found at
http://www.artassault.org/software/software.html


EOT


my $inst = 'BeeThree';
$nbrTines = 88;
$lenPiece = 3*60;
$maxAmp = 300;
$rev = 0;
$harm = 0;

while ($_ = shift)
{
  if (/^-inst/)
  {
    $inst = shift;
  }
  elsif (/^-tines/)
  {
    $nbrTines = shift;
  }
  elsif (/^-amp/)
  {
    $maxAmp = shift;
  }
  elsif (/^-rev/)
  {
    $rev = 1;
  }
  elsif (/^-harm/)
  {
    $rev = 1;
  }
  else {
    print $syntax;
    exit;
  }
}


print <<EOT;

Synth Stk
Inst  $inst
BPM 60
PRCRev  Global  0.6 0.7

EOT

sub kToPitch($$)
{
  my ($k,$n) = @_;
  if ($rev)
  {
    if ($harm) {
      return 20 * ($nbrTines-$k);
    }
    else {
      return 20 * 2**((($nbrTines-1)-$k)/12);
    }
  }
  if ($harm) {
    return 20 * ($k+1);
  }
  else {
    return 20 * 2**($k/12);
  }
}

sub kToAmp($$)
{
  my ($k,$n) = @_;
  return $maxAmp;
}

sub kToTime($$)
{
  my ($k, $i) = @_;
  return $i * $lenPiece/($k+1);
}

sub kToDuration($$)
{
  my ($k, $i) = @_;
  my $d = $lenPiece/($k+1);
  $d *= .25;
  $d = 10 if ($d > 10);
  return $d;
}

foreach $k (0..$nbrTines)
{
  foreach $n (0..$k)
  {
    printf "Note\t%f\t%f\t%d\t%f\n",
     kToTime($k,$n),
     kToDuration($k,$n),
     kToAmp($k,$n),
     kToPitch($k,$n);
  }
}