Note19.hs

module Sharc.Instruments.BassFlute.Note19 (note19) where

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 391.995 55 "g4")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 5095.93 13 0.29)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 1 3727.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 1.547 3727.0
    ,Harmonic 2 2.316 624.7
    ,Harmonic 3 0.589 492.77
    ,Harmonic 4 2.019 46.11
    ,Harmonic 5 1.5e-2 33.85
    ,Harmonic 6 0.999 32.82
    ,Harmonic 7 (-2.291) 1.82
    ,Harmonic 8 1.013 9.57
    ,Harmonic 9 (-2.619) 3.24
    ,Harmonic 10 1.623 4.11
    ,Harmonic 11 3.096 2.4
    ,Harmonic 12 0.849 2.07
    ,Harmonic 13 (-9.8e-2) 0.29
    ,Harmonic 14 (-0.269) 1.52
    ,Harmonic 15 0.113 1.9
    ,Harmonic 16 1.058 1.58
    ,Harmonic 17 2.534 0.71
    ,Harmonic 18 (-2.753) 1.27
    ,Harmonic 19 1.979 4.18
    ,Harmonic 20 2.984 1.55
    ,Harmonic 21 2.113 1.25
    ,Harmonic 22 (-1.958) 1.31
    ,Harmonic 23 (-1.685) 1.86
    ,Harmonic 24 (-2.318) 1.07
    ,Harmonic 25 (-1.052) 1.11]