Note10.hs

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

import Sharc.Types

note10 :: Note
note10 = Note
    (Pitch 349.228 53 "f4")
    11
    (Range
        (NoteRange
            (NoteRangeAmplitude 6984.56 20 1.46)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 698.45 2 3111.0)
            (NoteRangeHarmonicFreq 28 9778.38)))
    [Harmonic 1 (-2.425) 764.88
    ,Harmonic 2 (-0.956) 3111.0
    ,Harmonic 3 (-1.883) 374.65
    ,Harmonic 4 (-1.908) 1760.16
    ,Harmonic 5 3.107 385.37
    ,Harmonic 6 (-2.785) 779.8
    ,Harmonic 7 0.952 217.63
    ,Harmonic 8 (-2.055) 561.68
    ,Harmonic 9 (-0.855) 92.44
    ,Harmonic 10 (-1.781) 26.87
    ,Harmonic 11 (-2.058) 22.08
    ,Harmonic 12 2.121 28.76
    ,Harmonic 13 2.354 9.45
    ,Harmonic 14 0.345 49.91
    ,Harmonic 15 1.593 8.29
    ,Harmonic 16 (-1.536) 2.54
    ,Harmonic 17 (-2.226) 9.0
    ,Harmonic 18 (-0.68) 6.35
    ,Harmonic 19 3.068 4.01
    ,Harmonic 20 (-1.842) 1.46
    ,Harmonic 21 2.505 8.81
    ,Harmonic 22 2.205 6.05
    ,Harmonic 23 0.171 3.06
    ,Harmonic 24 0.738 5.18
    ,Harmonic 25 1.368 1.79
    ,Harmonic 26 0.488 2.49
    ,Harmonic 27 (-0.624) 2.86
    ,Harmonic 28 0.85 2.51]