Note17.hs

module Sharc.Instruments.ViolaPizzicato.Note17 (note17) where

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 349.228 53 "f4")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 9079.92 26 0.22)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 349.22 1 5314.0)
            (NoteRangeHarmonicFreq 28 9778.38)))
    [Harmonic 1 1.766 5314.0
    ,Harmonic 2 0.966 1662.11
    ,Harmonic 3 0.839 332.19
    ,Harmonic 4 (-2.981) 171.03
    ,Harmonic 5 (-1.58) 378.53
    ,Harmonic 6 0.682 189.26
    ,Harmonic 7 2.657 24.89
    ,Harmonic 8 (-2.344) 19.49
    ,Harmonic 9 (-2.609) 22.74
    ,Harmonic 10 (-1.713) 5.71
    ,Harmonic 11 0.507 2.17
    ,Harmonic 12 (-0.141) 1.33
    ,Harmonic 13 (-0.721) 0.71
    ,Harmonic 14 (-2.232) 2.56
    ,Harmonic 15 (-1.451) 1.7
    ,Harmonic 16 1.177 1.94
    ,Harmonic 17 (-1.902) 0.44
    ,Harmonic 18 (-2.554) 1.51
    ,Harmonic 19 (-2.633) 0.9
    ,Harmonic 20 1.479 0.3
    ,Harmonic 21 (-2.289) 1.12
    ,Harmonic 22 (-2.809) 0.57
    ,Harmonic 23 (-2.967) 2.22
    ,Harmonic 24 0.278 0.36
    ,Harmonic 25 (-2.459) 0.88
    ,Harmonic 26 2.04 0.22
    ,Harmonic 27 1.716 0.44
    ,Harmonic 28 (-2.68) 1.09]