Note43.hs

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

import Sharc.Types

note43 :: Note
note43 = Note
    (Pitch 783.991 67 "g5")
    44
    (Range
        (NoteRange
            (NoteRangeAmplitude 7055.91 9 4.05)
            (NoteRangeHarmonicFreq 1 783.99))
        (NoteRange
            (NoteRangeAmplitude 1567.98 2 2899.0)
            (NoteRangeHarmonicFreq 12 9407.89)))
    [Harmonic 1 (-2.384) 836.56
    ,Harmonic 2 (-0.854) 2899.0
    ,Harmonic 3 2.962 1138.26
    ,Harmonic 4 2.436 563.04
    ,Harmonic 5 (-2.604) 153.4
    ,Harmonic 6 (-1.142) 23.32
    ,Harmonic 7 (-1.761) 31.25
    ,Harmonic 8 (-0.589) 32.91
    ,Harmonic 9 2.263 4.05
    ,Harmonic 10 (-2.613) 15.15
    ,Harmonic 11 0.931 20.82
    ,Harmonic 12 (-1.589) 8.83]