Note23.hs

module Sharc.Instruments.TromboneMuted.Note23 (note23) where

import Sharc.Types

note23 :: Note
note23 = Note
    (Pitch 311.127 51 "d#4")
    24
    (Range
        (NoteRange
            (NoteRangeAmplitude 4978.03 16 0.17)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 622.25 2 2877.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 0.333 1026.07
    ,Harmonic 2 1.68 2877.0
    ,Harmonic 3 4.1e-2 344.3
    ,Harmonic 4 2.698 283.51
    ,Harmonic 5 2.687 328.65
    ,Harmonic 6 (-2.445) 83.16
    ,Harmonic 7 1.15 46.55
    ,Harmonic 8 (-1.24) 21.49
    ,Harmonic 9 4.4e-2 10.75
    ,Harmonic 10 2.871 4.53
    ,Harmonic 11 (-3.048) 9.12
    ,Harmonic 12 0.252 3.45
    ,Harmonic 13 (-2.014) 0.31
    ,Harmonic 14 (-2.17) 1.72
    ,Harmonic 15 2.578 0.46
    ,Harmonic 16 (-2.896) 0.17
    ,Harmonic 17 1.736 1.07
    ,Harmonic 18 (-2.013) 2.64
    ,Harmonic 19 2.258 2.56
    ,Harmonic 20 (-2.03) 0.82
    ,Harmonic 21 (-2.999) 0.74
    ,Harmonic 22 (-3.059) 0.59
    ,Harmonic 23 (-2.943) 0.65
    ,Harmonic 24 1.023 0.61
    ,Harmonic 25 (-2.696) 1.78
    ,Harmonic 26 (-0.273) 0.52
    ,Harmonic 27 2.994 0.35
    ,Harmonic 28 (-0.866) 1.18
    ,Harmonic 29 (-3.062) 0.55
    ,Harmonic 30 (-2.957) 0.83
    ,Harmonic 31 2.6e-2 0.77
    ,Harmonic 32 (-1.849) 0.29]