Note9.hs

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

import Sharc.Types

note9 :: Note
note9 = Note
    (Pitch 220.0 45 "a3")
    10
    (Range
        (NoteRange
            (NoteRangeAmplitude 8360.0 38 1.37)
            (NoteRangeHarmonicFreq 1 220.0))
        (NoteRange
            (NoteRangeAmplitude 220.0 1 7650.84)
            (NoteRangeHarmonicFreq 47 10340.0)))
    [Harmonic 1 (-2.848) 7650.84
    ,Harmonic 2 0.209 3784.54
    ,Harmonic 3 (-2.414) 4512.15
    ,Harmonic 4 1.648 512.1
    ,Harmonic 5 (-2.269) 837.88
    ,Harmonic 6 (-2.992) 1134.46
    ,Harmonic 7 (-2.123) 3042.16
    ,Harmonic 8 2.651 681.78
    ,Harmonic 9 2.376 248.43
    ,Harmonic 10 2.463 217.39
    ,Harmonic 11 1.265 75.25
    ,Harmonic 12 2.842 148.02
    ,Harmonic 13 0.596 104.61
    ,Harmonic 14 0.511 38.0
    ,Harmonic 15 (-1.194) 77.62
    ,Harmonic 16 (-1.434) 52.82
    ,Harmonic 17 0.528 27.69
    ,Harmonic 18 2.958 63.4
    ,Harmonic 19 (-1.007) 27.13
    ,Harmonic 20 (-0.188) 31.06
    ,Harmonic 21 1.825 8.26
    ,Harmonic 22 (-2.942) 40.31
    ,Harmonic 23 (-0.352) 26.83
    ,Harmonic 24 1.173 21.83
    ,Harmonic 25 (-1.991) 27.53
    ,Harmonic 26 1.2 21.38
    ,Harmonic 27 (-2.821) 10.3
    ,Harmonic 28 0.378 8.78
    ,Harmonic 29 (-2.438) 21.66
    ,Harmonic 30 (-3.024) 5.96
    ,Harmonic 31 (-2.308) 2.66
    ,Harmonic 32 (-2.941) 4.72
    ,Harmonic 33 (-1.616) 13.33
    ,Harmonic 34 (-2.513) 2.5
    ,Harmonic 35 (-2.651) 5.24
    ,Harmonic 36 (-0.651) 6.96
    ,Harmonic 37 (-0.513) 12.69
    ,Harmonic 38 2.943 1.37
    ,Harmonic 39 (-2.55) 3.36
    ,Harmonic 40 1.059 3.37
    ,Harmonic 41 0.165 1.71
    ,Harmonic 42 (-3.141) 7.06
    ,Harmonic 43 (-1.941) 2.58
    ,Harmonic 44 (-2.838) 11.54
    ,Harmonic 45 (-1.531) 3.52
    ,Harmonic 46 (-1.187) 2.82
    ,Harmonic 47 1.405 2.89]