Note17.hs

module Sharc.Instruments.TrumpetBach.Note17 (note17) where

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 659.255 64 "e5")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 9229.57 14 18.37)
            (NoteRangeHarmonicFreq 1 659.25))
        (NoteRange
            (NoteRangeAmplitude 1318.51 2 4301.0)
            (NoteRangeHarmonicFreq 14 9229.57)))
    [Harmonic 1 1.146 1690.62
    ,Harmonic 2 1.199 4301.0
    ,Harmonic 3 1.862 2954.19
    ,Harmonic 4 1.499 1369.28
    ,Harmonic 5 0.634 671.59
    ,Harmonic 6 0.451 367.03
    ,Harmonic 7 1.089 279.62
    ,Harmonic 8 1.064 201.03
    ,Harmonic 9 1.333 148.77
    ,Harmonic 10 1.816 98.64
    ,Harmonic 11 2.283 69.5
    ,Harmonic 12 2.387 38.53
    ,Harmonic 13 2.34 26.15
    ,Harmonic 14 2.463 18.37]