Note29.hs

module Sharc.Instruments.ViolinMuted.Note29 (note29) where

import Sharc.Types

note29 :: Note
note29 = Note
    (Pitch 1046.5 72 "c6")
    30
    (Range
        (NoteRange
            (NoteRangeAmplitude 8372.0 8 24.5)
            (NoteRangeHarmonicFreq 1 1046.5))
        (NoteRange
            (NoteRangeAmplitude 1046.5 1 1920.0)
            (NoteRangeHarmonicFreq 9 9418.5)))
    [Harmonic 1 (-1.521) 1920.0
    ,Harmonic 2 2.295 475.93
    ,Harmonic 3 (-2.698) 119.21
    ,Harmonic 4 (-0.741) 60.5
    ,Harmonic 5 (-2.987) 134.65
    ,Harmonic 6 (-2.794) 123.03
    ,Harmonic 7 (-2.427) 46.17
    ,Harmonic 8 (-0.768) 24.5
    ,Harmonic 9 (-1.378) 58.51]