Note17.hs

module Sharc.Instruments.BassFlute.Note17 (note17) where

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 349.228 53 "f4")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 5936.87 17 1.01)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 349.22 1 5366.0)
            (NoteRangeHarmonicFreq 29 10127.61)))
    [Harmonic 1 (-1.419) 5366.0
    ,Harmonic 2 (-2.619) 1939.38
    ,Harmonic 3 0.578 1198.96
    ,Harmonic 4 (-2.32) 169.93
    ,Harmonic 5 1.956 154.5
    ,Harmonic 6 2.8e-2 87.68
    ,Harmonic 7 (-2.197) 31.99
    ,Harmonic 8 1.529 29.68
    ,Harmonic 9 0.86 3.75
    ,Harmonic 10 2.745 10.1
    ,Harmonic 11 0.463 9.85
    ,Harmonic 12 (-2.641) 4.26
    ,Harmonic 13 1.952 8.54
    ,Harmonic 14 1.164 7.3
    ,Harmonic 15 2.273 7.79
    ,Harmonic 16 (-2.832) 1.94
    ,Harmonic 17 2.067 1.01
    ,Harmonic 18 (-1.854) 3.64
    ,Harmonic 19 2.119 9.11
    ,Harmonic 20 0.66 9.92
    ,Harmonic 21 (-2.549) 15.32
    ,Harmonic 22 2.12 28.54
    ,Harmonic 23 0.23 19.98
    ,Harmonic 24 (-1.048) 7.34
    ,Harmonic 25 1.755 10.41
    ,Harmonic 26 0.646 14.29
    ,Harmonic 27 (-2.33) 5.53
    ,Harmonic 28 2.468 8.67
    ,Harmonic 29 1.276 1.75]