Note10.hs

module Sharc.Instruments.ViolinsEnsemble.Note10 (note10) where

import Sharc.Types

note10 :: Note
note10 = Note
    (Pitch 349.228 53 "f4")
    11
    (Range
        (NoteRange
            (NoteRangeAmplitude 9429.15 27 25.48)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 349.22 1 19909.0)
            (NoteRangeHarmonicFreq 28 9778.38)))
    [Harmonic 1 (-1.36) 19909.0
    ,Harmonic 2 (-2.397) 19809.31
    ,Harmonic 3 0.99 3389.64
    ,Harmonic 4 (-6.6e-2) 3264.4
    ,Harmonic 5 (-0.75) 7957.52
    ,Harmonic 6 (-1.933) 4466.05
    ,Harmonic 7 2.114 3372.94
    ,Harmonic 8 (-3.113) 2268.26
    ,Harmonic 9 0.972 4045.05
    ,Harmonic 10 (-1.348) 3603.58
    ,Harmonic 11 (-1.296) 2884.92
    ,Harmonic 12 (-2.533) 4490.49
    ,Harmonic 13 0.627 395.04
    ,Harmonic 14 3.016 325.8
    ,Harmonic 15 (-4.9e-2) 437.77
    ,Harmonic 16 (-0.206) 495.17
    ,Harmonic 17 0.131 204.2
    ,Harmonic 18 1.219 218.92
    ,Harmonic 19 0.357 385.97
    ,Harmonic 20 2.887 146.12
    ,Harmonic 21 (-3.129) 220.74
    ,Harmonic 22 6.6e-2 134.35
    ,Harmonic 23 (-2.568) 58.52
    ,Harmonic 24 (-1.788) 56.63
    ,Harmonic 25 2.089 65.68
    ,Harmonic 26 (-1.762) 104.1
    ,Harmonic 27 (-0.41) 25.48
    ,Harmonic 28 1.94 64.98]