Note20.hs

module Sharc.Instruments.Bassoon.Note20 (note20) where

import Sharc.Types

note20 :: Note
note20 = Note
    (Pitch 184.997 42 "f#3")
    21
    (Range
        (NoteRange
            (NoteRangeAmplitude 9804.84 53 0.26)
            (NoteRangeHarmonicFreq 1 184.99))
        (NoteRange
            (NoteRangeAmplitude 554.99 3 5965.0)
            (NoteRangeHarmonicFreq 54 9989.83)))
    [Harmonic 1 (-0.55) 1804.22
    ,Harmonic 2 1.038 3409.45
    ,Harmonic 3 (-2.177) 5965.0
    ,Harmonic 4 (-0.587) 1459.67
    ,Harmonic 5 1.642 1623.99
    ,Harmonic 6 2.666 1041.62
    ,Harmonic 7 0.447 214.34
    ,Harmonic 8 (-2.587) 238.52
    ,Harmonic 9 (-2.819) 33.31
    ,Harmonic 10 0.12 44.57
    ,Harmonic 11 (-1.843) 98.32
    ,Harmonic 12 2.808 13.21
    ,Harmonic 13 (-2.278) 5.32
    ,Harmonic 14 1.475 21.09
    ,Harmonic 15 (-2.1) 9.28
    ,Harmonic 16 5.7e-2 4.6
    ,Harmonic 17 (-0.879) 1.77
    ,Harmonic 18 (-2.445) 4.97
    ,Harmonic 19 2.824 5.87
    ,Harmonic 20 (-2.95) 5.08
    ,Harmonic 21 2.364 0.88
    ,Harmonic 22 0.878 1.97
    ,Harmonic 23 2.738 3.72
    ,Harmonic 24 (-2.543) 0.36
    ,Harmonic 25 (-0.797) 4.18
    ,Harmonic 26 0.889 6.88
    ,Harmonic 27 1.159 4.5
    ,Harmonic 28 2.637 1.25
    ,Harmonic 29 (-1.513) 3.65
    ,Harmonic 30 (-1.175) 2.17
    ,Harmonic 31 (-0.29) 2.28
    ,Harmonic 32 0.606 2.22
    ,Harmonic 33 2.219 1.65
    ,Harmonic 34 (-2.297) 1.28
    ,Harmonic 35 (-1.484) 2.87
    ,Harmonic 36 (-5.0e-2) 0.9
    ,Harmonic 37 1.0e-2 0.86
    ,Harmonic 38 (-0.13) 1.94
    ,Harmonic 39 0.802 1.7
    ,Harmonic 40 0.929 1.01
    ,Harmonic 41 2.471 1.64
    ,Harmonic 42 (-0.748) 1.71
    ,Harmonic 43 1.878 2.02
    ,Harmonic 44 (-1.666) 1.12
    ,Harmonic 45 0.805 0.64
    ,Harmonic 46 2.323 1.33
    ,Harmonic 47 (-1.807) 1.1
    ,Harmonic 48 (-1.283) 1.1
    ,Harmonic 49 (-0.79) 0.58
    ,Harmonic 50 (-0.832) 0.89
    ,Harmonic 51 0.966 0.45
    ,Harmonic 52 (-2.731) 1.25
    ,Harmonic 53 2.955 0.26
    ,Harmonic 54 (-0.297) 1.55]