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

import Sharc.Types

note7 :: Note
note7 = Note
    (Pitch 293.665 50 "d4")
    8
    (Range
        (NoteRange
            (NoteRangeAmplitude 7341.62 25 0.33)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 293.66 1 8069.0)
            (NoteRangeHarmonicFreq 37 10865.6)))
    [Harmonic 1 (-2.778) 8069.0
    ,Harmonic 2 2.007 1555.4
    ,Harmonic 3 (-1.661) 83.68
    ,Harmonic 4 (-1.851) 90.12
    ,Harmonic 5 0.686 48.76
    ,Harmonic 6 (-1.538) 21.09
    ,Harmonic 7 2.672 134.03
    ,Harmonic 8 0.833 46.51
    ,Harmonic 9 (-3.1e-2) 30.3
    ,Harmonic 10 1.663 86.03
    ,Harmonic 11 0.389 25.94
    ,Harmonic 12 (-1.309) 6.45
    ,Harmonic 13 (-1.196) 1.64
    ,Harmonic 14 (-3.3e-2) 4.86
    ,Harmonic 15 (-0.432) 5.18
    ,Harmonic 16 1.308 2.75
    ,Harmonic 17 2.835 4.86
    ,Harmonic 18 2.074 2.52
    ,Harmonic 19 (-1.519) 2.4
    ,Harmonic 20 (-2.615) 3.3
    ,Harmonic 21 0.452 2.45
    ,Harmonic 22 8.2e-2 4.3
    ,Harmonic 23 (-0.416) 1.53
    ,Harmonic 24 (-0.188) 1.57
    ,Harmonic 25 3.074 0.33
    ,Harmonic 26 (-2.081) 1.1
    ,Harmonic 27 (-1.099) 1.71
    ,Harmonic 28 (-1.357) 1.64
    ,Harmonic 29 0.609 0.46
    ,Harmonic 30 (-0.591) 1.52
    ,Harmonic 31 0.203 1.29
    ,Harmonic 32 (-0.959) 1.33
    ,Harmonic 33 (-1.304) 0.61
    ,Harmonic 34 (-1.173) 0.68
    ,Harmonic 35 3.111 0.35
    ,Harmonic 36 (-1.013) 0.99
    ,Harmonic 37 (-1.069) 0.69]