Note34.hs

module Sharc.Instruments.Cello.Note34 (note34) where

import Sharc.Types

note34 :: Note
note34 = Note
    (Pitch 466.164 58 "a#4")
    35
    (Range
        (NoteRange
            (NoteRangeAmplitude 5593.96 12 5.76)
            (NoteRangeHarmonicFreq 1 466.16))
        (NoteRange
            (NoteRangeAmplitude 466.16 1 3108.0)
            (NoteRangeHarmonicFreq 21 9789.44)))
    [Harmonic 1 0.693 3108.0
    ,Harmonic 2 (-2.202) 1448.26
    ,Harmonic 3 0.151 1333.16
    ,Harmonic 4 2.292 1781.68
    ,Harmonic 5 2.05 729.61
    ,Harmonic 6 2.925 566.74
    ,Harmonic 7 1.448 236.76
    ,Harmonic 8 (-0.698) 279.42
    ,Harmonic 9 2.58 119.41
    ,Harmonic 10 (-0.92) 16.22
    ,Harmonic 11 (-1.214) 20.44
    ,Harmonic 12 (-1.025) 5.76
    ,Harmonic 13 1.374 25.42
    ,Harmonic 14 0.956 27.53
    ,Harmonic 15 1.611 33.0
    ,Harmonic 16 (-2.075) 8.06
    ,Harmonic 17 (-1.059) 16.68
    ,Harmonic 18 0.944 10.23
    ,Harmonic 19 (-2.758) 18.01
    ,Harmonic 20 (-1.658) 19.33
    ,Harmonic 21 0.69 5.91]