module Sharc.Instruments.TrumpetBach.Note14 (note14) where

import Sharc.Types

note14 :: Note
note14 = Note
    (Pitch 554.365 61 "c#5")
    15
    (Range
        (NoteRange
            (NoteRangeAmplitude 8315.47 15 15.97)
            (NoteRangeHarmonicFreq 1 554.36))
        (NoteRange
            (NoteRangeAmplitude 1108.73 2 5820.0)
            (NoteRangeHarmonicFreq 17 9424.2)))
    [Harmonic 1 1.309 1381.77
    ,Harmonic 2 1.328 5820.0
    ,Harmonic 3 1.598 5685.49
    ,Harmonic 4 1.422 3590.12
    ,Harmonic 5 1.313 4735.82
    ,Harmonic 6 0.745 1873.34
    ,Harmonic 7 0.849 1233.43
    ,Harmonic 8 1.33 576.69
    ,Harmonic 9 1.36 415.68
    ,Harmonic 10 1.66 303.85
    ,Harmonic 11 1.504 178.82
    ,Harmonic 12 1.916 178.43
    ,Harmonic 13 2.607 79.85
    ,Harmonic 14 2.731 41.07
    ,Harmonic 15 2.268 15.97
    ,Harmonic 16 1.76 18.58
    ,Harmonic 17 2.346 25.89]