musa-dsl 0.40.0 → 0.41.0

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

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

@@ -0,0 +1,99 @@
+# frozen_string_literal: true
+
+module Musa
+  module Scales
+    # Blues scale kind (minor blues).
+    #
+    # BluesScaleKind defines the blues scale, a six-note scale that adds
+    # the "blue note" (b5) to the minor pentatonic scale. This is the
+    # quintessential scale for blues, rock, and jazz improvisation.
+    #
+    # ## Pitch Structure
+    #
+    # 6 degrees plus extended:
+    #
+    # **Scale Degrees** (lowercase for minor quality):
+    #
+    # - **i** (tonic): Root (0 semitones)
+    # - **iii** (mediant): Minor third (3 semitones)
+    # - **iv** (subdominant): Perfect fourth (5 semitones)
+    # - **blue** (blue note): Diminished fifth (6 semitones) ← CHARACTERISTIC
+    # - **v** (dominant): Perfect fifth (7 semitones)
+    # - **vii** (subtonic): Minor seventh (10 semitones)
+    #
+    # ## The Blue Note
+    #
+    # The b5 (diminished fifth) is the defining characteristic of the blues
+    # scale. It creates tension that resolves either up to the 5th or down
+    # to the 4th, giving the scale its distinctive "bluesy" sound.
+    #
+    # ## Musical Character
+    #
+    # The blues scale:
+    #
+    # - Foundation of blues improvisation
+    # - Works over minor, dominant 7th, and even major chords
+    # - The blue note adds expressive tension
+    # - Common in blues, rock, jazz, and funk
+    #
+    # ## Usage
+    #
+    #     a_blues = Scales[:et12][440.0][:blues][69]
+    #     a_blues.tonic  # A (69)
+    #     a_blues.blue   # Eb (75) - the blue note
+    #
+    # @see ScaleKind Abstract base class
+    # @see PentatonicMinorScaleKind Minor pentatonic (without blue note)
+    # @see BluesMajorScaleKind Major blues scale
+    class BluesScaleKind < ScaleKind
+      @base_metadata = {
+        family: :blues,
+        brightness: -1,
+        character: [:bluesy, :soulful, :minor],
+        parent: nil
+      }.freeze
+
+      class << self
+        @@pitches =
+            [{ functions: %i[i _1 tonic first],
+               pitch: 0 },
+             { functions: %i[iii _2 mediant second],
+               pitch: 3 },
+             { functions: %i[iv _3 subdominant third],
+               pitch: 5 },
+             { functions: %i[blue _4 fourth],
+               pitch: 6 },
+             { functions: %i[v _5 dominant fifth],
+               pitch: 7 },
+             { functions: %i[vii _6 subtonic sixth],
+               pitch: 10 },
+             { functions: %i[viii _7 seventh],
+               pitch: 12 },
+             { functions: %i[x _8 eighth],
+               pitch: 12 + 3 },
+             { functions: %i[xi _9 ninth],
+               pitch: 12 + 5 },
+             { functions: %i[blue2 _10 tenth],
+               pitch: 12 + 6 },
+             { functions: %i[xii _11 eleventh],
+               pitch: 12 + 7 },
+             { functions: %i[xiv _12 twelfth],
+               pitch: 12 + 10 }].freeze
+
+        def pitches
+          @@pitches
+        end
+
+        def grades
+          6
+        end
+
+        def id
+          :blues
+        end
+      end
+
+      EquallyTempered12ToneScaleSystem.register BluesScaleKind
+    end
+  end
+end

data/lib/musa-dsl/music/scale_kinds/chromatic_scale_kind.rb

@@ -0,0 +1,79 @@
+# frozen_string_literal: true
+
+module Musa
+  module Scales
+    # Chromatic scale kind (all 12 semitones).
+    #
+    # ChromaticScaleKind defines the chromatic scale containing all 12 semitones
+    # of the octave. It's used as a fallback for chromatic (non-diatonic) notes
+    # and for atonal or twelve-tone compositions.
+    #
+    # ## Pitch Structure
+    #
+    # Contains 12 pitch classes, one for each semitone:
+    #
+    # - Degrees: _1, _2, _3, _4, _5, _6, _7, _8, _9, _10, _11, _12
+    # - Pitches: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 (semitones from root)
+    #
+    # ## Special Properties
+    #
+    # - **chromatic?**: Returns true (only scale kind with this property)
+    # - Used automatically when accessing non-diatonic notes in diatonic scales
+    #
+    # ## Usage
+    #
+    #     chromatic = Scales[:et12][440.0][:chromatic][60]
+    #     chromatic._1   # C
+    #     chromatic._2   # C#/Db
+    #     chromatic._3   # D
+    #     # ... all 12 semitones
+    #
+    # @see ScaleKind Abstract base class
+    # @see MajorScaleKind Major scale (7 notes)
+    # @see MinorNaturalScaleKind Minor scale (7 notes)
+    class ChromaticScaleKind < ScaleKind
+      @base_metadata = {
+        family: :chromatic,
+        brightness: nil,
+        character: [:atonal, :all_notes],
+        parent: nil
+      }.freeze
+
+      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
+
+        # Pitch structure.
+        # @return [Array<Hash>] pitch definitions with functions and offsets
+        def pitches
+          @@pitches
+        end
+
+        # Scale kind identifier.
+        # @return [Symbol] :chromatic
+        def id
+          :chromatic
+        end
+
+        # Indicates if this is a chromatic scale.
+        # @return [Boolean] true
+        def chromatic?
+          true
+        end
+      end
+
+      EquallyTempered12ToneScaleSystem.register ChromaticScaleKind
+    end
+  end
+end

data/lib/musa-dsl/music/scale_kinds/ethnic/double_harmonic_scale_kind.rb

@@ -0,0 +1,102 @@
+# frozen_string_literal: true
+
+module Musa
+  module Scales
+    # Double harmonic scale kind (Byzantine scale).
+    #
+    # DoubleHarmonicScaleKind defines the double harmonic scale (also called
+    # Byzantine scale, Arabic scale, or Gypsy Major), characterized by two
+    # augmented seconds that create an exotic, Middle Eastern sound.
+    #
+    # ## Pitch Structure
+    #
+    # 7 diatonic degrees plus extended harmony:
+    #
+    # **Scale Degrees** (uppercase for major quality):
+    #
+    # - **I** (tonic): Root (0 semitones)
+    # - **II** (supertonic): Minor second (1 semitone) ← CHARACTERISTIC
+    # - **III** (mediant): Major third (4 semitones)
+    # - **IV** (subdominant): Perfect fourth (5 semitones)
+    # - **V** (dominant): Perfect fifth (7 semitones)
+    # - **VI** (submediant): Minor sixth (8 semitones) ← CHARACTERISTIC
+    # - **VII** (leading): Major seventh (11 semitones)
+    #
+    # ## Two Augmented Seconds
+    #
+    # - Between II and III (b2 to 3): 3 semitones
+    # - Between VI and VII (b6 to 7): 3 semitones
+    #
+    # ## Musical Character
+    #
+    # The double harmonic scale:
+    #
+    # - Strongly Middle Eastern/Byzantine sound
+    # - Two exotic augmented second intervals
+    # - Major quality with dramatic colorations
+    # - Used in Arabic, Turkish, Greek, and Indian music
+    #
+    # ## Usage
+    #
+    #     c_dbl_harm = Scales[:et12][440.0][:double_harmonic][60]
+    #     c_dbl_harm.tonic  # C (60)
+    #     c_dbl_harm.II     # Db (61) - minor second
+    #     c_dbl_harm.III    # E (64) - major third (augmented second above)
+    #
+    # @see ScaleKind Abstract base class
+    # @see PhrygianDominantScaleKind Spanish Phrygian (similar exotic quality)
+    # @see HungarianMinorScaleKind Hungarian minor
+    class DoubleHarmonicScaleKind < ScaleKind
+      @base_metadata = {
+        family: :ethnic,
+        brightness: -1,
+        character: [:byzantine, :arabic, :exotic],
+        parent: nil
+      }.freeze
+
+      class << self
+        @@pitches =
+            [{ functions: %i[I _1 tonic first],
+               pitch: 0 },
+             { functions: %i[II _2 supertonic second],
+               pitch: 1 },
+             { 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: 8 },
+             { functions: %i[VII _7 leading seventh],
+               pitch: 11 },
+             { functions: %i[VIII _8 eighth],
+               pitch: 12 },
+             { functions: %i[IX _9 ninth],
+               pitch: 12 + 1 },
+             { 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 + 8 }].freeze
+
+        def pitches
+          @@pitches
+        end
+
+        def grades
+          7
+        end
+
+        def id
+          :double_harmonic
+        end
+      end
+
+      EquallyTempered12ToneScaleSystem.register DoubleHarmonicScaleKind
+    end
+  end
+end

data/lib/musa-dsl/music/scale_kinds/ethnic/hungarian_minor_scale_kind.rb

@@ -0,0 +1,102 @@
+# frozen_string_literal: true
+
+module Musa
+  module Scales
+    # Hungarian minor scale kind.
+    #
+    # HungarianMinorScaleKind defines the Hungarian minor scale (also called
+    # Gypsy minor or Double Harmonic Minor), a minor scale with two
+    # augmented seconds creating an exotic, Eastern European sound.
+    #
+    # ## Pitch Structure
+    #
+    # 7 diatonic degrees plus extended harmony:
+    #
+    # **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): Augmented fourth (6 semitones) ← CHARACTERISTIC (#4)
+    # - **v** (dominant): Perfect fifth (7 semitones)
+    # - **vi** (submediant): Minor sixth (8 semitones)
+    # - **vii** (leading): Major seventh (11 semitones)
+    #
+    # ## Two Augmented Seconds
+    #
+    # - Between III and IV (b3 to #4): 3 semitones
+    # - Between VI and VII (b6 to 7): 3 semitones
+    #
+    # ## Musical Character
+    #
+    # The Hungarian minor scale:
+    #
+    # - Dramatic, passionate, exotic
+    # - Common in Hungarian and Romani music
+    # - Used by Liszt, Brahms, and other Romantic composers
+    # - Creates a distinctive "gypsy" sound
+    #
+    # ## Usage
+    #
+    #     a_hung_min = Scales[:et12][440.0][:hungarian_minor][69]
+    #     a_hung_min.tonic  # A (69)
+    #     a_hung_min.iv     # D# (75) - augmented fourth
+    #     a_hung_min.vii    # G# (80) - major seventh
+    #
+    # @see ScaleKind Abstract base class
+    # @see MinorHarmonicScaleKind Harmonic minor (one augmented second)
+    # @see DoubleHarmonicScaleKind Double harmonic (Byzantine)
+    class HungarianMinorScaleKind < ScaleKind
+      @base_metadata = {
+        family: :ethnic,
+        brightness: -2,
+        character: [:gypsy, :eastern_european, :dramatic],
+        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: 6 },
+             { functions: %i[v _5 dominant fifth],
+               pitch: 7 },
+             { functions: %i[vi _6 submediant sixth],
+               pitch: 8 },
+             { 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 + 3 },
+             { functions: %i[xi _11 eleventh],
+               pitch: 12 + 6 },
+             { 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
+          :hungarian_minor
+        end
+      end
+
+      EquallyTempered12ToneScaleSystem.register HungarianMinorScaleKind
+    end
+  end
+end