Note25.hs

module Sharc.Instruments.Trombone.Note25 (note25) where

import Sharc.Types

note25 :: Note
note25 = Note
    (Pitch 349.228 53 "f4")
    26
    (Range
        (NoteRange
            (NoteRangeAmplitude 5936.87 17 0.12)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 698.45 2 4465.0)
            (NoteRangeHarmonicFreq 28 9778.38)))
    [Harmonic 1 2.369 1942.73
    ,Harmonic 2 1.528 4465.0
    ,Harmonic 3 (-0.307) 2520.87
    ,Harmonic 4 (-2.086) 1270.28
    ,Harmonic 5 2.824 500.61
    ,Harmonic 6 1.75 257.72
    ,Harmonic 7 0.459 127.51
    ,Harmonic 8 (-0.519) 46.12
    ,Harmonic 9 (-1.443) 18.97
    ,Harmonic 10 1.884 3.21
    ,Harmonic 11 1.421 3.27
    ,Harmonic 12 (-1.266) 1.16
    ,Harmonic 13 (-2.766) 2.52
    ,Harmonic 14 3.102 3.38
    ,Harmonic 15 2.857 3.0
    ,Harmonic 16 (-2.295) 1.08
    ,Harmonic 17 (-2.579) 0.12
    ,Harmonic 18 0.616 1.68
    ,Harmonic 19 7.1e-2 2.18
    ,Harmonic 20 (-0.482) 2.72
    ,Harmonic 21 (-0.728) 2.92
    ,Harmonic 22 0.543 1.5
    ,Harmonic 23 (-2.108) 2.52
    ,Harmonic 24 2.559 1.11
    ,Harmonic 25 (-1.369) 0.83
    ,Harmonic 26 (-2.557) 1.53
    ,Harmonic 27 (-2.906) 0.94
    ,Harmonic 28 0.857 0.93]