Note7.hs

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

import Sharc.Types

note7 :: Note
note7 = Note
    (Pitch 195.998 43 "g3")
    8
    (Range
        (NoteRange
            (NoteRangeAmplitude 9211.9 47 2.03)
            (NoteRangeHarmonicFreq 1 195.99))
        (NoteRange
            (NoteRangeAmplitude 1371.98 7 6214.0)
            (NoteRangeHarmonicFreq 50 9799.9)))
    [Harmonic 1 (-2.832) 2304.17
    ,Harmonic 2 0.441 3061.32
    ,Harmonic 3 (-0.879) 2019.25
    ,Harmonic 4 (-0.314) 2284.87
    ,Harmonic 5 0.897 2199.32
    ,Harmonic 6 2.461 4359.08
    ,Harmonic 7 1.278 6214.0
    ,Harmonic 8 1.605 4300.0
    ,Harmonic 9 3.059 446.43
    ,Harmonic 10 2.606 484.21
    ,Harmonic 11 1.603 1738.72
    ,Harmonic 12 0.526 564.41
    ,Harmonic 13 0.205 484.24
    ,Harmonic 14 (-1.174) 941.42
    ,Harmonic 15 2.027 500.14
    ,Harmonic 16 (-2.699) 485.74
    ,Harmonic 17 1.381 492.54
    ,Harmonic 18 (-2.104) 1078.88
    ,Harmonic 19 1.485 775.07
    ,Harmonic 20 (-0.745) 347.18
    ,Harmonic 21 (-1.044) 130.81
    ,Harmonic 22 (-0.504) 104.9
    ,Harmonic 23 2.661 68.22
    ,Harmonic 24 (-1.942) 46.22
    ,Harmonic 25 1.102 208.31
    ,Harmonic 26 (-2.162) 131.56
    ,Harmonic 27 1.44 111.76
    ,Harmonic 28 (-0.521) 92.83
    ,Harmonic 29 (-3.004) 77.13
    ,Harmonic 30 (-2.872) 48.19
    ,Harmonic 31 (-2.815) 64.59
    ,Harmonic 32 (-1.369) 6.36
    ,Harmonic 33 (-1.862) 51.57
    ,Harmonic 34 (-1.71) 45.79
    ,Harmonic 35 1.632 17.37
    ,Harmonic 36 1.493 44.58
    ,Harmonic 37 0.728 55.62
    ,Harmonic 38 (-0.231) 6.23
    ,Harmonic 39 2.403 26.12
    ,Harmonic 40 (-2.762) 12.08
    ,Harmonic 41 1.309 5.32
    ,Harmonic 42 (-0.49) 24.44
    ,Harmonic 43 (-2.858) 9.14
    ,Harmonic 44 1.576 12.07
    ,Harmonic 45 (-0.979) 15.58
    ,Harmonic 46 (-2.463) 13.18
    ,Harmonic 47 0.79 2.03
    ,Harmonic 48 (-1.143) 9.19
    ,Harmonic 49 (-2.136) 4.74
    ,Harmonic 50 2.412 4.6]