Note27.hs

module Sharc.Instruments.Trombone.Note27 (note27) where

import Sharc.Types

note27 :: Note
note27 = Note
    (Pitch 391.995 55 "g4")
    28
    (Range
        (NoteRange
            (NoteRangeAmplitude 6663.91 17 0.53)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 783.99 2 3150.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 2.362 2700.04
    ,Harmonic 2 0.448 3150.0
    ,Harmonic 3 (-1.987) 1145.82
    ,Harmonic 4 2.367 454.91
    ,Harmonic 5 0.736 211.6
    ,Harmonic 6 (-0.76) 106.3
    ,Harmonic 7 (-2.149) 44.98
    ,Harmonic 8 2.907 21.18
    ,Harmonic 9 1.3 14.47
    ,Harmonic 10 (-0.15) 8.72
    ,Harmonic 11 (-1.264) 6.9
    ,Harmonic 12 (-1.865) 1.85
    ,Harmonic 13 1.594 1.76
    ,Harmonic 14 1.141 2.43
    ,Harmonic 15 0.706 2.38
    ,Harmonic 16 0.825 1.07
    ,Harmonic 17 2.948 0.53
    ,Harmonic 18 1.642 0.77
    ,Harmonic 19 0.609 1.9
    ,Harmonic 20 (-1.624) 1.53
    ,Harmonic 21 (-1.536) 1.15
    ,Harmonic 22 3.064 3.45
    ,Harmonic 23 1.434 3.22
    ,Harmonic 24 (-0.343) 1.82
    ,Harmonic 25 (-1.907) 1.4]