Note13.hs

module Sharc.Instruments.AltoFlute.Note13 (note13) where

import Sharc.Types

note13 :: Note
note13 = Note
    (Pitch 415.305 56 "g#4")
    14
    (Range
        (NoteRange
            (NoteRangeAmplitude 7890.79 19 2.02)
            (NoteRangeHarmonicFreq 1 415.3))
        (NoteRange
            (NoteRangeAmplitude 830.61 2 7262.0)
            (NoteRangeHarmonicFreq 24 9967.32)))
    [Harmonic 1 (-1.516) 6162.51
    ,Harmonic 2 (-1.556) 7262.0
    ,Harmonic 3 2.418 1826.06
    ,Harmonic 4 (-1.233) 320.22
    ,Harmonic 5 2.826 339.05
    ,Harmonic 6 1.154 113.28
    ,Harmonic 7 (-1.566) 123.99
    ,Harmonic 8 (-3.124) 129.7
    ,Harmonic 9 0.777 57.78
    ,Harmonic 10 (-1.781) 39.13
    ,Harmonic 11 2.694 33.59
    ,Harmonic 12 0.665 34.14
    ,Harmonic 13 (-0.832) 10.78
    ,Harmonic 14 (-2.883) 15.57
    ,Harmonic 15 1.818 9.43
    ,Harmonic 16 9.7e-2 6.05
    ,Harmonic 17 (-2.816) 9.92
    ,Harmonic 18 2.818 2.74
    ,Harmonic 19 0.805 2.02
    ,Harmonic 20 (-0.503) 10.19
    ,Harmonic 21 (-2.164) 7.08
    ,Harmonic 22 2.294 3.51
    ,Harmonic 23 (-1.5e-2) 2.92
    ,Harmonic 24 (-0.974) 3.16]