Note33.hs

module Sharc.Instruments.ContrabassPizzicato.Note33 (note33) where

import Sharc.Types

note33 :: Note
note33 = Note
    (Pitch 233.082 46 "a#3")
    34
    (Range
        (NoteRange
            (NoteRangeAmplitude 9323.27 40 0.26)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 233.08 1 2554.0)
            (NoteRangeHarmonicFreq 43 10022.52)))
    [Harmonic 1 (-1.772) 2554.0
    ,Harmonic 2 2.975 198.0
    ,Harmonic 3 (-1.735) 237.7
    ,Harmonic 4 3.109 107.38
    ,Harmonic 5 (-2.605) 28.59
    ,Harmonic 6 2.066 46.81
    ,Harmonic 7 0.193 6.61
    ,Harmonic 8 (-0.175) 5.5
    ,Harmonic 9 2.876 5.66
    ,Harmonic 10 3.054 2.52
    ,Harmonic 11 1.416 3.13
    ,Harmonic 12 (-2.113) 3.9
    ,Harmonic 13 0.725 1.33
    ,Harmonic 14 (-0.953) 2.42
    ,Harmonic 15 (-3.024) 1.56
    ,Harmonic 16 (-0.942) 1.77
    ,Harmonic 17 2.5e-2 1.89
    ,Harmonic 18 (-0.453) 1.83
    ,Harmonic 19 (-2.082) 1.28
    ,Harmonic 20 (-0.916) 1.54
    ,Harmonic 21 (-2.089) 1.4
    ,Harmonic 22 (-2.946) 2.13
    ,Harmonic 23 0.808 0.72
    ,Harmonic 24 (-1.122) 1.48
    ,Harmonic 25 1.218 0.88
    ,Harmonic 26 7.9e-2 0.89
    ,Harmonic 27 (-1.773) 1.62
    ,Harmonic 28 2.023 0.35
    ,Harmonic 29 (-2.76) 0.36
    ,Harmonic 30 (-0.299) 0.39
    ,Harmonic 31 (-1.752) 0.34
    ,Harmonic 32 (-0.684) 1.61
    ,Harmonic 33 (-1.814) 0.79
    ,Harmonic 34 0.758 1.58
    ,Harmonic 35 0.363 1.01
    ,Harmonic 36 2.053 1.03
    ,Harmonic 37 2.944 1.45
    ,Harmonic 38 8.6e-2 0.59
    ,Harmonic 39 1.176 1.2
    ,Harmonic 40 (-0.962) 0.26
    ,Harmonic 41 (-0.807) 0.67
    ,Harmonic 42 (-1.803) 0.72
    ,Harmonic 43 1.518 0.89]