NAME

Guitar::Scale.pm - The creation and viewing the guitar scale.

SYNOPSIS

        use Guitar::Scale;

        # .. preview scale
        Guitar::Scale::pv('C', 'Blues');

        # .. Other
        Guitar::Scale::pv('B', 'Spanish');

        # .. Other
        Guitar::Scale::pv('C#', 'HeavyMetal');

        # .. Your Handmade Scale
        Guitar::Scale::pv('F', '201000010000');

DESCRIPTION

I can view the guitar scale easily. In addition, it is also possible to check by shifting the base sound.

OBJECT INTERFACE

These are the methods in use Guitar::Scale object interface.

scale

pv can see the sound of all of the finger board.

        pv($key, $type, [mode]);

key

        E F F# Gb G G# Ab A A# Bb B C C# Db D D# Eb

type

        'MitsuruMetal'
        'Aeolian'
        'Altered'
        'Algerian'
        'Blues'
        'Blues++'
        'Chromatic'
        'Diminish--'
        'Diminished'
        'Dorian'
        'Dominant7th'
        'Diatonic'
        'Egyptian'
        'HarmonicMinor'
        'Hawaiian'
        'Hindu'
        'HeavyMetal'
        'Ionian'
        'Japanese'
        'Lydian'
        'Minor'
        'MelodicMinor'
        'Mixolydian'
        'Major'
        'Pentatonic'
        'Phrygian'
        'Roumanian'
        'Ryukyu'
        'Sobaya'
        'Spanish'
        'Ultralocrian'
        'WholeTone'
        

mode is optional; the default is '0'.

        0: normal preview -> <>+<>+--+<>+
        1: binary preview -> 201101010101

Handmade Scale

Set the fingerboard the second argument. Be a binary of 12 digits starting from 2 Always. Assume the E first because the bass sound.

        Example:
        []+--+--+<>+--+<>+<>+<>+--+--+<>+--+ => '200101110010'

        Guitar::Scale::pv('E', '200101110010');

Example

        Guitar::Scale::pv('A', 'Blues');
        
        <>+--+--+<>+--+[]+--+--+<>+--+<>+<>+<>+--+--+<>+--+[]+--+--+<>+--+<>+<>+<>+
        --+<>+--+<>+<>+<>+--+--+<>+--+[]+--+--+<>+--+<>+<>+<>+--+--+<>+--+[]+--+--+
        <>+--+[]+--+--+<>+--+<>+<>+<>+--+--+<>+--+[]+--+--+<>+--+<>+<>+<>+--+--+<>+
        <>+<>+<>+--+--+<>+--+[]+--+--+<>+--+<>+<>+<>+--+--+<>+--+[]+--+--+<>+--+<>+
        []+--+--+<>+--+<>+<>+<>+--+--+<>+--+[]+--+--+<>+--+<>+<>+<>+--+--+<>+--+[]+
        <>+--+--+<>+--+[]+--+--+<>+--+<>+<>+<>+--+--+<>+--+[]+--+--+<>+--+<>+<>+<>+
        00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 
        
        --: none.
        <>: active.
        []: base.

Example

        Guitar::Scale::pv('A', 'Blues' ,1);
        
        1001020010111001020010111
        0101110010200101110010200
        1020010111001020010111001
        1110010200101110010200101
        2001011100102001011100102
        1001020010111001020010111
        
        0: none.
        1: active.
        2: base.

HeavyMetal

'HeavyMetal' && 'MitsuruMetal' scale is the original scale of Mitsuru Yasuda.

Scale Demonstration

        http://youtu.be/5v1lNv_EsiQ
        http://youtu.be/3GhmcbKCtSE

AUTHOR

Mitsuru Yasuda, dsyrtm@cpan.org

        http://simql.com/

COPYRIGHT & LICENSE

Copyright (C) 2013 by Mitsuru Yasuda &

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.14.2 or, at your option, any later version of Perl 5 you may have available.

cpanm Guitar::Scale

perl -MCPAN -e shell
install Guitar::Scale