The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

MIDI::Chord::Guitar - MIDI pitches for guitar chord voicings

VERSION

version 0.0200

SYNOPSIS

  use MIDI::Chord::Guitar;

  my $mcg = MIDI::Chord::Guitar->new;

  my $voicings = $mcg->voicings('dim7');
  # [ [51,57,60,66], [48,54,57,63,66] ]

  $voicings = $mcg->voicings('dim7', 'ISO');
  # [ [D#3 A3 C4 F#4], [C3 F#3 A3 D#4 F#4] ]

  my $chord = $mcg->transform('D3', 'dim7', 0);

  # MIDI:
  #$score->n('wn', @$chord);

DESCRIPTION

MIDI::Chord::Guitar provides MIDI pitches for common chord voicings of an E A D G B E tuned guitar.

Here is a handy diagram of ISO MIDI pitches laid out on a guitar neck:

And here is a companion diagram of MIDI pitch numbers laid out on a guitar neck:

ATTRIBUTES

chords

  $chords = $mcg->chords;

Computed attribute available after construction.

The known chord names are as follows:

  '' (major)
  aug
  dim
  dim7
  m (minor)
  m6
  m7
  m7b5
  m7b5#9
  m9
  m11
  maj7
  maj7#11
  maj9
  sus2
  sus4
  6
  6(9)
  7
  7#5
  7#9
  7b13
  7b5
  7b9
  7b9b13
  9
  9sus4
  11
  13

METHODS

as_file

  $filename = $mcg->as_file;

Return the guitar chord data filename location.

transform

  $chord = $mcg->transform($target, $chord_name, $variation);

Find the chord given the target, chord_name and variation.

The target must be in the format of an ISO note (e.g. on the guitar, a C note is represented by C3, C4, C5, etc).

If no chord_name is given, major is used. If no variation is given, 0 is used.

voicings

  $mcg->voicings($chord_name);
  $mcg->voicings($chord_name, $format);

Return all the voicings of a given chord_name. The default format is midinum but can be given as ISO to return named notes with octaves.

The order of the voicing variations of a chord is by fret position. So, the first variations are at lower frets. Please use the above diagrams to figure out the exact neck positions.

Here is an example of the voicing CSV file which can be found with the as_file method:

  C,48,52,55,60,,
  C,48,55,60,64,67,
  C,48,52,55,60,64,72
  C,48,55,60,64,67,72
  C,60,67,72,76,,
  C7,48,52,58,60,64,
  C7,48,55,58,64,67,
  C7,48,55,58,64,67,72
  C7,48,52,55,60,64,70
  C7,60,67,70,76,,
  ...

SEE ALSO

The t/01-methods.t and eg/autumn_leaves files in this distribution

File::ShareDir

List::Util

Moo

Music::Note

Text::CSV_XS

AUTHOR

Gene Boggs <gene@cpan.org>

COPYRIGHT AND LICENSE

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.