Note4.hs

module Sharc.Instruments.ViolinMarteleBowing.Note4 (note4) where

import Sharc.Types

note4 :: Note
note4 = Note
    (Pitch 246.942 47 "b3")
    5
    (Range
        (NoteRange
            (NoteRangeAmplitude 7408.26 30 1.16)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 493.88 2 6826.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 (-0.531) 721.95
    ,Harmonic 2 (-3.2e-2) 6826.0
    ,Harmonic 3 (-2.361) 2104.92
    ,Harmonic 4 (-1.868) 132.68
    ,Harmonic 5 (-2.746) 5906.71
    ,Harmonic 6 (-2.501) 670.18
    ,Harmonic 7 (-3.094) 294.56
    ,Harmonic 8 1.741 671.53
    ,Harmonic 9 (-0.915) 1356.64
    ,Harmonic 10 1.795 562.1
    ,Harmonic 11 1.673 58.5
    ,Harmonic 12 (-1.459) 100.65
    ,Harmonic 13 (-2.456) 140.35
    ,Harmonic 14 (-2.461) 52.46
    ,Harmonic 15 1.752 53.0
    ,Harmonic 16 (-2.622) 86.79
    ,Harmonic 17 2.557 71.58
    ,Harmonic 18 (-0.835) 64.98
    ,Harmonic 19 (-1.105) 53.09
    ,Harmonic 20 1.132 35.52
    ,Harmonic 21 (-1.686) 36.02
    ,Harmonic 22 (-0.173) 13.67
    ,Harmonic 23 (-1.047) 20.94
    ,Harmonic 24 (-0.291) 9.2
    ,Harmonic 25 3.097 5.85
    ,Harmonic 26 1.236 5.82
    ,Harmonic 27 (-0.507) 5.23
    ,Harmonic 28 (-0.518) 1.61
    ,Harmonic 29 (-2.203) 4.97
    ,Harmonic 30 0.216 1.16
    ,Harmonic 31 1.859 2.68
    ,Harmonic 32 (-0.901) 5.15
    ,Harmonic 33 (-1.662) 3.72
    ,Harmonic 34 (-1.201) 7.94
    ,Harmonic 35 2.515 5.75
    ,Harmonic 36 (-1.873) 3.13
    ,Harmonic 37 1.428 2.34
    ,Harmonic 38 2.958 3.86
    ,Harmonic 39 6.5e-2 5.64
    ,Harmonic 40 0.731 2.61]