Note28.hs

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

import Sharc.Types

note28 :: Note
note28 = Note
    (Pitch 415.305 56 "g#4")
    29
    (Range
        (NoteRange
            (NoteRangeAmplitude 8306.1 20 0.52)
            (NoteRangeHarmonicFreq 1 415.3))
        (NoteRange
            (NoteRangeAmplitude 830.61 2 3602.0)
            (NoteRangeHarmonicFreq 24 9967.32)))
    [Harmonic 1 (-2.038) 3379.66
    ,Harmonic 2 (-1.534) 3602.0
    ,Harmonic 3 (-1.812) 1423.36
    ,Harmonic 4 (-1.8) 478.34
    ,Harmonic 5 (-1.083) 212.35
    ,Harmonic 6 (-0.264) 96.47
    ,Harmonic 7 0.65 28.7
    ,Harmonic 8 0.843 8.48
    ,Harmonic 9 1.409 5.69
    ,Harmonic 10 (-1.314) 5.8
    ,Harmonic 11 0.405 7.42
    ,Harmonic 12 1.675 2.77
    ,Harmonic 13 (-0.504) 0.77
    ,Harmonic 14 0.558 0.68
    ,Harmonic 15 (-1.292) 5.21
    ,Harmonic 16 (-0.399) 6.71
    ,Harmonic 17 0.785 4.72
    ,Harmonic 18 0.375 1.9
    ,Harmonic 19 (-1.093) 1.74
    ,Harmonic 20 (-1.933) 0.52
    ,Harmonic 21 (-0.735) 2.9
    ,Harmonic 22 (-3.2e-2) 3.31
    ,Harmonic 23 0.285 2.59
    ,Harmonic 24 0.676 1.76]