Note9.hs

module Sharc.Instruments.ViolinMarteleBowing.Note9 (note9) where

import Sharc.Types

note9 :: Note
note9 = Note
    (Pitch 329.628 52 "e4")
    10
    (Range
        (NoteRange
            (NoteRangeAmplitude 9888.84 30 1.98)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 1977.76 6 861.29)
            (NoteRangeHarmonicFreq 31 10218.46)))
    [Harmonic 1 1.015 544.27
    ,Harmonic 2 2.05 293.85
    ,Harmonic 3 0.687 703.58
    ,Harmonic 4 1.784 181.25
    ,Harmonic 5 (-1.957) 73.2
    ,Harmonic 6 (-2.044) 861.29
    ,Harmonic 7 (-0.548) 166.25
    ,Harmonic 8 (-2.23) 44.31
    ,Harmonic 9 2.326 59.67
    ,Harmonic 10 1.713 26.34
    ,Harmonic 11 (-0.773) 43.14
    ,Harmonic 12 1.364 14.73
    ,Harmonic 13 (-2.593) 3.78
    ,Harmonic 14 (-2.504) 7.2
    ,Harmonic 15 2.759 2.42
    ,Harmonic 16 2.89 8.36
    ,Harmonic 17 2.818 11.32
    ,Harmonic 18 (-1.239) 2.75
    ,Harmonic 19 2.173 4.8
    ,Harmonic 20 (-2.512) 2.27
    ,Harmonic 21 (-1.686) 2.6
    ,Harmonic 22 0.307 14.75
    ,Harmonic 23 (-0.541) 23.35
    ,Harmonic 24 (-1.207) 10.24
    ,Harmonic 25 (-1.016) 6.85
    ,Harmonic 26 (-1.075) 3.58
    ,Harmonic 27 (-2.385) 2.61
    ,Harmonic 28 2.983 6.93
    ,Harmonic 29 2.863 3.68
    ,Harmonic 30 (-0.886) 1.98
    ,Harmonic 31 1.502 2.13]