Note28.hs

module Sharc.Instruments.TromboneMuted.Note28 (note28) where

import Sharc.Types

note28 :: Note
note28 = Note
    (Pitch 415.305 56 "g#4")
    29
    (Range
        (NoteRange
            (NoteRangeAmplitude 8306.1 20 0.36)
            (NoteRangeHarmonicFreq 1 415.3))
        (NoteRange
            (NoteRangeAmplitude 415.3 1 3692.0)
            (NoteRangeHarmonicFreq 24 9967.32)))
    [Harmonic 1 1.831 3692.0
    ,Harmonic 2 (-0.179) 1959.12
    ,Harmonic 3 2.505 1217.62
    ,Harmonic 4 1.207 2030.83
    ,Harmonic 5 (-0.376) 402.76
    ,Harmonic 6 (-1.796) 120.91
    ,Harmonic 7 1.88 19.78
    ,Harmonic 8 0.688 121.97
    ,Harmonic 9 (-1.773) 79.57
    ,Harmonic 10 2.862 34.89
    ,Harmonic 11 (-1.624) 6.69
    ,Harmonic 12 0.105 7.51
    ,Harmonic 13 (-2.536) 24.1
    ,Harmonic 14 2.054 18.57
    ,Harmonic 15 0.226 3.63
    ,Harmonic 16 (-1.01) 3.56
    ,Harmonic 17 (-2.268) 2.81
    ,Harmonic 18 (-2.435) 6.06
    ,Harmonic 19 (-0.354) 1.82
    ,Harmonic 20 1.914 0.36
    ,Harmonic 21 1.12 0.51
    ,Harmonic 22 (-2.256) 1.45
    ,Harmonic 23 (-2.704) 1.26
    ,Harmonic 24 2.034 3.46]