Note13.hs

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

import Sharc.Types

note13 :: Note
note13 = Note
    (Pitch 415.305 56 "g#4")
    14
    (Range
        (NoteRange
            (NoteRangeAmplitude 9552.01 23 2.73)
            (NoteRangeHarmonicFreq 1 415.3))
        (NoteRange
            (NoteRangeAmplitude 1245.91 3 3663.0)
            (NoteRangeHarmonicFreq 24 9967.32)))
    [Harmonic 1 (-1.363) 3274.75
    ,Harmonic 2 (-1.001) 3530.88
    ,Harmonic 3 (-2.496) 3663.0
    ,Harmonic 4 0.385 1487.72
    ,Harmonic 5 2.918 2130.75
    ,Harmonic 6 1.413 1826.57
    ,Harmonic 7 (-1.379) 279.46
    ,Harmonic 8 1.213 598.95
    ,Harmonic 9 (-0.818) 478.58
    ,Harmonic 10 (-0.44) 265.15
    ,Harmonic 11 (-1.381) 73.18
    ,Harmonic 12 (-0.979) 41.35
    ,Harmonic 13 2.784 13.78
    ,Harmonic 14 (-1.648) 60.14
    ,Harmonic 15 1.208 44.51
    ,Harmonic 16 (-3.119) 45.17
    ,Harmonic 17 2.751 6.27
    ,Harmonic 18 2.29 11.82
    ,Harmonic 19 0.223 16.59
    ,Harmonic 20 0.783 15.76
    ,Harmonic 21 (-1.739) 16.44
    ,Harmonic 22 0.352 13.16
    ,Harmonic 23 (-2.01) 2.73
    ,Harmonic 24 1.723 11.72]