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

import Sharc.Types

note38 :: Note
note38 = Note
    (Pitch 587.33 62 "d5")
    39
    (Range
        (NoteRange
            (NoteRangeAmplitude 8809.95 15 14.01)
            (NoteRangeHarmonicFreq 1 587.33))
        (NoteRange
            (NoteRangeAmplitude 587.33 1 2348.0)
            (NoteRangeHarmonicFreq 16 9397.28)))
    [Harmonic 1 (-2.837) 2348.0
    ,Harmonic 2 (-1.72) 1404.62
    ,Harmonic 3 (-1.061) 2134.71
    ,Harmonic 4 2.439 1338.54
    ,Harmonic 5 (-1.046) 1917.99
    ,Harmonic 6 (-0.795) 218.91
    ,Harmonic 7 (-2.436) 381.99
    ,Harmonic 8 1.609 63.59
    ,Harmonic 9 1.676 45.34
    ,Harmonic 10 0.668 43.88
    ,Harmonic 11 (-2.616) 124.62
    ,Harmonic 12 1.145 79.54
    ,Harmonic 13 1.577 59.32
    ,Harmonic 14 1.04 29.61
    ,Harmonic 15 (-1.128) 14.01
    ,Harmonic 16 (-2.191) 22.9]