Note14.hs

module Sharc.Instruments.TrumpetMutedC.Note14 (note14) where

import Sharc.Types

note14 :: Note
note14 = Note
    (Pitch 415.305 56 "g#4")
    15
    (Range
        (NoteRange
            (NoteRangeAmplitude 2491.83 6 54.02)
            (NoteRangeHarmonicFreq 1 415.3))
        (NoteRange
            (NoteRangeAmplitude 415.3 1 1365.0)
            (NoteRangeHarmonicFreq 24 9967.32)))
    [Harmonic 1 0.604 1365.0
    ,Harmonic 2 (-2.328) 359.21
    ,Harmonic 3 0.935 154.14
    ,Harmonic 4 (-0.246) 306.82
    ,Harmonic 5 0.56 223.52
    ,Harmonic 6 (-0.785) 54.02
    ,Harmonic 7 0.998 467.85
    ,Harmonic 8 2.747 672.05
    ,Harmonic 9 (-1.684) 610.68
    ,Harmonic 10 0.946 159.98
    ,Harmonic 11 0.16 93.97
    ,Harmonic 12 1.89 1139.39
    ,Harmonic 13 2.117 347.79
    ,Harmonic 14 0.988 354.59
    ,Harmonic 15 (-3.0) 1164.12
    ,Harmonic 16 (-2.208) 1329.82
    ,Harmonic 17 1.028 1008.8
    ,Harmonic 18 3.054 863.78
    ,Harmonic 19 (-1.753) 541.31
    ,Harmonic 20 0.957 303.56
    ,Harmonic 21 (-2.865) 176.01
    ,Harmonic 22 (-1.26) 276.18
    ,Harmonic 23 4.7e-2 158.79
    ,Harmonic 24 1.153 328.94]