musa-dsl 0.30.2 → 0.41.0

data/lib/musa-dsl/music/equally-tempered-12-tone-scale-system.rb

@@ -1,208 +1,72 @@
-require_relative 'scales'
-
-module Musa
-  module Scales
-    class TwelveSemitonesScaleSystem < ScaleSystem
-      class << self
-        @@intervals = { P0: 0, m2: 1, M2: 2, m3: 3, M3: 4, P4: 5, TT: 6, P5: 7, m6: 8, M6: 9, m7: 10, M7: 11, P8: 12 }
-
-        def id
-          :et12
-        end
-
-        def notes_in_octave
-          12
-        end
-
-        def part_of_tone_size
-          1
-        end
-
-        def intervals
-          @@intervals
-        end
-      end
-    end
-
-    class EquallyTempered12ToneScaleSystem < TwelveSemitonesScaleSystem
-      class << self
-        def frequency_of_pitch(pitch, _root_pitch, a_frequency)
-          (a_frequency * Rational(2)**Rational(pitch - 69, 12)).to_f
-        end
-      end
-
-      Scales.register EquallyTempered12ToneScaleSystem, default: true
-    end
-
-
-    class ChromaticScaleKind < ScaleKind
-      class << self
-        @@pitches =
-            [{ functions: [:_1], pitch: 0 },
-             { functions: [:_2], pitch: 1 },
-             { functions: [:_3], pitch: 2 },
-             { functions: [:_4], pitch: 3 },
-             { functions: [:_5], pitch: 4 },
-             { functions: [:_6], pitch: 5 },
-             { functions: [:_7], pitch: 6 },
-             { functions: [:_8], pitch: 7 },
-             { functions: [:_9], pitch: 8 },
-             { functions: [:_10], pitch: 9 },
-             { functions: [:_11], pitch: 10 },
-             { functions: [:_12], pitch: 11 }].freeze
-
-        def pitches
-          @@pitches
-        end
-
-        def id
-          :chromatic
-        end
-
-        def chromatic?
-          true
-        end
-      end
-
-      EquallyTempered12ToneScaleSystem.register ChromaticScaleKind
-    end
+# frozen_string_literal: true
+
+# Equal temperament 12-tone scale system and scale kinds.
+#
+# This file loads the complete ET12 scale system including:
+# - TwelveSemitonesScaleSystem (base class)
+# - EquallyTempered12ToneScaleSystem (concrete implementation)
+# - All standard scale kinds (chromatic, major, minor, harmonic minor)
+# - All Greek/church modes (dorian, phrygian, lydian, mixolydian, locrian)
+# - Pentatonic scales (major, minor)
+# - Blues scales (blues, blues major)
+# - Symmetric scales (whole tone, diminished)
+# - Melodic minor modes (melodic minor, dorian b2, lydian augmented, etc.)
+# - Harmonic major
+# - Ethnic scales (double harmonic, hungarian minor, phrygian dominant, etc.)
+# - Bebop scales (dominant, major, minor)
 
-    class MajorScaleKind < ScaleKind
-      class << self
-        @@pitches =
-            [{ functions: %i[I _1 tonic first],
-               pitch: 0 },
-             { functions: %i[II _2 supertonic second],
-               pitch: 2 },
-             { functions: %i[III _3 mediant third],
-               pitch: 4 },
-             { functions: %i[IV _4 subdominant fourth],
-               pitch: 5 },
-             { functions: %i[V _5 dominant fifth],
-               pitch: 7 },
-             { functions: %i[VI _6 submediant relative relative_minor sixth],
-               pitch: 9 },
-             { functions: %i[VII _7 leading seventh],
-               pitch: 11 },
-             { functions: %i[VIII _8 eighth],
-               pitch: 12 },
-             { functions: %i[IX _9 ninth],
-               pitch: 12 + 2 },
-             { functions: %i[X _10 tenth],
-               pitch: 12 + 4 },
-             { functions: %i[XI _11 eleventh],
-               pitch: 12 + 5 },
-             { functions: %i[XII _12 twelfth],
-               pitch: 12 + 7 },
-             { functions: %i[XIII _13 thirteenth],
-               pitch: 12 + 9 }].freeze
-
-        def pitches
-          @@pitches
-        end
-
-        def grades
-          7
-        end
-
-        def id
-          :major
-        end
-      end
-
-      EquallyTempered12ToneScaleSystem.register MajorScaleKind
-    end
-
-    class MinorNaturalScaleKind < ScaleKind
-      class << self
-        @@pitches =
-            [{ functions: %i[i _1 tonic first],
-               pitch: 0 },
-             { functions: %i[ii _2 supertonic second],
-               pitch: 2 },
-             { functions: %i[iii _3 mediant relative relative_major third],
-               pitch: 3 },
-             { functions: %i[iv _4 subdominant fourth],
-               pitch: 5 },
-             { functions: %i[v _5 dominant fifth],
-               pitch: 7 },
-             { functions: %i[vi _6 submediant sixth],
-               pitch: 8 },
-             { functions: %i[vii _7 seventh],
-               pitch: 10 },
-             { functions: %i[viii _8 eighth],
-               pitch: 12 },
-             { functions: %i[ix _9 ninth],
-               pitch: 12 + 2 },
-             { functions: %i[x _10 tenth],
-               pitch: 12 + 3 },
-             { functions: %i[xi _11 eleventh],
-               pitch: 12 + 5 },
-             { functions: %i[xii _12 twelfth],
-               pitch: 12 + 7 },
-             { functions: %i[xiii _13 thirteenth],
-               pitch: 12 + 8 }].freeze
-
-        def pitches
-          @@pitches
-        end
-
-        def grades
-          7
-        end
-
-        def id
-          :minor
-        end
-      end
-
-      EquallyTempered12ToneScaleSystem.register MinorNaturalScaleKind
-    end
-
-    class MinorHarmonicScaleKind < ScaleKind
-      class << self
-        @@pitches =
-            [{ functions: %i[i _1 tonic],
-               pitch: 0 },
-             { functions: %i[ii _2 supertonic],
-               pitch: 2 },
-             { functions: %i[iii _3 mediant relative relative_major],
-               pitch: 3 },
-             { functions: %i[iv _4 subdominant],
-               pitch: 5 },
-             { functions: %i[v _5 dominant],
-               pitch: 7 },
-             { functions: %i[vi _6 submediant],
-               pitch: 8 },
-             { functions: %i[vii _7 leading],
-               pitch: 11 },
-             { functions: %i[viii _8],
-               pitch: 12 },
-             { functions: %i[ix _9],
-               pitch: 12 + 2 },
-             { functions: %i[x _10],
-               pitch: 12 + 3 },
-             { functions: %i[xi _11],
-               pitch: 12 + 5 },
-             { functions: %i[xii _12],
-               pitch: 12 + 7 },
-             { functions: %i[xiii _13],
-               pitch: 12 + 8 }].freeze
-
-        def pitches
-          @@pitches
-        end
-
-        def grades
-          7
-        end
-
-        def id
-          :minor_harmonic
-        end
-      end
+require_relative 'scales'
 
-      EquallyTempered12ToneScaleSystem.register MinorHarmonicScaleKind
-    end
-  end
-end
+# Scale systems
+require_relative 'scale_systems/twelve_semitones_scale_system'
+require_relative 'scale_systems/equally_tempered_12_tone_scale_system'
+
+# Core scale kinds
+require_relative 'scale_kinds/chromatic_scale_kind'
+require_relative 'scale_kinds/major_scale_kind'
+require_relative 'scale_kinds/minor_natural_scale_kind'
+require_relative 'scale_kinds/minor_harmonic_scale_kind'
+
+# Greek/church modes
+require_relative 'scale_kinds/modes/dorian_scale_kind'
+require_relative 'scale_kinds/modes/phrygian_scale_kind'
+require_relative 'scale_kinds/modes/lydian_scale_kind'
+require_relative 'scale_kinds/modes/mixolydian_scale_kind'
+require_relative 'scale_kinds/modes/locrian_scale_kind'
+
+# Pentatonic scales
+require_relative 'scale_kinds/pentatonic/pentatonic_major_scale_kind'
+require_relative 'scale_kinds/pentatonic/pentatonic_minor_scale_kind'
+
+# Blues scales
+require_relative 'scale_kinds/blues/blues_scale_kind'
+require_relative 'scale_kinds/blues/blues_major_scale_kind'
+
+# Symmetric scales
+require_relative 'scale_kinds/symmetric/whole_tone_scale_kind'
+require_relative 'scale_kinds/symmetric/diminished_hw_scale_kind'
+require_relative 'scale_kinds/symmetric/diminished_wh_scale_kind'
+
+# Melodic minor and modes
+require_relative 'scale_kinds/melodic_minor/melodic_minor_scale_kind'
+require_relative 'scale_kinds/melodic_minor/dorian_b2_scale_kind'
+require_relative 'scale_kinds/melodic_minor/lydian_augmented_scale_kind'
+require_relative 'scale_kinds/melodic_minor/lydian_dominant_scale_kind'
+require_relative 'scale_kinds/melodic_minor/mixolydian_b6_scale_kind'
+require_relative 'scale_kinds/melodic_minor/locrian_sharp2_scale_kind'
+require_relative 'scale_kinds/melodic_minor/altered_scale_kind'
+
+# Harmonic major
+require_relative 'scale_kinds/harmonic_major/harmonic_major_scale_kind'
+
+# Ethnic/exotic scales
+require_relative 'scale_kinds/ethnic/double_harmonic_scale_kind'
+require_relative 'scale_kinds/ethnic/hungarian_minor_scale_kind'
+require_relative 'scale_kinds/ethnic/phrygian_dominant_scale_kind'
+require_relative 'scale_kinds/ethnic/neapolitan_minor_scale_kind'
+require_relative 'scale_kinds/ethnic/neapolitan_major_scale_kind'
+
+# Bebop scales
+require_relative 'scale_kinds/bebop/bebop_dominant_scale_kind'
+require_relative 'scale_kinds/bebop/bebop_major_scale_kind'
+require_relative 'scale_kinds/bebop/bebop_minor_scale_kind'

data/lib/musa-dsl/music/scale_kinds/bebop/bebop_dominant_scale_kind.rb

@@ -0,0 +1,110 @@
+# frozen_string_literal: true
+
+module Musa
+  module Scales
+    # Bebop dominant scale kind.
+    #
+    # BebopDominantScaleKind defines the bebop dominant scale, an eight-note
+    # scale that adds a chromatic passing tone (major 7th) to the Mixolydian
+    # mode. This allows chord tones to fall on downbeats during eighth-note runs.
+    #
+    # ## Pitch Structure
+    #
+    # 8 degrees plus extended:
+    #
+    # **Scale Degrees** (uppercase for major quality):
+    #
+    # - **I** (tonic): Root (0 semitones)
+    # - **II** (supertonic): Major second (2 semitones)
+    # - **III** (mediant): Major third (4 semitones)
+    # - **IV** (subdominant): Perfect fourth (5 semitones)
+    # - **V** (dominant): Perfect fifth (7 semitones)
+    # - **VI** (submediant): Major sixth (9 semitones)
+    # - **VII** (subtonic): Minor seventh (10 semitones)
+    # - **VII#** (leading): Major seventh (11 semitones) ← PASSING TONE
+    #
+    # ## Bebop Principle
+    #
+    # The added chromatic note ensures that:
+    # - Chord tones (1, 3, 5, b7) fall on strong beats
+    # - Non-chord tones fall on weak beats
+    # - Creates smooth voice leading at tempo
+    #
+    # ## Musical Character
+    #
+    # The bebop dominant scale:
+    #
+    # - Essential for jazz improvisation over dominant 7th chords
+    # - Creates characteristic bebop sound at fast tempos
+    # - Used by Charlie Parker, Dizzy Gillespie, and bebop masters
+    #
+    # ## Usage
+    #
+    #     g_bebop = Scales[:et12][440.0][:bebop_dominant][67]
+    #     g_bebop[0].pitch  # G (67) - root
+    #     g_bebop[6].pitch  # F (77) - minor 7th
+    #     g_bebop[7].pitch  # F# (78) - major 7th (chromatic passing)
+    #
+    # @see ScaleKind Abstract base class
+    # @see MixolydianScaleKind Mixolydian (7-note parent)
+    # @see BebopMajorScaleKind Bebop major scale
+    class BebopDominantScaleKind < ScaleKind
+      @base_metadata = {
+        family: :bebop,
+        brightness: 1,
+        character: [:jazz, :chromatic_passing, :dominant],
+        parent: nil
+      }.freeze
+
+      class << self
+        @@pitches =
+            [{ functions: %i[I _1 tonic first],
+               pitch: 0 },
+             { functions: %i[II _2 supertonic second],
+               pitch: 2 },
+             { functions: %i[III _3 mediant third],
+               pitch: 4 },
+             { functions: %i[IV _4 subdominant fourth],
+               pitch: 5 },
+             { functions: %i[V _5 dominant fifth],
+               pitch: 7 },
+             { functions: %i[VI _6 submediant sixth],
+               pitch: 9 },
+             { functions: %i[VII _7 subtonic seventh],
+               pitch: 10 },
+             { functions: %i[VII# _8 leading eighth],
+               pitch: 11 },
+             { functions: %i[VIII _9 ninth],
+               pitch: 12 },
+             { functions: %i[IX _10 tenth],
+               pitch: 12 + 2 },
+             { functions: %i[X _11 eleventh],
+               pitch: 12 + 4 },
+             { functions: %i[XI _12 twelfth],
+               pitch: 12 + 5 },
+             { functions: %i[XII _13 thirteenth],
+               pitch: 12 + 7 },
+             { functions: %i[XIII _14 fourteenth],
+               pitch: 12 + 9 },
+             { functions: %i[XIV _15 fifteenth],
+               pitch: 12 + 10 },
+             { functions: %i[XV _16 sixteenth],
+               pitch: 12 + 11 }].freeze
+
+        def pitches
+          @@pitches
+        end
+
+        def grades
+          8
+        end
+
+        def id
+          :bebop_dominant
+        end
+      end
+
+      EquallyTempered12ToneScaleSystem.register BebopDominantScaleKind
+    end
+  end
+end

data/lib/musa-dsl/music/scale_kinds/bebop/bebop_major_scale_kind.rb

@@ -0,0 +1,110 @@
+# frozen_string_literal: true
+
+module Musa
+  module Scales
+    # Bebop major scale kind.
+    #
+    # BebopMajorScaleKind defines the bebop major scale, an eight-note
+    # scale that adds a chromatic passing tone (#5) to the major scale.
+    # This allows chord tones to fall on downbeats during eighth-note runs.
+    #
+    # ## Pitch Structure
+    #
+    # 8 degrees plus extended:
+    #
+    # **Scale Degrees** (uppercase for major quality):
+    #
+    # - **I** (tonic): Root (0 semitones)
+    # - **II** (supertonic): Major second (2 semitones)
+    # - **III** (mediant): Major third (4 semitones)
+    # - **IV** (subdominant): Perfect fourth (5 semitones)
+    # - **V** (dominant): Perfect fifth (7 semitones)
+    # - **V#** (passing): Augmented fifth (8 semitones) ← PASSING TONE
+    # - **VI** (submediant): Major sixth (9 semitones)
+    # - **VII** (leading): Major seventh (11 semitones)
+    #
+    # ## Bebop Principle
+    #
+    # The added #5 chromatic note ensures that:
+    # - Chord tones (1, 3, 5, 7) fall on strong beats
+    # - Non-chord tones fall on weak beats
+    # - Smooth chromatic connection between 5 and 6
+    #
+    # ## Musical Character
+    #
+    # The bebop major scale:
+    #
+    # - Used over major 7th and major 6th chords
+    # - Creates flowing eighth-note lines
+    # - Common in bebop and jazz standards
+    #
+    # ## Usage
+    #
+    #     c_bebop_maj = Scales[:et12][440.0][:bebop_major][60]
+    #     c_bebop_maj[4].pitch  # G (67) - perfect 5th
+    #     c_bebop_maj[5].pitch  # G# (68) - augmented 5th (passing)
+    #     c_bebop_maj[6].pitch  # A (69) - major 6th
+    #
+    # @see ScaleKind Abstract base class
+    # @see MajorScaleKind Major scale (7-note parent)
+    # @see BebopDominantScaleKind Bebop dominant scale
+    class BebopMajorScaleKind < ScaleKind
+      @base_metadata = {
+        family: :bebop,
+        brightness: 0,
+        character: [:jazz, :chromatic_passing, :major],
+        parent: nil
+      }.freeze
+
+      class << self
+        @@pitches =
+            [{ functions: %i[I _1 tonic first],
+               pitch: 0 },
+             { functions: %i[II _2 supertonic second],
+               pitch: 2 },
+             { functions: %i[III _3 mediant third],
+               pitch: 4 },
+             { functions: %i[IV _4 subdominant fourth],
+               pitch: 5 },
+             { functions: %i[V _5 dominant fifth],
+               pitch: 7 },
+             { functions: %i[V# _6 sixth],
+               pitch: 8 },
+             { functions: %i[VI _7 submediant seventh],
+               pitch: 9 },
+             { functions: %i[VII _8 leading eighth],
+               pitch: 11 },
+             { functions: %i[VIII _9 ninth],
+               pitch: 12 },
+             { functions: %i[IX _10 tenth],
+               pitch: 12 + 2 },
+             { functions: %i[X _11 eleventh],
+               pitch: 12 + 4 },
+             { functions: %i[XI _12 twelfth],
+               pitch: 12 + 5 },
+             { functions: %i[XII _13 thirteenth],
+               pitch: 12 + 7 },
+             { functions: %i[XII# _14 fourteenth],
+               pitch: 12 + 8 },
+             { functions: %i[XIII _15 fifteenth],
+               pitch: 12 + 9 },
+             { functions: %i[XIV _16 sixteenth],
+               pitch: 12 + 11 }].freeze
+
+        def pitches
+          @@pitches
+        end
+
+        def grades
+          8
+        end
+
+        def id
+          :bebop_major
+        end
+      end
+
+      EquallyTempered12ToneScaleSystem.register BebopMajorScaleKind
+    end
+  end
+end

data/lib/musa-dsl/music/scale_kinds/bebop/bebop_minor_scale_kind.rb

@@ -0,0 +1,110 @@
+# frozen_string_literal: true
+
+module Musa
+  module Scales
+    # Bebop minor scale kind.
+    #
+    # BebopMinorScaleKind defines the bebop minor scale, an eight-note
+    # scale that adds a chromatic passing tone (major 7th) to the Dorian
+    # mode. This allows chord tones to fall on downbeats during eighth-note runs.
+    #
+    # ## Pitch Structure
+    #
+    # 8 degrees plus extended:
+    #
+    # **Scale Degrees** (lowercase for minor quality):
+    #
+    # - **i** (tonic): Root (0 semitones)
+    # - **ii** (supertonic): Major second (2 semitones)
+    # - **iii** (mediant): Minor third (3 semitones)
+    # - **iv** (subdominant): Perfect fourth (5 semitones)
+    # - **v** (dominant): Perfect fifth (7 semitones)
+    # - **vi** (submediant): Major sixth (9 semitones) ← DORIAN
+    # - **vii** (subtonic): Minor seventh (10 semitones)
+    # - **vii#** (leading): Major seventh (11 semitones) ← PASSING TONE
+    #
+    # ## Bebop Principle
+    #
+    # The added major 7th chromatic note ensures that:
+    # - Chord tones (1, b3, 5, b7) fall on strong beats
+    # - Non-chord tones fall on weak beats
+    # - Smooth chromatic connection from b7 to root
+    #
+    # ## Musical Character
+    #
+    # The bebop minor scale:
+    #
+    # - Used over minor 7th chords
+    # - Based on Dorian mode (bright minor)
+    # - Common in jazz ii-V-I progressions
+    #
+    # ## Usage
+    #
+    #     d_bebop_min = Scales[:et12][440.0][:bebop_minor][62]
+    #     d_bebop_min[6].pitch  # C (72) - minor 7th
+    #     d_bebop_min[7].pitch  # C# (73) - major 7th (passing)
+    #     d_bebop_min[8].pitch  # D (74) - octave
+    #
+    # @see ScaleKind Abstract base class
+    # @see DorianScaleKind Dorian mode (7-note parent)
+    # @see BebopDominantScaleKind Bebop dominant scale
+    class BebopMinorScaleKind < ScaleKind
+      @base_metadata = {
+        family: :bebop,
+        brightness: -1,
+        character: [:jazz, :chromatic_passing, :minor],
+        parent: nil
+      }.freeze
+
+      class << self
+        @@pitches =
+            [{ functions: %i[i _1 tonic first],
+               pitch: 0 },
+             { functions: %i[ii _2 supertonic second],
+               pitch: 2 },
+             { functions: %i[iii _3 mediant third],
+               pitch: 3 },
+             { functions: %i[iv _4 subdominant fourth],
+               pitch: 5 },
+             { functions: %i[v _5 dominant fifth],
+               pitch: 7 },
+             { functions: %i[vi _6 submediant sixth],
+               pitch: 9 },
+             { functions: %i[vii _7 subtonic seventh],
+               pitch: 10 },
+             { functions: %i[vii# _8 leading eighth],
+               pitch: 11 },
+             { functions: %i[viii _9 ninth],
+               pitch: 12 },
+             { functions: %i[ix _10 tenth],
+               pitch: 12 + 2 },
+             { functions: %i[x _11 eleventh],
+               pitch: 12 + 3 },
+             { functions: %i[xi _12 twelfth],
+               pitch: 12 + 5 },
+             { functions: %i[xii _13 thirteenth],
+               pitch: 12 + 7 },
+             { functions: %i[xiii _14 fourteenth],
+               pitch: 12 + 9 },
+             { functions: %i[xiv _15 fifteenth],
+               pitch: 12 + 10 },
+             { functions: %i[xv _16 sixteenth],
+               pitch: 12 + 11 }].freeze
+
+        def pitches
+          @@pitches
+        end
+
+        def grades
+          8
+        end
+
+        def id
+          :bebop_minor
+        end
+      end
+
+      EquallyTempered12ToneScaleSystem.register BebopMinorScaleKind
+    end
+  end
+end

data/lib/musa-dsl/music/scale_kinds/blues/blues_major_scale_kind.rb

@@ -0,0 +1,100 @@
+# frozen_string_literal: true
+
+module Musa
+  module Scales
+    # Major blues scale kind.
+    #
+    # BluesMajorScaleKind defines the major blues scale, a six-note scale
+    # that adds the "blue note" (b3) to the major pentatonic scale.
+    # It provides a brighter blues sound than the minor blues scale.
+    #
+    # ## Pitch Structure
+    #
+    # 6 degrees plus extended:
+    #
+    # **Scale Degrees** (uppercase for major quality):
+    #
+    # - **I** (tonic): Root (0 semitones)
+    # - **II** (supertonic): Major second (2 semitones)
+    # - **blue** (blue note): Minor third (3 semitones) ← CHARACTERISTIC
+    # - **III** (mediant): Major third (4 semitones)
+    # - **V** (dominant): Perfect fifth (7 semitones)
+    # - **VI** (submediant): Major sixth (9 semitones)
+    #
+    # ## The Blue Note
+    #
+    # The b3 (minor third) is the blue note in the major blues scale.
+    # It creates tension that resolves up to the major third, providing
+    # the characteristic "bend" sound in blues guitar and vocals.
+    #
+    # ## Musical Character
+    #
+    # The major blues scale:
+    #
+    # - Brighter alternative to minor blues
+    # - Works well over major and dominant 7th chords
+    # - Common in country blues and jazz
+    # - The b3 to natural 3 movement is essential
+    #
+    # ## Usage
+    #
+    #     c_blues_maj = Scales[:et12][440.0][:blues_major][60]
+    #     c_blues_maj.tonic    # C (60)
+    #     c_blues_maj.blue     # Eb (63) - the blue note
+    #     c_blues_maj.mediant  # E (64) - major third
+    #
+    # @see ScaleKind Abstract base class
+    # @see PentatonicMajorScaleKind Major pentatonic (without blue note)
+    # @see BluesScaleKind Minor blues scale
+    class BluesMajorScaleKind < ScaleKind
+      @base_metadata = {
+        family: :blues,
+        brightness: 0,
+        character: [:bluesy, :gospel, :major],
+        parent: nil
+      }.freeze
+
+      class << self
+        @@pitches =
+            [{ functions: %i[I _1 tonic first],
+               pitch: 0 },
+             { functions: %i[II _2 supertonic second],
+               pitch: 2 },
+             { functions: %i[blue _3 third],
+               pitch: 3 },
+             { functions: %i[III _4 mediant fourth],
+               pitch: 4 },
+             { functions: %i[V _5 dominant fifth],
+               pitch: 7 },
+             { functions: %i[VI _6 submediant sixth],
+               pitch: 9 },
+             { functions: %i[VIII _7 seventh],
+               pitch: 12 },
+             { functions: %i[IX _8 eighth],
+               pitch: 12 + 2 },
+             { functions: %i[blue2 _9 ninth],
+               pitch: 12 + 3 },
+             { functions: %i[X _10 tenth],
+               pitch: 12 + 4 },
+             { functions: %i[XII _11 eleventh],
+               pitch: 12 + 7 },
+             { functions: %i[XIII _12 twelfth],
+               pitch: 12 + 9 }].freeze
+
+        def pitches
+          @@pitches
+        end
+
+        def grades
+          6
+        end
+
+        def id
+          :blues_major
+        end
+      end
+
+      EquallyTempered12ToneScaleSystem.register BluesMajorScaleKind
+    end
+  end
+end