Note30.hs

module Sharc.Instruments.Bassoon.Note30 (note30) where

import Sharc.Types

note30 :: Note
note30 = Note
    (Pitch 329.628 52 "e4")
    31
    (Range
        (NoteRange
            (NoteRangeAmplitude 7581.44 23 0.46)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 659.25 2 3762.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 (-0.724) 1714.74
    ,Harmonic 2 (-2.148) 3762.0
    ,Harmonic 3 (-0.809) 1039.8
    ,Harmonic 4 2.992 232.93
    ,Harmonic 5 0.712 124.82
    ,Harmonic 6 (-0.95) 87.44
    ,Harmonic 7 2.431 21.53
    ,Harmonic 8 (-1.994) 16.75
    ,Harmonic 9 0.788 7.32
    ,Harmonic 10 2.556 9.42
    ,Harmonic 11 0.172 6.1
    ,Harmonic 12 1.162 6.0
    ,Harmonic 13 (-0.283) 5.85
    ,Harmonic 14 (-2.782) 9.21
    ,Harmonic 15 0.494 7.37
    ,Harmonic 16 2.361 4.73
    ,Harmonic 17 (-2.834) 2.49
    ,Harmonic 18 0.975 0.76
    ,Harmonic 19 (-1.42) 2.14
    ,Harmonic 20 1.106 3.43
    ,Harmonic 21 (-0.953) 0.67
    ,Harmonic 22 2.391 2.68
    ,Harmonic 23 (-7.1e-2) 0.46
    ,Harmonic 24 (-1.284) 1.05
    ,Harmonic 25 1.7e-2 2.57
    ,Harmonic 26 (-0.877) 0.49
    ,Harmonic 27 1.93 1.46
    ,Harmonic 28 0.111 0.83
    ,Harmonic 29 2.624 1.47
    ,Harmonic 30 1.102 3.05]