module Sharc.Instruments.Cello.Note41 (note41) where

import Sharc.Types

note41 :: Note
note41 = Note
    (Pitch 698.456 65 "f5")
    42
    (Range
        (NoteRange
            (NoteRangeAmplitude 4889.19 7 8.15)
            (NoteRangeHarmonicFreq 1 698.45))
        (NoteRange
            (NoteRangeAmplitude 698.45 1 5210.0)
            (NoteRangeHarmonicFreq 14 9778.38)))
    [Harmonic 1 (-1.475) 5210.0
    ,Harmonic 2 (-2.569) 3658.45
    ,Harmonic 3 (-1.404) 1377.24
    ,Harmonic 4 (-1.092) 1256.58
    ,Harmonic 5 (-0.828) 204.49
    ,Harmonic 6 1.151 289.75
    ,Harmonic 7 (-2.6) 8.15
    ,Harmonic 8 3.0 92.79
    ,Harmonic 9 (-0.979) 136.93
    ,Harmonic 10 (-1.272) 48.99
    ,Harmonic 11 1.065 40.72
    ,Harmonic 12 2.412 64.76
    ,Harmonic 13 (-1.813) 32.51
    ,Harmonic 14 (-1.301) 44.88]