Note37.hs

module Sharc.Instruments.ContrabassPizzicato.Note37 (note37) where

import Sharc.Types

note37 :: Note
note37 = Note
    (Pitch 293.665 50 "d4")
    38
    (Range
        (NoteRange
            (NoteRangeAmplitude 8809.95 30 0.14)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 293.66 1 3934.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 (-1.953) 3934.0
    ,Harmonic 2 (-0.883) 1486.8
    ,Harmonic 3 0.615 497.01
    ,Harmonic 4 (-1.491) 216.22
    ,Harmonic 5 (-1.569) 41.95
    ,Harmonic 6 (-2.736) 32.23
    ,Harmonic 7 (-1.852) 26.88
    ,Harmonic 8 (-2.122) 4.66
    ,Harmonic 9 2.532 8.6
    ,Harmonic 10 2.404 11.48
    ,Harmonic 11 (-0.322) 15.69
    ,Harmonic 12 2.316 9.01
    ,Harmonic 13 1.632 4.84
    ,Harmonic 14 (-0.448) 0.47
    ,Harmonic 15 1.558 2.58
    ,Harmonic 16 2.151 1.35
    ,Harmonic 17 0.338 2.11
    ,Harmonic 18 2.596 3.46
    ,Harmonic 19 (-1.962) 2.25
    ,Harmonic 20 (-2.005) 3.51
    ,Harmonic 21 3.098 1.14
    ,Harmonic 22 1.635 2.43
    ,Harmonic 23 2.957 0.84
    ,Harmonic 24 2.479 0.55
    ,Harmonic 25 0.258 1.32
    ,Harmonic 26 2.078 1.5
    ,Harmonic 27 (-2.364) 0.82
    ,Harmonic 28 1.495 0.61
    ,Harmonic 29 1.347 0.71
    ,Harmonic 30 (-1.473) 0.14
    ,Harmonic 31 (-0.397) 1.13
    ,Harmonic 32 (-2.879) 0.58
    ,Harmonic 33 (-1.302) 1.01
    ,Harmonic 34 (-2.84) 1.08]