Note11.hs

module Sharc.Instruments.ViolinMarteleBowing.Note11 (note11) where

import Sharc.Types

note11 :: Note
note11 = Note
    (Pitch 369.994 54 "f#4")
    12
    (Range
        (NoteRange
            (NoteRangeAmplitude 8879.85 24 0.67)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 739.98 2 2247.0)
            (NoteRangeHarmonicFreq 26 9619.84)))
    [Harmonic 1 2.033 1891.8
    ,Harmonic 2 (-1.858) 2247.0
    ,Harmonic 3 1.217 377.59
    ,Harmonic 4 (-1.325) 796.76
    ,Harmonic 5 (-0.288) 310.27
    ,Harmonic 6 (-2.004) 501.19
    ,Harmonic 7 (-1.211) 798.48
    ,Harmonic 8 (-2.436) 11.51
    ,Harmonic 9 (-2.247) 166.89
    ,Harmonic 10 (-0.155) 18.74
    ,Harmonic 11 (-2.977) 40.66
    ,Harmonic 12 (-0.597) 27.6
    ,Harmonic 13 (-1.358) 8.68
    ,Harmonic 14 1.497 9.85
    ,Harmonic 15 (-2.045) 18.55
    ,Harmonic 16 2.152 8.63
    ,Harmonic 17 (-0.998) 3.88
    ,Harmonic 18 0.604 22.66
    ,Harmonic 19 (-2.267) 6.8
    ,Harmonic 20 (-1.224) 3.1
    ,Harmonic 21 (-1.376) 3.28
    ,Harmonic 22 (-0.173) 2.56
    ,Harmonic 23 (-2.477) 2.28
    ,Harmonic 24 0.714 0.67
    ,Harmonic 25 (-4.0e-3) 1.85
    ,Harmonic 26 0.234 0.93]