Note35.hs

module Sharc.Instruments.Viola.Note35 (note35) where

import Sharc.Types

note35 :: Note
note35 = Note
    (Pitch 987.767 71 "b5")
    36
    (Range
        (NoteRange
            (NoteRangeAmplitude 9877.67 10 46.26)
            (NoteRangeHarmonicFreq 1 987.76))
        (NoteRange
            (NoteRangeAmplitude 1975.53 2 2994.0)
            (NoteRangeHarmonicFreq 10 9877.67)))
    [Harmonic 1 (-0.956) 2257.56
    ,Harmonic 2 2.173 2994.0
    ,Harmonic 3 (-1.816) 615.05
    ,Harmonic 4 (-1.856) 1793.92
    ,Harmonic 5 (-1.694) 1012.59
    ,Harmonic 6 (-2.69) 1012.24
    ,Harmonic 7 2.548 107.07
    ,Harmonic 8 (-0.671) 145.76
    ,Harmonic 9 (-0.819) 132.18
    ,Harmonic 10 0.467 46.26]