Note13.hs

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

import Sharc.Types

note13 :: Note
note13 = Note
    (Pitch 415.305 56 "g#4")
    14
    (Range
        (NoteRange
            (NoteRangeAmplitude 9552.01 23 1.03)
            (NoteRangeHarmonicFreq 1 415.3))
        (NoteRange
            (NoteRangeAmplitude 830.61 2 3568.0)
            (NoteRangeHarmonicFreq 24 9967.32)))
    [Harmonic 1 0.117 2414.73
    ,Harmonic 2 2.18 3568.0
    ,Harmonic 3 1.307 1972.81
    ,Harmonic 4 1.074 289.28
    ,Harmonic 5 (-1.502) 371.54
    ,Harmonic 6 (-0.671) 79.14
    ,Harmonic 7 0.496 22.13
    ,Harmonic 8 (-1.651) 10.47
    ,Harmonic 9 (-3.059) 72.3
    ,Harmonic 10 1.094 19.39
    ,Harmonic 11 0.143 29.84
    ,Harmonic 12 (-2.824) 5.43
    ,Harmonic 13 (-0.267) 9.08
    ,Harmonic 14 (-0.822) 7.27
    ,Harmonic 15 (-2.44) 11.02
    ,Harmonic 16 2.863 6.17
    ,Harmonic 17 1.278 7.13
    ,Harmonic 18 (-2.1) 14.17
    ,Harmonic 19 2.106 16.11
    ,Harmonic 20 (-0.719) 20.38
    ,Harmonic 21 (-2.456) 17.54
    ,Harmonic 22 0.836 4.91
    ,Harmonic 23 0.66 1.03
    ,Harmonic 24 (-2.69) 16.93]