Note17.hs

module Sharc.Instruments.AltoFlute.Note17 (note17) where

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 523.251 60 "c5")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 7848.76 15 0.63)
            (NoteRangeHarmonicFreq 1 523.25))
        (NoteRange
            (NoteRangeAmplitude 523.25 1 3971.0)
            (NoteRangeHarmonicFreq 19 9941.76)))
    [Harmonic 1 2.412 3971.0
    ,Harmonic 2 0.151 3130.05
    ,Harmonic 3 (-0.67) 340.92
    ,Harmonic 4 1.343 284.56
    ,Harmonic 5 2.983 139.98
    ,Harmonic 6 (-1.593) 119.81
    ,Harmonic 7 (-5.2e-2) 95.41
    ,Harmonic 8 1.922 57.39
    ,Harmonic 9 (-2.382) 39.18
    ,Harmonic 10 (-1.081) 21.54
    ,Harmonic 11 1.223 21.36
    ,Harmonic 12 (-2.123) 19.23
    ,Harmonic 13 (-2.146) 2.89
    ,Harmonic 14 0.149 13.99
    ,Harmonic 15 1.543 0.63
    ,Harmonic 16 (-0.585) 7.98
    ,Harmonic 17 1.05 42.48
    ,Harmonic 18 2.575 24.89
    ,Harmonic 19 (-2.076) 6.85]