NAME

MIDI::Util - MIDI Utilities

VERSION

version 0.0401

SYNOPSIS

  use MIDI::Util;

  my $score = MIDI::Util::setup_score( bpm => 120, etc => '...', );

  MIDI::Util::set_chan_patch( $score, 0, 1 );

  my $track = MIDI::Util::new_track( channel => 0, patch => 1, tempo => 450_000 );

  my $dump = MIDI::Util::dump('volume');

DESCRIPTION

MIDI::Util comprises handy MIDI utilities.

FUNCTIONS

setup_score

  $score = MIDI::Util::setup_score;  # Use defaults

  $score = MIDI::Util::setup_score(  # Override defaults
    lead_in => $beats,
    volume  => $volume,
    bpm     => $bpm,
    channel => $channel,
    patch   => $patch,
    octave  => $octave,
  );

Set basic MIDI parameters and return a MIDI::Simple object. If given a lead_in, play a hi-hat for that many beats. Do not include a lead_in by passing 0 as its value.

Named parameters and defaults:

  lead_in: 4
  volume:  120
  bpm:     100
  channel: 0
  patch:   0
  octave:  4

new_track

  $track = MIDI::Util::new_track;  # Use defaults

  $track = MIDI::Util::new_track(  # Override defaults
    channel => $channel,
    patch   => $patch,
    tempo   => $tempo,
  );

Set the channel, patch, and tempo and return a MIDI::Track object.

Named parameters and defaults:

  channel: 0
  patch:   0
  tempo:   500000

set_chan_patch

  MIDI::Util::set_chan_patch($score);  # Use defaults

  MIDI::Util::set_chan_patch( $score, $channel, $patch );  # Override defaults

Set the MIDI channel and patch.

Positional parameters and defaults:

  score:   undef (required)
  channel: 0
  patch:   0

dump

  $dump = MIDI::Util::dump($list_name);

Return sorted array references of the following MIDI, MIDI::Simple, and MIDI::Event internal lists:

  Volume
  Length
  Note
  note2number
  number2note
  patch2number
  number2patch
  notenum2percussion
  percussion2notenum
  All_events
  MIDI_events
  Meta_events
  Text_events
  Nontext_meta_events

SEE ALSO

MIDI

MIDI::Event

MIDI::Simple

MIDI::Track

Music::Tempo

AUTHOR

Gene Boggs <gene@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2019 by Gene Boggs.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

cpanm MIDI::Util

perl -MCPAN -e shell
install MIDI::Util