module Sharc.Instruments.Clarinet.Note9 (note9) where

import Sharc.Types

note9 :: Note
note9 = Note
    (Pitch 246.942 47 "b3")
    10
    (Range
        (NoteRange
            (NoteRangeAmplitude 7655.2 31 0.32)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 246.94 1 2392.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 (-0.951) 2392.0
    ,Harmonic 2 1.308 45.02
    ,Harmonic 3 (-0.585) 862.54
    ,Harmonic 4 0.895 104.85
    ,Harmonic 5 (-1.703) 687.11
    ,Harmonic 6 3.112 270.39
    ,Harmonic 7 2.55 685.75
    ,Harmonic 8 1.572 186.41
    ,Harmonic 9 2.526 177.43
    ,Harmonic 10 3.049 243.07
    ,Harmonic 11 2.73 62.44
    ,Harmonic 12 2.035 122.74
    ,Harmonic 13 2.406 487.34
    ,Harmonic 14 2.427 194.7
    ,Harmonic 15 1.583 72.83
    ,Harmonic 16 0.174 20.82
    ,Harmonic 17 (-2.107) 16.92
    ,Harmonic 18 (-2.694) 51.24
    ,Harmonic 19 (-2.986) 9.57
    ,Harmonic 20 3.067 24.5
    ,Harmonic 21 (-2.977) 20.82
    ,Harmonic 22 (-2.094) 13.2
    ,Harmonic 23 (-1.854) 6.01
    ,Harmonic 24 (-2.833) 6.71
    ,Harmonic 25 (-2.951) 5.73
    ,Harmonic 26 3.003 10.18
    ,Harmonic 27 (-1.638) 2.44
    ,Harmonic 28 1.073 0.86
    ,Harmonic 29 0.565 1.26
    ,Harmonic 30 (-4.6e-2) 0.91
    ,Harmonic 31 1.513 0.32
    ,Harmonic 32 (-1.57) 0.94
    ,Harmonic 33 (-0.4) 0.61
    ,Harmonic 34 (-1.648) 0.92
    ,Harmonic 35 1.582 1.51
    ,Harmonic 36 (-2.368) 0.5
    ,Harmonic 37 (-1.107) 0.83
    ,Harmonic 38 (-2.397) 2.69
    ,Harmonic 39 (-1.933) 0.53
    ,Harmonic 40 1.941 0.6]