Note9.hs

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

import Sharc.Types

note9 :: Note
note9 = Note
    (Pitch 329.628 52 "e4")
    10
    (Range
        (NoteRange
            (NoteRangeAmplitude 9229.58 28 1.31)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 329.62 1 2466.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 (-2.349) 2466.0
    ,Harmonic 2 0.548 992.34
    ,Harmonic 3 (-0.899) 993.99
    ,Harmonic 4 1.146 619.95
    ,Harmonic 5 (-2.751) 364.21
    ,Harmonic 6 (-0.504) 355.92
    ,Harmonic 7 (-2.741) 377.39
    ,Harmonic 8 (-1.542) 112.72
    ,Harmonic 9 0.494 131.82
    ,Harmonic 10 (-1.763) 63.93
    ,Harmonic 11 1.774 22.41
    ,Harmonic 12 (-0.206) 33.63
    ,Harmonic 13 (-0.48) 34.37
    ,Harmonic 14 (-0.899) 18.4
    ,Harmonic 15 1.671 27.09
    ,Harmonic 16 1.34 9.81
    ,Harmonic 17 2.395 6.51
    ,Harmonic 18 2.556 19.35
    ,Harmonic 19 (-2.728) 4.79
    ,Harmonic 20 1.095 8.51
    ,Harmonic 21 1.066 13.76
    ,Harmonic 22 (-2.286) 4.1
    ,Harmonic 23 2.299 15.62
    ,Harmonic 24 3.1e-2 10.39
    ,Harmonic 25 (-1.739) 11.69
    ,Harmonic 26 1.787 2.63
    ,Harmonic 27 1.03 2.4
    ,Harmonic 28 8.1e-2 1.31
    ,Harmonic 29 2.122 5.16
    ,Harmonic 30 1.357 6.65]