Note15.hs

module Sharc.Instruments.BassFlute.Note15 (note15) where

import Sharc.Types

note15 :: Note
note15 = Note
    (Pitch 311.127 51 "d#4")
    16
    (Range
        (NoteRange
            (NoteRangeAmplitude 4978.03 16 0.65)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 311.12 1 4164.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 (-1.528) 4164.0
    ,Harmonic 2 (-1.775) 2552.93
    ,Harmonic 3 (-3.109) 163.92
    ,Harmonic 4 (-2.86) 180.75
    ,Harmonic 5 3.102 110.71
    ,Harmonic 6 (-5.6e-2) 89.34
    ,Harmonic 7 (-1.83) 102.76
    ,Harmonic 8 2.132 22.43
    ,Harmonic 9 0.585 21.82
    ,Harmonic 10 (-1.327) 13.95
    ,Harmonic 11 1.659 12.33
    ,Harmonic 12 6.5e-2 8.35
    ,Harmonic 13 (-2.207) 9.85
    ,Harmonic 14 (-2.904) 6.24
    ,Harmonic 15 (-0.627) 1.51
    ,Harmonic 16 (-1.747) 0.65
    ,Harmonic 17 (-2.148) 2.6
    ,Harmonic 18 1.622 2.77
    ,Harmonic 19 (-1.526) 1.93
    ,Harmonic 20 (-2.804) 2.05
    ,Harmonic 21 2.519 2.31
    ,Harmonic 22 0.282 2.32
    ,Harmonic 23 (-0.187) 2.18
    ,Harmonic 24 0.449 3.33
    ,Harmonic 25 (-1.842) 4.98
    ,Harmonic 26 2.367 0.77
    ,Harmonic 27 2.0e-2 0.77
    ,Harmonic 28 1.161 1.48
    ,Harmonic 29 0.732 1.49
    ,Harmonic 30 (-0.993) 2.07
    ,Harmonic 31 (-1.723) 0.76
    ,Harmonic 32 (-0.148) 1.0]