Note14.hs

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

import Sharc.Types

note14 :: Note
note14 = Note
    (Pitch 184.997 42 "f#3")
    15
    (Range
        (NoteRange
            (NoteRangeAmplitude 8694.85 47 1.0e-2)
            (NoteRangeHarmonicFreq 1 184.99))
        (NoteRange
            (NoteRangeAmplitude 554.99 3 3025.0)
            (NoteRangeHarmonicFreq 54 9989.83)))
    [Harmonic 1 1.805 337.3
    ,Harmonic 2 0.527 462.6
    ,Harmonic 3 (-1.947) 3025.0
    ,Harmonic 4 0.523 322.22
    ,Harmonic 5 (-0.575) 214.43
    ,Harmonic 6 1.68 140.82
    ,Harmonic 7 (-2.051) 17.7
    ,Harmonic 8 0.922 120.58
    ,Harmonic 9 (-1.524) 288.47
    ,Harmonic 10 2.546 54.82
    ,Harmonic 11 0.989 80.53
    ,Harmonic 12 (-0.596) 46.67
    ,Harmonic 13 2.717 33.63
    ,Harmonic 14 1.647 18.28
    ,Harmonic 15 (-1.547) 8.6
    ,Harmonic 16 (-3.139) 2.94
    ,Harmonic 17 (-1.404) 8.51
    ,Harmonic 18 2.132 20.49
    ,Harmonic 19 (-1.106) 6.49
    ,Harmonic 20 (-2.145) 9.57
    ,Harmonic 21 1.593 3.91
    ,Harmonic 22 0.549 7.88
    ,Harmonic 23 (-1.205) 11.6
    ,Harmonic 24 2.429 6.0
    ,Harmonic 25 0.729 1.88
    ,Harmonic 26 (-3.067) 0.66
    ,Harmonic 27 (-0.804) 0.49
    ,Harmonic 28 (-2.183) 0.61
    ,Harmonic 29 1.771 2.68
    ,Harmonic 30 (-0.988) 1.83
    ,Harmonic 31 (-1.395) 0.45
    ,Harmonic 32 1.982 1.23
    ,Harmonic 33 0.423 1.21
    ,Harmonic 34 0.673 0.38
    ,Harmonic 35 (-0.617) 0.41
    ,Harmonic 36 (-0.883) 0.16
    ,Harmonic 37 (-0.402) 0.42
    ,Harmonic 38 (-1.356) 0.13
    ,Harmonic 39 0.279 0.26
    ,Harmonic 40 (-0.195) 0.33
    ,Harmonic 41 (-0.295) 0.36
    ,Harmonic 42 (-0.171) 0.42
    ,Harmonic 43 8.7e-2 0.56
    ,Harmonic 44 (-2.469) 0.2
    ,Harmonic 45 (-0.719) 0.64
    ,Harmonic 46 2.408 0.38
    ,Harmonic 47 (-0.765) 1.0e-2
    ,Harmonic 48 (-0.274) 0.22
    ,Harmonic 49 (-2.015) 0.2
    ,Harmonic 50 1.013 0.34
    ,Harmonic 51 (-0.608) 0.44
    ,Harmonic 52 3.044 0.14
    ,Harmonic 53 0.451 0.32
    ,Harmonic 54 (-0.317) 0.44]