Note33.hs

module Sharc.Instruments.ViolaMarteleBowing.Note33 (note33) where

import Sharc.Types

note33 :: Note
note33 = Note
    (Pitch 932.328 70 "a#5")
    34
    (Range
        (NoteRange
            (NoteRangeAmplitude 9323.27 10 41.88)
            (NoteRangeHarmonicFreq 1 932.32))
        (NoteRange
            (NoteRangeAmplitude 932.32 1 16253.0)
            (NoteRangeHarmonicFreq 10 9323.27)))
    [Harmonic 1 (-1.483) 16253.0
    ,Harmonic 2 (-2.066) 7225.96
    ,Harmonic 3 2.156 1616.77
    ,Harmonic 4 (-1.425) 390.17
    ,Harmonic 5 (-0.551) 285.56
    ,Harmonic 6 3.043 47.89
    ,Harmonic 7 0.796 127.41
    ,Harmonic 8 2.026 68.71
    ,Harmonic 9 (-0.457) 45.16
    ,Harmonic 10 0.43 41.88]