Note5.hs

module Sharc.Instruments.TrumpetBach.Note5 (note5) where

import Sharc.Types

note5 :: Note
note5 = Note
    (Pitch 329.628 52 "e4")
    6
    (Range
        (NoteRange
            (NoteRangeAmplitude 9888.84 30 10.1)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 1648.14 5 5304.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 (-2.239) 1065.18
    ,Harmonic 2 2.69 1711.01
    ,Harmonic 3 (-3.7e-2) 3954.6
    ,Harmonic 4 (-2.224) 4497.28
    ,Harmonic 5 1.856 5304.0
    ,Harmonic 6 (-0.356) 4595.91
    ,Harmonic 7 (-2.633) 2980.9
    ,Harmonic 8 0.865 3153.03
    ,Harmonic 9 (-1.424) 3100.89
    ,Harmonic 10 2.393 2690.14
    ,Harmonic 11 (-5.8e-2) 1885.89
    ,Harmonic 12 (-2.357) 1073.72
    ,Harmonic 13 1.781 650.45
    ,Harmonic 14 (-0.517) 483.24
    ,Harmonic 15 (-3.015) 357.88
    ,Harmonic 16 0.958 295.21
    ,Harmonic 17 (-1.284) 179.6
    ,Harmonic 18 2.825 155.19
    ,Harmonic 19 0.611 143.31
    ,Harmonic 20 (-1.986) 119.22
    ,Harmonic 21 2.043 91.75
    ,Harmonic 22 (-0.453) 57.21
    ,Harmonic 23 (-2.739) 48.83
    ,Harmonic 24 1.611 47.66
    ,Harmonic 25 (-0.786) 40.45
    ,Harmonic 26 (-2.57) 29.37
    ,Harmonic 27 1.814 20.16
    ,Harmonic 28 6.6e-2 14.97
    ,Harmonic 29 (-1.555) 14.37
    ,Harmonic 30 (-3.08) 10.1]