Note9.hs

module Sharc.Instruments.ViolinsEnsemble.Note9 (note9) where

import Sharc.Types

note9 :: Note
note9 = Note
    (Pitch 329.628 52 "e4")
    10
    (Range
        (NoteRange
            (NoteRangeAmplitude 7911.07 24 10.29)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 659.25 2 14690.0)
            (NoteRangeHarmonicFreq 29 9559.21)))
    [Harmonic 1 (-1.429) 1578.52
    ,Harmonic 2 2.715 14690.0
    ,Harmonic 3 0.16 8415.7
    ,Harmonic 4 (-2.47) 3646.75
    ,Harmonic 5 (-2.275) 2191.24
    ,Harmonic 6 2.805 1774.83
    ,Harmonic 7 3.003 370.33
    ,Harmonic 8 2.513 905.83
    ,Harmonic 9 (-0.556) 872.62
    ,Harmonic 10 0.666 416.06
    ,Harmonic 11 (-3.067) 357.93
    ,Harmonic 12 (-2.17) 199.26
    ,Harmonic 13 0.765 240.17
    ,Harmonic 14 1.172 115.32
    ,Harmonic 15 (-0.262) 84.43
    ,Harmonic 16 0.286 63.97
    ,Harmonic 17 (-1.462) 38.36
    ,Harmonic 18 2.814 54.23
    ,Harmonic 19 1.797 36.43
    ,Harmonic 20 (-2.19) 69.45
    ,Harmonic 21 (-1.117) 38.46
    ,Harmonic 22 (-3.087) 12.54
    ,Harmonic 23 0.427 20.89
    ,Harmonic 24 1.87 10.29
    ,Harmonic 25 2.035 26.26
    ,Harmonic 26 0.928 17.25
    ,Harmonic 27 (-2.802) 25.85
    ,Harmonic 28 (-2.235) 11.09
    ,Harmonic 29 3.007 15.46]