Note38.hs

module Sharc.Instruments.ContrabassMuted.Note38 (note38) where

import Sharc.Types

note38 :: Note
note38 = Note
    (Pitch 293.665 50 "d4")
    39
    (Range
        (NoteRange
            (NoteRangeAmplitude 6460.63 22 0.34)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 587.33 2 737.0)
            (NoteRangeHarmonicFreq 33 9690.94)))
    [Harmonic 1 1.604 666.36
    ,Harmonic 2 1.455 737.0
    ,Harmonic 3 (-2.082) 134.46
    ,Harmonic 4 (-1.974) 34.75
    ,Harmonic 5 0.184 392.13
    ,Harmonic 6 6.4e-2 199.09
    ,Harmonic 7 1.118 37.35
    ,Harmonic 8 (-1.417) 20.68
    ,Harmonic 9 2.771 233.63
    ,Harmonic 10 (-2.534) 146.59
    ,Harmonic 11 2.985 61.25
    ,Harmonic 12 (-3.063) 17.09
    ,Harmonic 13 0.407 35.36
    ,Harmonic 14 (-1.336) 25.58
    ,Harmonic 15 0.115 15.2
    ,Harmonic 16 (-1.355) 4.76
    ,Harmonic 17 (-2.651) 8.66
    ,Harmonic 18 (-2.686) 9.78
    ,Harmonic 19 (-2.176) 9.34
    ,Harmonic 20 (-2.993) 16.36
    ,Harmonic 21 2.166 2.43
    ,Harmonic 22 (-3.053) 0.34
    ,Harmonic 23 (-2.748) 1.41
    ,Harmonic 24 2.281 3.34
    ,Harmonic 25 0.389 0.55
    ,Harmonic 26 2.797 1.85
    ,Harmonic 27 (-2.927) 7.69
    ,Harmonic 28 (-2.875) 3.84
    ,Harmonic 29 (-2.942) 11.89
    ,Harmonic 30 (-2.659) 3.06
    ,Harmonic 31 2.137 2.54
    ,Harmonic 32 2.698 2.22
    ,Harmonic 33 3.083 1.47]