module Sharc.Instruments.TrumpetBach.Note19 (note19) where

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 739.989 66 "f#5")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 8879.86 12 6.96)
            (NoteRangeHarmonicFreq 1 739.98))
        (NoteRange
            (NoteRangeAmplitude 1479.97 2 4600.0)
            (NoteRangeHarmonicFreq 12 8879.86)))
    [Harmonic 1 (-1.969) 4274.36
    ,Harmonic 2 1.545 4600.0
    ,Harmonic 3 (-0.99) 4269.58
    ,Harmonic 4 2.077 1507.4
    ,Harmonic 5 (-0.863) 846.34
    ,Harmonic 6 2.782 587.08
    ,Harmonic 7 0.405 362.42
    ,Harmonic 8 (-2.309) 221.54
    ,Harmonic 9 1.402 109.35
    ,Harmonic 10 (-1.047) 55.82
    ,Harmonic 11 2.636 23.07
    ,Harmonic 12 (-0.758) 6.96]