root/lang/perl/Music-Phrase-MMLGenerator/trunk/make_phrase.pl @ 2804

#!/usr/bin/perl

use strict;
use warnings;

use Music::Phrase::MMLGenerator;
use Getopt::Long;

my (%opt);
GetOptions (
    "tempo=i"  => \$opt{tempo},  # tempo
    "bubble=i" => \$opt{bubble}, # bubble step (4 or 7)
    "octav=s"  => \$opt{octav},  # octav (3,4,5)
    "inst=s"   => \$opt{inst},   # instrument code (41=violin)
    "grep=i"   => \$opt{grep},   # grep code variation
    "pmml=i"   => \$opt{pmml},   # pmml command path
    "help"     => \$opt{help},   # print instrument code list
    "q"        => \$opt{quiet},  # no output message
    "play"     => \$opt{play},   # play generated midi with QuickTime
    "midi"     => \$opt{midi},   # create midi fie with pmml
);

$opt{block} = $ARGV[0];
Music::Phrase::MMLGenerator::do_command_line(%opt);

__END__

=head1 NAME

  make_phrase.pl

=head1 USAGE

  perl make_phrase.pl [--tempo|--octav|--inst|-help|-play|-m] <block expression>

  ex)
  perl make_phrase.pl --inst=37 --tempo=90 --octav=1,2 -midi \
      "A:1000100101000100,G:1000100101000100,E:1000100101000100,A:1000100101000100"; 

=head1 OPTIONS

  sound setting:

  tempo  - tempo
  octav  - octav (comma seperated, ex: 3,4,5)
  inst   - instrument code (40=violin)
  
  (experimental) bubble - bubble step (4 or 7)

  other options:

  help  - print instrument code list
  midi  - create midi file with pmml
  play  - play generated midi with QuickTime (Mac OS X only)
          make_phrase creates midi file when you use -play.

=cut