Note17.hs

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

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 184.997 42 "f#3")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 7399.88 40 1.08)
            (NoteRangeHarmonicFreq 1 184.99))
        (NoteRange
            (NoteRangeAmplitude 184.99 1 3197.0)
            (NoteRangeHarmonicFreq 54 9989.83)))
    [Harmonic 1 1.249 3197.0
    ,Harmonic 2 2.926 4.76
    ,Harmonic 3 2.527 524.98
    ,Harmonic 4 (-2.926) 100.34
    ,Harmonic 5 1.674 549.24
    ,Harmonic 6 1.759 274.91
    ,Harmonic 7 (-2.703) 137.64
    ,Harmonic 8 2.119 207.84
    ,Harmonic 9 1.984 358.55
    ,Harmonic 10 1.811 106.41
    ,Harmonic 11 (-0.205) 271.4
    ,Harmonic 12 (-2.345) 110.15
    ,Harmonic 13 0.209 334.28
    ,Harmonic 14 (-2.948) 28.81
    ,Harmonic 15 (-2.15) 120.26
    ,Harmonic 16 1.007 74.47
    ,Harmonic 17 (-5.1e-2) 40.88
    ,Harmonic 18 (-1.929) 20.97
    ,Harmonic 19 (-1.469) 86.46
    ,Harmonic 20 (-3.091) 8.89
    ,Harmonic 21 0.226 37.0
    ,Harmonic 22 (-1.199) 2.76
    ,Harmonic 23 (-2.019) 27.29
    ,Harmonic 24 (-2.877) 8.09
    ,Harmonic 25 0.832 15.69
    ,Harmonic 26 3.6e-2 43.52
    ,Harmonic 27 0.22 10.14
    ,Harmonic 28 (-1.846) 39.88
    ,Harmonic 29 (-2.62) 24.7
    ,Harmonic 30 (-2.014) 31.79
    ,Harmonic 31 0.966 32.31
    ,Harmonic 32 1.076 3.98
    ,Harmonic 33 (-3.092) 23.36
    ,Harmonic 34 1.624 3.18
    ,Harmonic 35 0.583 4.7
    ,Harmonic 36 (-0.598) 6.01
    ,Harmonic 37 (-6.5e-2) 5.41
    ,Harmonic 38 (-1.085) 4.21
    ,Harmonic 39 (-0.642) 1.49
    ,Harmonic 40 1.805 1.08
    ,Harmonic 41 2.069 5.12
    ,Harmonic 42 2.741 4.99
    ,Harmonic 43 2.868 4.59
    ,Harmonic 44 (-1.834) 6.31
    ,Harmonic 45 (-1.646) 4.61
    ,Harmonic 46 (-1.75) 5.84
    ,Harmonic 47 (-1.22) 5.8
    ,Harmonic 48 (-0.372) 2.07
    ,Harmonic 49 0.313 4.49
    ,Harmonic 50 1.033 3.53
    ,Harmonic 51 1.23 3.76
    ,Harmonic 52 2.272 3.04
    ,Harmonic 53 2.858 3.2
    ,Harmonic 54 (-2.846) 2.13]