Note2.hs

module Sharc.Instruments.ViolinMarteleBowing.Note2 (note2) where

import Sharc.Types

note2 :: Note
note2 = Note
    (Pitch 220.0 45 "a3")
    3
    (Range
        (NoteRange
            (NoteRangeAmplitude 9460.0 43 7.0e-2)
            (NoteRangeHarmonicFreq 1 220.0))
        (NoteRange
            (NoteRangeAmplitude 880.0 4 3811.0)
            (NoteRangeHarmonicFreq 45 9900.0)))
    [Harmonic 1 0.349 114.92
    ,Harmonic 2 (-1.586) 3757.23
    ,Harmonic 3 0.205 1775.73
    ,Harmonic 4 (-2.503) 3811.0
    ,Harmonic 5 (-1.425) 993.71
    ,Harmonic 6 0.783 660.25
    ,Harmonic 7 (-1.049) 605.11
    ,Harmonic 8 (-2.343) 322.49
    ,Harmonic 9 1.17 991.22
    ,Harmonic 10 (-2.445) 575.62
    ,Harmonic 11 2.119 301.69
    ,Harmonic 12 (-2.849) 200.25
    ,Harmonic 13 1.7 219.39
    ,Harmonic 14 (-1.303) 265.84
    ,Harmonic 15 (-0.225) 29.78
    ,Harmonic 16 (-2.957) 60.23
    ,Harmonic 17 0.904 50.98
    ,Harmonic 18 0.277 118.54
    ,Harmonic 19 2.738 70.37
    ,Harmonic 20 (-0.464) 34.47
    ,Harmonic 21 1.49 75.92
    ,Harmonic 22 1.833 33.18
    ,Harmonic 23 0.324 22.24
    ,Harmonic 24 (-0.678) 23.67
    ,Harmonic 25 0.374 40.25
    ,Harmonic 26 0.298 10.2
    ,Harmonic 27 2.439 4.56
    ,Harmonic 28 (-1.512) 3.77
    ,Harmonic 29 (-0.329) 2.28
    ,Harmonic 30 0.725 8.43
    ,Harmonic 31 (-1.418) 2.37
    ,Harmonic 32 (-2.349) 4.46
    ,Harmonic 33 (-1.065) 1.65
    ,Harmonic 34 (-2.649) 4.1
    ,Harmonic 35 2.93 5.81
    ,Harmonic 36 (-4.7e-2) 3.03
    ,Harmonic 37 (-1.972) 6.74
    ,Harmonic 38 (-0.412) 0.98
    ,Harmonic 39 (-0.3) 2.24
    ,Harmonic 40 3.109 2.54
    ,Harmonic 41 (-1.035) 0.79
    ,Harmonic 42 (-2.7e-2) 3.27
    ,Harmonic 43 2.029 7.0e-2
    ,Harmonic 44 (-2.663) 4.02
    ,Harmonic 45 (-0.285) 6.19]