Note5.hs

module Sharc.Instruments.BassFlute.Note5 (note5) where

import Sharc.Types

note5 :: Note
note5 = Note
    (Pitch 174.614 41 "f3")
    6
    (Range
        (NoteRange
            (NoteRangeAmplitude 9778.38 56 0.14)
            (NoteRangeHarmonicFreq 1 174.61))
        (NoteRange
            (NoteRangeAmplitude 174.61 1 3742.0)
            (NoteRangeHarmonicFreq 56 9778.38)))
    [Harmonic 1 1.91 3742.0
    ,Harmonic 2 (-1.042) 3207.62
    ,Harmonic 3 2.2 670.57
    ,Harmonic 4 (-1.244) 612.44
    ,Harmonic 5 0.535 127.03
    ,Harmonic 6 1.238 153.08
    ,Harmonic 7 2.773 109.76
    ,Harmonic 8 (-2.753) 30.7
    ,Harmonic 9 (-2.54) 16.24
    ,Harmonic 10 0.832 9.69
    ,Harmonic 11 (-2.024) 12.69
    ,Harmonic 12 1.656 6.76
    ,Harmonic 13 (-2.767) 9.84
    ,Harmonic 14 (-0.279) 3.29
    ,Harmonic 15 0.552 7.7
    ,Harmonic 16 3.091 12.07
    ,Harmonic 17 (-0.621) 7.21
    ,Harmonic 18 0.886 2.33
    ,Harmonic 19 2.868 2.26
    ,Harmonic 20 (-1.492) 5.27
    ,Harmonic 21 1.303 2.09
    ,Harmonic 22 0.838 1.08
    ,Harmonic 23 (-2.858) 3.68
    ,Harmonic 24 0.683 3.08
    ,Harmonic 25 (-1.721) 0.68
    ,Harmonic 26 1.121 3.06
    ,Harmonic 27 (-2.165) 1.99
    ,Harmonic 28 0.956 1.65
    ,Harmonic 29 (-2.328) 1.19
    ,Harmonic 30 3.008 1.15
    ,Harmonic 31 (-5.2e-2) 1.21
    ,Harmonic 32 2.696 1.01
    ,Harmonic 33 (-1.071) 2.22
    ,Harmonic 34 2.324 1.68
    ,Harmonic 35 (-0.876) 0.48
    ,Harmonic 36 (-0.621) 0.58
    ,Harmonic 37 1.697 0.8
    ,Harmonic 38 (-2.045) 0.74
    ,Harmonic 39 0.534 1.39
    ,Harmonic 40 2.598 2.74
    ,Harmonic 41 (-1.518) 6.81
    ,Harmonic 42 0.201 4.34
    ,Harmonic 43 (-0.659) 0.69
    ,Harmonic 44 2.64 1.71
    ,Harmonic 45 (-1.832) 1.46
    ,Harmonic 46 0.923 1.28
    ,Harmonic 47 2.422 0.36
    ,Harmonic 48 0.898 0.78
    ,Harmonic 49 2.555 0.64
    ,Harmonic 50 (-0.939) 1.17
    ,Harmonic 51 1.011 0.97
    ,Harmonic 52 1.688 0.2
    ,Harmonic 53 (-3.138) 1.06
    ,Harmonic 54 (-1.077) 0.47
    ,Harmonic 55 0.612 0.39
    ,Harmonic 56 (-0.377) 0.14]