Note13.hs

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

import Sharc.Types

note13 :: Note
note13 = Note
    (Pitch 415.305 56 "g#4")
    14
    (Range
        (NoteRange
            (NoteRangeAmplitude 6229.57 15 2.06)
            (NoteRangeHarmonicFreq 1 415.3))
        (NoteRange
            (NoteRangeAmplitude 830.61 2 5367.0)
            (NoteRangeHarmonicFreq 24 9967.32)))
    [Harmonic 1 (-2.535) 2476.11
    ,Harmonic 2 (-0.141) 5367.0
    ,Harmonic 3 (-2.465) 4629.4
    ,Harmonic 4 1.045 1583.89
    ,Harmonic 5 (-2.357) 5103.06
    ,Harmonic 6 (-2.884) 1414.34
    ,Harmonic 7 2.677 351.84
    ,Harmonic 8 0.554 203.49
    ,Harmonic 9 2.573 216.4
    ,Harmonic 10 (-2.561) 346.58
    ,Harmonic 11 (-0.146) 36.65
    ,Harmonic 12 (-0.597) 33.13
    ,Harmonic 13 (-2.829) 5.64
    ,Harmonic 14 (-1.216) 20.8
    ,Harmonic 15 (-1.768) 2.06
    ,Harmonic 16 (-2.365) 10.75
    ,Harmonic 17 0.359 22.32
    ,Harmonic 18 2.926 12.87
    ,Harmonic 19 1.104 5.65
    ,Harmonic 20 (-2.79) 5.25
    ,Harmonic 21 2.236 3.8
    ,Harmonic 22 (-0.337) 4.83
    ,Harmonic 23 0.699 2.45
    ,Harmonic 24 5.1e-2 4.48]