Note2.hs

module Sharc.Instruments.TrumpetBach.Note2 (note2) where

import Sharc.Types

note2 :: Note
note2 = Note
    (Pitch 277.183 49 "c#4")
    3
    (Range
        (NoteRange
            (NoteRangeAmplitude 9978.58 36 2.88)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 1385.91 5 4382.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 (-0.412) 1694.95
    ,Harmonic 2 (-0.84) 997.72
    ,Harmonic 3 (-0.995) 2089.07
    ,Harmonic 4 (-1.401) 2527.8
    ,Harmonic 5 (-1.0) 4382.0
    ,Harmonic 6 (-1.943) 2542.72
    ,Harmonic 7 (-2.854) 2824.24
    ,Harmonic 8 (-3.026) 2734.54
    ,Harmonic 9 2.878 2574.79
    ,Harmonic 10 1.906 1596.94
    ,Harmonic 11 1.298 1954.8
    ,Harmonic 12 0.756 1681.81
    ,Harmonic 13 0.263 967.32
    ,Harmonic 14 (-0.434) 545.17
    ,Harmonic 15 (-1.134) 641.97
    ,Harmonic 16 (-1.424) 501.91
    ,Harmonic 17 (-1.859) 352.95
    ,Harmonic 18 (-2.509) 202.7
    ,Harmonic 19 (-2.917) 259.44
    ,Harmonic 20 2.979 208.41
    ,Harmonic 21 2.458 121.84
    ,Harmonic 22 1.724 76.07
    ,Harmonic 23 1.169 99.76
    ,Harmonic 24 0.825 76.86
    ,Harmonic 25 0.485 74.76
    ,Harmonic 26 (-0.429) 51.82
    ,Harmonic 27 (-0.924) 43.94
    ,Harmonic 28 (-1.149) 43.71
    ,Harmonic 29 (-1.398) 23.76
    ,Harmonic 30 (-2.468) 13.58
    ,Harmonic 31 (-3.045) 11.89
    ,Harmonic 32 2.637 11.19
    ,Harmonic 33 2.215 6.22
    ,Harmonic 34 1.537 7.46
    ,Harmonic 35 1.224 7.09
    ,Harmonic 36 (-1.177) 2.88]