Note13.hs

module Sharc.Instruments.ViolaMuted.Note13 (note13) where

import Sharc.Types

note13 :: Note
note13 = Note
    (Pitch 277.183 49 "c#4")
    14
    (Range
        (NoteRange
            (NoteRangeAmplitude 9147.03 33 1.09)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 277.18 1 4270.0)
            (NoteRangeHarmonicFreq 35 9701.4)))
    [Harmonic 1 (-1.222) 4270.0
    ,Harmonic 2 (-3.043) 1380.01
    ,Harmonic 3 (-2.74) 459.88
    ,Harmonic 4 (-0.148) 185.24
    ,Harmonic 5 0.536 53.57
    ,Harmonic 6 (-0.779) 284.63
    ,Harmonic 7 (-0.655) 148.74
    ,Harmonic 8 2.756 738.2
    ,Harmonic 9 (-0.613) 324.03
    ,Harmonic 10 0.272 139.4
    ,Harmonic 11 2.919 122.7
    ,Harmonic 12 2.853 57.38
    ,Harmonic 13 (-0.352) 114.15
    ,Harmonic 14 (-1.707) 44.81
    ,Harmonic 15 2.387 47.54
    ,Harmonic 16 7.3e-2 51.06
    ,Harmonic 17 (-1.485) 25.91
    ,Harmonic 18 2.311 16.53
    ,Harmonic 19 (-1.092) 10.3
    ,Harmonic 20 3.066 5.69
    ,Harmonic 21 (-1.049) 8.33
    ,Harmonic 22 0.166 8.81
    ,Harmonic 23 (-1.028) 12.18
    ,Harmonic 24 (-0.332) 10.6
    ,Harmonic 25 (-0.88) 2.0
    ,Harmonic 26 2.786 7.17
    ,Harmonic 27 0.968 13.42
    ,Harmonic 28 (-1.951) 8.14
    ,Harmonic 29 0.843 1.83
    ,Harmonic 30 (-0.226) 2.9
    ,Harmonic 31 (-3.071) 2.92
    ,Harmonic 32 (-1.313) 4.08
    ,Harmonic 33 1.542 1.09
    ,Harmonic 34 (-1.651) 2.56
    ,Harmonic 35 (-1.605) 3.57]