Note11.hs

module Sharc.Instruments.ViolinPizzicato.Note11 (note11) where

import Sharc.Types

note11 :: Note
note11 = Note
    (Pitch 369.994 54 "f#4")
    12
    (Range
        (NoteRange
            (NoteRangeAmplitude 10359.83 28 1.08)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 1 9028.75)
            (NoteRangeHarmonicFreq 29 10729.82)))
    [Harmonic 1 (-3.105) 9028.75
    ,Harmonic 2 1.606 1987.98
    ,Harmonic 3 (-1.321) 91.48
    ,Harmonic 4 (-0.654) 253.08
    ,Harmonic 5 1.308 172.39
    ,Harmonic 6 0.534 147.59
    ,Harmonic 7 (-1.935) 140.32
    ,Harmonic 8 (-1.115) 228.4
    ,Harmonic 9 0.669 206.25
    ,Harmonic 10 (-0.458) 132.45
    ,Harmonic 11 (-2.862) 12.4
    ,Harmonic 12 0.951 14.46
    ,Harmonic 13 (-0.87) 7.62
    ,Harmonic 14 1.282 4.09
    ,Harmonic 15 1.769 11.33
    ,Harmonic 16 2.937 2.2
    ,Harmonic 17 2.967 5.66
    ,Harmonic 18 (-0.21) 11.78
    ,Harmonic 19 (-0.681) 2.8
    ,Harmonic 20 (-0.438) 2.01
    ,Harmonic 21 (-0.398) 2.79
    ,Harmonic 22 (-0.502) 5.5
    ,Harmonic 23 (-0.549) 3.95
    ,Harmonic 24 (-1.693) 1.99
    ,Harmonic 25 (-0.888) 1.95
    ,Harmonic 26 0.848 1.18
    ,Harmonic 27 (-1.007) 1.27
    ,Harmonic 28 0.547 1.08
    ,Harmonic 29 (-0.512) 2.12]