module Sharc.Instruments.Cello.Note39 (note39) where

import Sharc.Types

note39 :: Note
note39 = Note
    (Pitch 622.254 63 "d#5")
    40
    (Range
        (NoteRange
            (NoteRangeAmplitude 9956.06 16 12.8)
            (NoteRangeHarmonicFreq 1 622.25))
        (NoteRange
            (NoteRangeAmplitude 1866.76 3 2355.0)
            (NoteRangeHarmonicFreq 16 9956.06)))
    [Harmonic 1 (-0.197) 529.68
    ,Harmonic 2 1.817 779.06
    ,Harmonic 3 1.448 2355.0
    ,Harmonic 4 0.392 1563.31
    ,Harmonic 5 0.588 467.46
    ,Harmonic 6 2.923 320.03
    ,Harmonic 7 (-2.476) 61.21
    ,Harmonic 8 (-0.948) 20.31
    ,Harmonic 9 0.416 76.88
    ,Harmonic 10 (-1.968) 91.22
    ,Harmonic 11 (-1.117) 44.78
    ,Harmonic 12 2.621 59.96
    ,Harmonic 13 2.912 47.78
    ,Harmonic 14 (-0.211) 24.26
    ,Harmonic 15 2.9e-2 40.16
    ,Harmonic 16 2.066 12.8]