Note7.hs

module Sharc.Instruments.ViolaMarteleBowing.Note7 (note7) where

import Sharc.Types

note7 :: Note
note7 = Note
    (Pitch 195.998 43 "g3")
    8
    (Range
        (NoteRange
            (NoteRangeAmplitude 7055.92 36 0.67)
            (NoteRangeHarmonicFreq 1 195.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 2 11293.0)
            (NoteRangeHarmonicFreq 50 9799.9)))
    [Harmonic 1 (-0.171) 1482.94
    ,Harmonic 2 2.078 11293.0
    ,Harmonic 3 0.726 6945.64
    ,Harmonic 4 1.266 667.12
    ,Harmonic 5 (-3.099) 1284.44
    ,Harmonic 6 (-2.307) 1239.93
    ,Harmonic 7 0.139 331.71
    ,Harmonic 8 0.223 1034.06
    ,Harmonic 9 0.138 977.97
    ,Harmonic 10 0.47 1254.38
    ,Harmonic 11 1.423 232.84
    ,Harmonic 12 (-0.697) 23.87
    ,Harmonic 13 2.647 170.33
    ,Harmonic 14 (-9.4e-2) 222.83
    ,Harmonic 15 2.91 173.94
    ,Harmonic 16 0.805 57.53
    ,Harmonic 17 2.222 182.57
    ,Harmonic 18 (-0.504) 197.3
    ,Harmonic 19 1.738 48.37
    ,Harmonic 20 (-0.227) 11.82
    ,Harmonic 21 2.927 4.45
    ,Harmonic 22 3.14 9.69
    ,Harmonic 23 (-0.958) 34.35
    ,Harmonic 24 2.236 9.85
    ,Harmonic 25 (-6.9e-2) 11.37
    ,Harmonic 26 (-1.263) 6.31
    ,Harmonic 27 (-0.108) 6.97
    ,Harmonic 28 1.482 3.74
    ,Harmonic 29 1.415 20.85
    ,Harmonic 30 (-0.15) 2.53
    ,Harmonic 31 (-3.105) 7.52
    ,Harmonic 32 (-1.181) 2.68
    ,Harmonic 33 1.652 4.1
    ,Harmonic 34 (-2.213) 4.18
    ,Harmonic 35 3.085 2.48
    ,Harmonic 36 (-0.492) 0.67
    ,Harmonic 37 (-2.877) 2.4
    ,Harmonic 38 (-1.651) 1.8
    ,Harmonic 39 (-0.333) 3.31
    ,Harmonic 40 (-0.957) 2.36
    ,Harmonic 41 (-2.052) 2.0
    ,Harmonic 42 (-0.362) 8.03
    ,Harmonic 43 (-0.89) 1.35
    ,Harmonic 44 0.12 3.18
    ,Harmonic 45 (-1.65) 3.78
    ,Harmonic 46 0.308 1.87
    ,Harmonic 47 2.96 3.35
    ,Harmonic 48 1.461 3.59
    ,Harmonic 49 (-1.111) 2.26
    ,Harmonic 50 (-1.074) 0.68]