/ 
Music-Duration-0.0504
River stage one • 4 direct dependents • 5 total dependents
/ Music::Duration

NAME

Music::Duration - Add 32nd, 64th, fractional and tuple durations to MIDI-Perl

VERSION

version 0.0504

SYNOPSIS

# Compare:
# perl -MMIDI::Simple -MData::Dumper -e'$Data::Dumper::Sortkeys=1; print Dumper \%MIDI::Simple::Length'
# perl -MMusic::Duration -MData::Dumper -e'$Data::Dumper::Sortkeys=1; print Dumper \%MIDI::Simple::Length'

# In a program:
use MIDI::Simple;
use Music::Duration;
Music::Duration::fractional('z', 5);
# Create and set up a new_score, then for example:
n('zsn', 'n38') for 1 .. 5;
Music::Duration::tuple( 'qn', 'z', 5 );
n('zqn', 'n38') for 1 .. 5;

DESCRIPTION

This module adds thirty-second and sixty-fourth note divisions to MIDI::Simple. These are 32nd: yn, dyn, ddyn, tyn and 64th: xn, dxn, ddxn, txn.

Also, this module allows the addition of non-standard note divisions with the fractional() and tuple() functions, detailed below.

FUNCTIONS

fractional()

Music::Duration::fractional( 'z', 5 )
# Then: $score->n( 'zqn', ... );

Add a fractional division to the MIDI::Simple Length hash.

For a given name of 'z', this function adds the following durations:

zwn
zhn
zqn
zen
zsn
zyn
zxn

For the example of 5 divisions, this means that a whole note is 5 beats long. The duration for each division is "half as long as the last." So a half note is 2.5 beats long, and a quarter note is, you guessed it - 1.25. See the distribution test for the full breakdown.

tuple()

Music::Duration::tuple( 'wn', 'z', 5 );
# Then: $score->n( 'zwn', ... );

Add a fractional division for a given duration of the MIDI::Simple Length hash.

Musically, this creates a "cluster" of notes in place of the given duration.

So instead of a whole note of four beats, we instead play 5 beats. A triplet is a 3-tuple.

TO DO

Add dot, double-dot and triplet to the fractional durations.

SEE ALSO

The "Parameters for n/r/noop" section in MIDI::Simple

The code in the t/ directory

AUTHOR

Gene Boggs <gene@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2018 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.