Note9.hs

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

import Sharc.Types

note9 :: Note
note9 = Note
    (Pitch 329.628 52 "e4")
    10
    (Range
        (NoteRange
            (NoteRangeAmplitude 9559.21 29 3.29)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 2307.39 7 2337.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 0.749 2135.86
    ,Harmonic 2 1.409 1738.4
    ,Harmonic 3 2.173 1705.93
    ,Harmonic 4 1.898 1287.75
    ,Harmonic 5 2.888 671.27
    ,Harmonic 6 1.257 579.35
    ,Harmonic 7 0.941 2337.0
    ,Harmonic 8 (-1.031) 94.11
    ,Harmonic 9 (-1.336) 728.12
    ,Harmonic 10 (-3.013) 149.47
    ,Harmonic 11 (-2.83) 807.59
    ,Harmonic 12 (-1.046) 341.38
    ,Harmonic 13 0.913 256.66
    ,Harmonic 14 (-0.793) 43.77
    ,Harmonic 15 2.552 15.19
    ,Harmonic 16 0.991 46.37
    ,Harmonic 17 (-0.632) 58.91
    ,Harmonic 18 1.789 42.64
    ,Harmonic 19 (-0.285) 69.95
    ,Harmonic 20 1.664 63.63
    ,Harmonic 21 (-1.475) 6.98
    ,Harmonic 22 2.112 8.9
    ,Harmonic 23 (-1.77) 29.73
    ,Harmonic 24 (-0.153) 25.45
    ,Harmonic 25 0.205 7.17
    ,Harmonic 26 2.694 10.33
    ,Harmonic 27 (-7.0e-3) 11.53
    ,Harmonic 28 2.365 6.19
    ,Harmonic 29 (-2.581) 3.29
    ,Harmonic 30 (-2.563) 5.68]