Note13.hs

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

import Sharc.Types

note13 :: Note
note13 = Note
    (Pitch 415.305 56 "g#4")
    14
    (Range
        (NoteRange
            (NoteRangeAmplitude 8306.1 20 14.96)
            (NoteRangeHarmonicFreq 1 415.3))
        (NoteRange
            (NoteRangeAmplitude 415.3 1 18389.0)
            (NoteRangeHarmonicFreq 24 9967.32)))
    [Harmonic 1 1.512 18389.0
    ,Harmonic 2 (-2.148) 1566.94
    ,Harmonic 3 1.96 1480.65
    ,Harmonic 4 0.282 4518.9
    ,Harmonic 5 3.017 3372.58
    ,Harmonic 6 (-1.512) 2295.0
    ,Harmonic 7 (-0.461) 294.99
    ,Harmonic 8 0.858 1454.49
    ,Harmonic 9 (-1.129) 1436.92
    ,Harmonic 10 2.612 1151.8
    ,Harmonic 11 1.799 40.02
    ,Harmonic 12 1.227 53.58
    ,Harmonic 13 0.56 175.38
    ,Harmonic 14 0.213 60.55
    ,Harmonic 15 (-2.622) 47.93
    ,Harmonic 16 2.355 25.44
    ,Harmonic 17 (-2.035) 48.9
    ,Harmonic 18 1.732 28.47
    ,Harmonic 19 1.804 42.68
    ,Harmonic 20 2.832 14.96
    ,Harmonic 21 (-2.04) 19.49
    ,Harmonic 22 0.357 15.01
    ,Harmonic 23 (-3.028) 42.14
    ,Harmonic 24 (-2.628) 18.8]