Note34.hs

module Sharc.Instruments.Contrabass.Note34 (note34) where

import Sharc.Types

note34 :: Note
note34 = Note
    (Pitch 233.082 46 "a#3")
    35
    (Range
        (NoteRange
            (NoteRangeAmplitude 8857.11 38 0.59)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 233.08 1 6141.0)
            (NoteRangeHarmonicFreq 43 10022.52)))
    [Harmonic 1 1.408 6141.0
    ,Harmonic 2 1.314 548.32
    ,Harmonic 3 1.893 664.13
    ,Harmonic 4 (-1.888) 249.15
    ,Harmonic 5 3.032 60.53
    ,Harmonic 6 (-2.612) 178.74
    ,Harmonic 7 1.57 348.28
    ,Harmonic 8 1.005 178.41
    ,Harmonic 9 (-2.082) 29.34
    ,Harmonic 10 (-2.887) 73.7
    ,Harmonic 11 2.585 28.12
    ,Harmonic 12 0.521 89.47
    ,Harmonic 13 2.664 28.86
    ,Harmonic 14 0.659 41.84
    ,Harmonic 15 1.255 27.65
    ,Harmonic 16 2.814 9.94
    ,Harmonic 17 1.518 22.76
    ,Harmonic 18 (-2.904) 2.38
    ,Harmonic 19 (-1.259) 5.3
    ,Harmonic 20 1.845 13.26
    ,Harmonic 21 (-1.523) 7.88
    ,Harmonic 22 2.94 24.89
    ,Harmonic 23 (-1.895) 6.56
    ,Harmonic 24 0.227 7.39
    ,Harmonic 25 (-1.08) 14.18
    ,Harmonic 26 (-2.406) 3.06
    ,Harmonic 27 (-0.616) 9.11
    ,Harmonic 28 (-2.91) 19.6
    ,Harmonic 29 0.367 8.88
    ,Harmonic 30 (-0.271) 8.14
    ,Harmonic 31 (-0.95) 3.38
    ,Harmonic 32 (-2.956) 0.67
    ,Harmonic 33 (-1.431) 2.71
    ,Harmonic 34 2.702 2.65
    ,Harmonic 35 (-1.84) 3.4
    ,Harmonic 36 (-1.405) 2.79
    ,Harmonic 37 2.109 1.97
    ,Harmonic 38 1.571 0.59
    ,Harmonic 39 0.256 1.01
    ,Harmonic 40 2.963 1.65
    ,Harmonic 41 1.124 0.67
    ,Harmonic 42 (-2.831) 0.98
    ,Harmonic 43 (-2.935) 0.93]