Note28.hs

module Sharc.Instruments.Viola.Note28 (note28) where

import Sharc.Types

note28 :: Note
note28 = Note
    (Pitch 659.255 64 "e5")
    29
    (Range
        (NoteRange
            (NoteRangeAmplitude 9888.82 15 25.37)
            (NoteRangeHarmonicFreq 1 659.25))
        (NoteRange
            (NoteRangeAmplitude 1318.51 2 5079.0)
            (NoteRangeHarmonicFreq 15 9888.82)))
    [Harmonic 1 (-0.738) 2878.03
    ,Harmonic 2 (-2.502) 5079.0
    ,Harmonic 3 1.368 3714.07
    ,Harmonic 4 (-1.653) 1502.53
    ,Harmonic 5 0.693 515.56
    ,Harmonic 6 (-0.254) 1731.13
    ,Harmonic 7 (-0.237) 657.64
    ,Harmonic 8 0.809 652.02
    ,Harmonic 9 (-2.779) 353.49
    ,Harmonic 10 0.903 183.65
    ,Harmonic 11 (-0.206) 82.73
    ,Harmonic 12 2.642 112.56
    ,Harmonic 13 1.082 76.27
    ,Harmonic 14 2.608 25.38
    ,Harmonic 15 (-2.327) 25.37]