Note3.hs

module Sharc.Instruments.ViolinMuted.Note3 (note3) where

import Sharc.Types

note3 :: Note
note3 = Note
    (Pitch 233.082 46 "a#3")
    4
    (Range
        (NoteRange
            (NoteRangeAmplitude 9090.19 39 0.91)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 699.24 3 3764.0)
            (NoteRangeHarmonicFreq 42 9789.44)))
    [Harmonic 1 0.694 860.84
    ,Harmonic 2 1.6 3648.92
    ,Harmonic 3 1.297 3764.0
    ,Harmonic 4 0.51 1104.91
    ,Harmonic 5 (-2.639) 1207.43
    ,Harmonic 6 1.289 957.76
    ,Harmonic 7 (-1.699) 327.32
    ,Harmonic 8 0.44 239.94
    ,Harmonic 9 (-2.844) 139.66
    ,Harmonic 10 2.646 349.15
    ,Harmonic 11 (-0.661) 62.76
    ,Harmonic 12 (-1.651) 54.76
    ,Harmonic 13 0.988 99.82
    ,Harmonic 14 (-0.616) 163.3
    ,Harmonic 15 1.542 98.41
    ,Harmonic 16 1.171 66.7
    ,Harmonic 17 0.357 58.88
    ,Harmonic 18 0.197 12.26
    ,Harmonic 19 (-1.049) 22.43
    ,Harmonic 20 (-2.545) 41.8
    ,Harmonic 21 (-2.148) 16.56
    ,Harmonic 22 (-2.999) 20.81
    ,Harmonic 23 2.168 26.03
    ,Harmonic 24 1.599 2.89
    ,Harmonic 25 (-0.484) 11.76
    ,Harmonic 26 (-1.934) 14.47
    ,Harmonic 27 (-0.546) 14.25
    ,Harmonic 28 0.623 9.31
    ,Harmonic 29 1.807 5.86
    ,Harmonic 30 1.82 15.5
    ,Harmonic 31 (-0.426) 13.42
    ,Harmonic 32 1.135 13.7
    ,Harmonic 33 0.111 25.62
    ,Harmonic 34 0.799 19.64
    ,Harmonic 35 (-0.607) 11.8
    ,Harmonic 36 (-9.3e-2) 7.37
    ,Harmonic 37 1.526 3.58
    ,Harmonic 38 1.331 5.92
    ,Harmonic 39 (-1.97) 0.91
    ,Harmonic 40 (-2.384) 4.05
    ,Harmonic 41 (-3.098) 7.7
    ,Harmonic 42 2.588 7.86]