Note17.hs

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

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 349.228 53 "f4")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 6635.33 19 3.72)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 349.22 1 2959.0)
            (NoteRangeHarmonicFreq 28 9778.38)))
    [Harmonic 1 0.112 2959.0
    ,Harmonic 2 2.873 2577.73
    ,Harmonic 3 (-1.611) 1149.15
    ,Harmonic 4 0.719 454.08
    ,Harmonic 5 2.803 222.66
    ,Harmonic 6 1.98 760.94
    ,Harmonic 7 1.647 189.22
    ,Harmonic 8 1.206 142.24
    ,Harmonic 9 (-2.9e-2) 452.48
    ,Harmonic 10 (-2.202) 547.13
    ,Harmonic 11 0.59 210.36
    ,Harmonic 12 1.451 191.22
    ,Harmonic 13 2.09 99.4
    ,Harmonic 14 2.487 106.68
    ,Harmonic 15 1.519 141.14
    ,Harmonic 16 2.979 91.4
    ,Harmonic 17 (-0.458) 124.86
    ,Harmonic 18 (-1.2e-2) 30.14
    ,Harmonic 19 (-0.48) 3.72
    ,Harmonic 20 (-0.987) 54.43
    ,Harmonic 21 (-0.557) 135.45
    ,Harmonic 22 0.712 12.79
    ,Harmonic 23 (-2.668) 19.52
    ,Harmonic 24 2.978 23.21
    ,Harmonic 25 (-0.369) 11.4
    ,Harmonic 26 1.087 29.86
    ,Harmonic 27 1.632 25.37
    ,Harmonic 28 (-1.874) 21.81]