Note16.hs

module Sharc.Instruments.BassFlute.Note16 (note16) where

import Sharc.Types

note16 :: Note
note16 = Note
    (Pitch 329.628 52 "e4")
    17
    (Range
        (NoteRange
            (NoteRangeAmplitude 9559.21 29 3.93)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 329.62 1 5868.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 (-1.207) 5868.0
    ,Harmonic 2 (-2.519) 2692.87
    ,Harmonic 3 2.132 1201.31
    ,Harmonic 4 (-0.463) 478.35
    ,Harmonic 5 (-1.314) 91.07
    ,Harmonic 6 1.707 212.42
    ,Harmonic 7 (-0.581) 138.88
    ,Harmonic 8 (-2.531) 79.21
    ,Harmonic 9 2.005 46.82
    ,Harmonic 10 0.374 40.43
    ,Harmonic 11 (-1.525) 14.04
    ,Harmonic 12 2.367 19.79
    ,Harmonic 13 1.345 14.06
    ,Harmonic 14 1.056 5.35
    ,Harmonic 15 (-2.338) 6.06
    ,Harmonic 16 (-2.277) 11.26
    ,Harmonic 17 (-2.786) 10.17
    ,Harmonic 18 (-1.831) 13.07
    ,Harmonic 19 (-1.898) 8.3
    ,Harmonic 20 (-2.537) 4.85
    ,Harmonic 21 1.708 9.62
    ,Harmonic 22 (-0.793) 10.42
    ,Harmonic 23 (-2.309) 29.23
    ,Harmonic 24 (-1.619) 15.87
    ,Harmonic 25 (-1.803) 10.15
    ,Harmonic 26 0.815 4.78
    ,Harmonic 27 1.154 5.18
    ,Harmonic 28 (-1.714) 7.62
    ,Harmonic 29 (-2.482) 3.93
    ,Harmonic 30 0.772 4.38]