module Sharc.Instruments.TrumpetBach.Note26 (note26) where

import Sharc.Types

note26 :: Note
note26 = Note
    (Pitch 1108.73 73 "c#6")
    27
    (Range
        (NoteRange
            (NoteRangeAmplitude 6652.38 6 41.03)
            (NoteRangeHarmonicFreq 1 1108.73))
        (NoteRange
            (NoteRangeAmplitude 1108.73 1 4153.0)
            (NoteRangeHarmonicFreq 8 8869.84)))
    [Harmonic 1 (-1.31) 4153.0
    ,Harmonic 2 2.627 2294.89
    ,Harmonic 3 (-0.165) 1117.82
    ,Harmonic 4 (-2.978) 241.81
    ,Harmonic 5 1.492 225.09
    ,Harmonic 6 (-0.188) 41.03
    ,Harmonic 7 2.135 47.43
    ,Harmonic 8 1.208 53.36]