Note2.hs

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

import Sharc.Types

note2 :: Note
note2 = Note
    (Pitch 207.652 44 "g#3")
    3
    (Range
        (NoteRange
            (NoteRangeAmplitude 4360.69 21 23.86)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 207.65 1 1513.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 2.005 1513.0
    ,Harmonic 2 0.575 844.32
    ,Harmonic 3 (-0.882) 257.25
    ,Harmonic 4 (-2.783) 189.94
    ,Harmonic 5 1.577 115.46
    ,Harmonic 6 0.319 67.39
    ,Harmonic 7 0.265 105.02
    ,Harmonic 8 (-1.228) 192.37
    ,Harmonic 9 1.128 207.77
    ,Harmonic 10 (-0.606) 125.21
    ,Harmonic 11 2.858 90.04
    ,Harmonic 12 (-1.939) 45.65
    ,Harmonic 13 1.646 113.62
    ,Harmonic 14 (-0.526) 365.92
    ,Harmonic 15 (-2.412) 334.69
    ,Harmonic 16 0.869 437.1
    ,Harmonic 17 (-1.226) 296.96
    ,Harmonic 18 2.926 312.85
    ,Harmonic 19 0.962 131.29
    ,Harmonic 20 (-1.092) 101.89
    ,Harmonic 21 (-2.896) 23.86
    ,Harmonic 22 (-2.183) 125.22
    ,Harmonic 23 1.965 576.66
    ,Harmonic 24 (-0.526) 927.89
    ,Harmonic 25 1.844 1298.02
    ,Harmonic 26 (-0.413) 260.18
    ,Harmonic 27 (-1.1e-2) 38.6
    ,Harmonic 28 (-1.713) 320.9
    ,Harmonic 29 2.842 458.78
    ,Harmonic 30 0.23 810.59
    ,Harmonic 31 (-2.175) 1007.48
    ,Harmonic 32 1.607 948.65
    ,Harmonic 33 1.379 316.21
    ,Harmonic 34 (-1.813) 947.5
    ,Harmonic 35 2.193 1024.2
    ,Harmonic 36 (-8.0e-2) 702.27
    ,Harmonic 37 (-2.735) 1002.83
    ,Harmonic 38 1.365 248.43
    ,Harmonic 39 0.17 456.77
    ,Harmonic 40 (-2.755) 419.69
    ,Harmonic 41 1.419 216.19
    ,Harmonic 42 (-0.705) 173.97
    ,Harmonic 43 2.501 250.48
    ,Harmonic 44 0.558 248.28
    ,Harmonic 45 2.662 299.76
    ,Harmonic 46 0.899 213.24
    ,Harmonic 47 (-1.086) 216.26
    ,Harmonic 48 2.476 305.93]