Note23.hs

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

import Sharc.Types

note23 :: Note
note23 = Note
    (Pitch 311.127 51 "d#4")
    24
    (Range
        (NoteRange
            (NoteRangeAmplitude 9333.81 30 0.47)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 622.25 2 3551.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 (-0.954) 1977.35
    ,Harmonic 2 1.023 3551.0
    ,Harmonic 3 2.587 2487.03
    ,Harmonic 4 (-2.302) 1391.48
    ,Harmonic 5 (-0.826) 569.81
    ,Harmonic 6 1.083 247.92
    ,Harmonic 7 2.684 123.44
    ,Harmonic 8 (-1.933) 57.03
    ,Harmonic 9 (-0.254) 21.61
    ,Harmonic 10 1.041 12.19
    ,Harmonic 11 3.136 12.61
    ,Harmonic 12 (-0.936) 5.71
    ,Harmonic 13 0.244 1.72
    ,Harmonic 14 1.191 2.29
    ,Harmonic 15 (-2.704) 2.98
    ,Harmonic 16 (-0.631) 3.97
    ,Harmonic 17 1.947 2.6
    ,Harmonic 18 (-2.459) 2.02
    ,Harmonic 19 0.5 2.3
    ,Harmonic 20 2.824 1.8
    ,Harmonic 21 (-1.781) 0.98
    ,Harmonic 22 2.026 1.23
    ,Harmonic 23 (-0.918) 1.34
    ,Harmonic 24 2.026 0.93
    ,Harmonic 25 (-2.214) 1.79
    ,Harmonic 26 2.622 0.53
    ,Harmonic 27 (-2.623) 1.95
    ,Harmonic 28 (-0.578) 1.43
    ,Harmonic 29 1.754 0.86
    ,Harmonic 30 3.034 0.47
    ,Harmonic 31 2.778 1.27
    ,Harmonic 32 (-1.458) 1.08]