Note43.hs

module Sharc.Instruments.CelloMarteleBowing.Note43 (note43) where

import Sharc.Types

note43 :: Note
note43 = Note
    (Pitch 783.991 67 "g5")
    44
    (Range
        (NoteRange
            (NoteRangeAmplitude 7055.91 9 46.45)
            (NoteRangeHarmonicFreq 1 783.99))
        (NoteRange
            (NoteRangeAmplitude 2351.97 3 3267.0)
            (NoteRangeHarmonicFreq 12 9407.89)))
    [Harmonic 1 (-1.797) 1684.79
    ,Harmonic 2 (-0.371) 2954.92
    ,Harmonic 3 (-2.01) 3267.0
    ,Harmonic 4 (-2.587) 1998.09
    ,Harmonic 5 (-0.875) 510.46
    ,Harmonic 6 2.3e-2 103.78
    ,Harmonic 7 (-0.698) 109.11
    ,Harmonic 8 (-0.295) 48.5
    ,Harmonic 9 (-2.914) 46.45
    ,Harmonic 10 (-2.095) 106.07
    ,Harmonic 11 1.936 132.07
    ,Harmonic 12 (-1.464) 122.47]