Note29.hs

module Sharc.Instruments.FrenchHornMuted.Note29 (note29) where

import Sharc.Types

note29 :: Note
note29 = Note
    (Pitch 391.995 55 "g4")
    30
    (Range
        (NoteRange
            (NoteRangeAmplitude 8623.89 22 2.25)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 1175.98 3 5632.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 (-0.582) 4469.08
    ,Harmonic 2 1.367 2531.4
    ,Harmonic 3 (-2.79) 5632.0
    ,Harmonic 4 (-1.76) 4599.72
    ,Harmonic 5 0.301 2053.41
    ,Harmonic 6 1.856 907.37
    ,Harmonic 7 (-2.663) 358.62
    ,Harmonic 8 (-0.114) 251.32
    ,Harmonic 9 1.76 92.96
    ,Harmonic 10 (-2.363) 86.15
    ,Harmonic 11 (-0.258) 48.15
    ,Harmonic 12 2.081 25.77
    ,Harmonic 13 (-1.927) 28.74
    ,Harmonic 14 (-1.052) 19.34
    ,Harmonic 15 0.779 19.69
    ,Harmonic 16 (-2.918) 9.5
    ,Harmonic 17 (-1.285) 5.75
    ,Harmonic 18 1.065 5.79
    ,Harmonic 19 (-2.332) 2.67
    ,Harmonic 20 (-0.273) 6.61
    ,Harmonic 21 1.996 4.68
    ,Harmonic 22 (-1.912) 2.25
    ,Harmonic 23 (-5.4e-2) 6.19
    ,Harmonic 24 1.793 5.57
    ,Harmonic 25 (-2.008) 4.72]