Note31.hs

module Sharc.Instruments.Bassoon.Note31 (note31) where

import Sharc.Types

note31 :: Note
note31 = Note
    (Pitch 349.228 53 "f4")
    32
    (Range
        (NoteRange
            (NoteRangeAmplitude 5936.87 17 0.63)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 698.45 2 4828.0)
            (NoteRangeHarmonicFreq 28 9778.38)))
    [Harmonic 1 1.725 1743.62
    ,Harmonic 2 1.562 4828.0
    ,Harmonic 3 (-0.967) 570.14
    ,Harmonic 4 (-0.984) 386.86
    ,Harmonic 5 0.562 215.33
    ,Harmonic 6 0.184 90.28
    ,Harmonic 7 1.422 17.99
    ,Harmonic 8 1.478 4.56
    ,Harmonic 9 2.115 9.43
    ,Harmonic 10 7.0e-3 5.29
    ,Harmonic 11 0.714 8.81
    ,Harmonic 12 1.299 8.21
    ,Harmonic 13 1.71 2.76
    ,Harmonic 14 (-0.607) 0.63
    ,Harmonic 15 2.19 8.1
    ,Harmonic 16 2.113 7.79
    ,Harmonic 17 (-1.282) 0.63
    ,Harmonic 18 (-2.866) 3.31
    ,Harmonic 19 1.961 2.01
    ,Harmonic 20 (-2.612) 3.28
    ,Harmonic 21 2.325 3.5
    ,Harmonic 22 (-1.465) 1.41
    ,Harmonic 23 (-2.708) 2.52
    ,Harmonic 24 3.118 0.74
    ,Harmonic 25 (-2.76) 1.98
    ,Harmonic 26 1.748 1.21
    ,Harmonic 27 1.969 2.96
    ,Harmonic 28 (-2.76) 2.19]