Note6.hs

module Sharc.Instruments.BassFlute.Note6 (note6) where

import Sharc.Types

note6 :: Note
note6 = Note
    (Pitch 184.997 42 "f#3")
    7
    (Range
        (NoteRange
            (NoteRangeAmplitude 9989.83 54 0.16)
            (NoteRangeHarmonicFreq 1 184.99))
        (NoteRange
            (NoteRangeAmplitude 184.99 1 4767.0)
            (NoteRangeHarmonicFreq 54 9989.83)))
    [Harmonic 1 (-1.736) 4767.0
    ,Harmonic 2 (-1.277) 4328.62
    ,Harmonic 3 (-1.28) 1405.06
    ,Harmonic 4 2.993 1308.29
    ,Harmonic 5 (-5.8e-2) 88.05
    ,Harmonic 6 (-0.69) 660.56
    ,Harmonic 7 2.659 43.42
    ,Harmonic 8 2.289 127.86
    ,Harmonic 9 (-0.585) 9.17
    ,Harmonic 10 (-1.576) 90.67
    ,Harmonic 11 (-2.47) 76.08
    ,Harmonic 12 2.275 26.09
    ,Harmonic 13 (-1.246) 9.95
    ,Harmonic 14 (-1.459) 21.6
    ,Harmonic 15 (-2.108) 26.32
    ,Harmonic 16 (-2.364) 2.39
    ,Harmonic 17 (-1.131) 4.29
    ,Harmonic 18 (-1.125) 7.79
    ,Harmonic 19 (-2.869) 4.48
    ,Harmonic 20 1.694 1.63
    ,Harmonic 21 (-0.477) 4.63
    ,Harmonic 22 (-0.632) 4.51
    ,Harmonic 23 0.873 1.76
    ,Harmonic 24 1.048 1.68
    ,Harmonic 25 (-0.149) 0.89
    ,Harmonic 26 3.002 1.5
    ,Harmonic 27 2.398 1.35
    ,Harmonic 28 2.122 2.07
    ,Harmonic 29 1.076 0.86
    ,Harmonic 30 0.228 1.02
    ,Harmonic 31 (-3.126) 0.9
    ,Harmonic 32 1.741 0.84
    ,Harmonic 33 0.96 1.04
    ,Harmonic 34 (-0.567) 0.85
    ,Harmonic 35 (-2.888) 1.34
    ,Harmonic 36 2.872 1.0
    ,Harmonic 37 1.752 1.94
    ,Harmonic 38 2.824 0.56
    ,Harmonic 39 (-2.752) 1.83
    ,Harmonic 40 1.865 4.6
    ,Harmonic 41 1.341 5.62
    ,Harmonic 42 (-0.835) 1.23
    ,Harmonic 43 2.233 1.59
    ,Harmonic 44 1.027 1.17
    ,Harmonic 45 1.443 1.17
    ,Harmonic 46 1.269 0.46
    ,Harmonic 47 (-2.686) 0.61
    ,Harmonic 48 2.731 1.37
    ,Harmonic 49 2.04 0.9
    ,Harmonic 50 (-0.529) 0.47
    ,Harmonic 51 (-2.452) 0.62
    ,Harmonic 52 (-3.027) 0.54
    ,Harmonic 53 2.19 0.72
    ,Harmonic 54 1.829 0.16]