Music::Duration - Add 32nd, 64th, 128th and tuplet durations to MIDI-Perl


version 0.0800


  use Music::Duration;

  Music::Duration::tuplet( 'ten', 'z', 5 ); # 5 divisions in place of an eighth note triplet

  my $black_page = MIDI::Simple->new_score();
  # ...
  $black_page->n( 'zten', 'n38' ) for 1 .. 5;

  Music::Duration::add_duration( phi => 1.618 );
  # ...
  $black_page->n( 'phi', 'n38' ) for 1 .. 4;

  # Now inspect the known lengths:
  my %x = %MIDI::Simple::Length;
  print Dumper [ map { "$_ => $x{$_}" } sort { $x{$a} <=> $x{$b} } keys %x ];


This module adds 32nd, 64th, and 128th triplet and dotted note divisions to %MIDI::Simple::Length. It also computes and inserts a fractional note division of an existing duration. Additionally, this module will insert any named note duration to the length hash.

32nd durations added:

  yn:   thirty-second note
  dyn:  dotted thirty-second note
  ddyn: double dotted thirty-second note
  tyn:  thirty-second note triplet

64th durations added:

  xn:   sixty-fourth note
  dxn:  dotted sixty-fourth note
  ddxn: double dotted sixty-fourth note
  txn:  sixty-fourth note triplet

128th durations added:

  on:   128th note
  don:  dotted 128th note
  ddon: double dotted 128th note
  ton:  128th note triplet


tuple, tuplet

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

  Music::Duration::tuplet( 'wn', 'z', 7 );
  # $score->n( 'zwn', ... );

Add a fractional division to the MIDI::Simple Length hash for a given name and duration.

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

A triplet is a 3-tuplet.

So in the first example, instead of a quarter note, we instead play 5 beats - a 5-tuple. In the second, instead of a whole note (of four beats), we instead play 7 beats.


  Music::Duration::add_duration( $name => $duration );

This simple function just adds a named duration length to %MIDI::Simple::Length so that it can be used to add notes or rests to the score.


The %Length hash in MIDI::Simple

The code in the eg/ and t/ directories


Gene Boggs <>


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