Note13.hs

module Sharc.Instruments.ViolaMarteleBowing.Note13 (note13) where

import Sharc.Types

note13 :: Note
note13 = Note
    (Pitch 293.665 50 "d4")
    14
    (Range
        (NoteRange
            (NoteRangeAmplitude 9397.28 32 1.83)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 587.33 2 10489.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 (-1.167) 1083.53
    ,Harmonic 2 (-2.108) 10489.0
    ,Harmonic 3 (-1.851) 934.28
    ,Harmonic 4 (-0.238) 5587.91
    ,Harmonic 5 2.191 769.36
    ,Harmonic 6 0.993 559.8
    ,Harmonic 7 (-2.204) 2478.01
    ,Harmonic 8 (-2.062) 1188.8
    ,Harmonic 9 0.909 274.58
    ,Harmonic 10 (-2.497) 99.22
    ,Harmonic 11 1.32 208.28
    ,Harmonic 12 1.899 71.65
    ,Harmonic 13 1.923 86.81
    ,Harmonic 14 (-1.055) 66.84
    ,Harmonic 15 1.441 7.85
    ,Harmonic 16 3.011 115.2
    ,Harmonic 17 (-1.614) 31.2
    ,Harmonic 18 (-2.477) 86.78
    ,Harmonic 19 (-0.115) 16.44
    ,Harmonic 20 (-1.286) 11.17
    ,Harmonic 21 (-1.337) 8.79
    ,Harmonic 22 0.363 21.64
    ,Harmonic 23 (-2.563) 17.17
    ,Harmonic 24 (-0.776) 6.53
    ,Harmonic 25 0.455 11.95
    ,Harmonic 26 0.78 5.78
    ,Harmonic 27 0.25 3.7
    ,Harmonic 28 (-1.82) 2.3
    ,Harmonic 29 (-1.493) 8.28
    ,Harmonic 30 (-3.048) 3.55
    ,Harmonic 31 (-0.39) 16.39
    ,Harmonic 32 2.496 1.83
    ,Harmonic 33 (-2.353) 3.88
    ,Harmonic 34 (-1.074) 3.01]