Note35.hs

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

import Sharc.Types

note35 :: Note
note35 = Note
    (Pitch 493.883 59 "b4")
    36
    (Range
        (NoteRange
            (NoteRangeAmplitude 9877.66 20 3.92)
            (NoteRangeHarmonicFreq 1 493.88))
        (NoteRange
            (NoteRangeAmplitude 493.88 1 1752.0)
            (NoteRangeHarmonicFreq 20 9877.66)))
    [Harmonic 1 2.673 1752.0
    ,Harmonic 2 2.068 344.97
    ,Harmonic 3 0.631 481.74
    ,Harmonic 4 (-0.273) 1312.2
    ,Harmonic 5 0.213 841.06
    ,Harmonic 6 2.09 652.81
    ,Harmonic 7 1.569 7.33
    ,Harmonic 8 (-1.965) 72.5
    ,Harmonic 9 2.152 117.37
    ,Harmonic 10 (-1.548) 52.26
    ,Harmonic 11 (-3.003) 58.57
    ,Harmonic 12 (-1.558) 27.35
    ,Harmonic 13 0.802 84.82
    ,Harmonic 14 (-2.982) 21.47
    ,Harmonic 15 2.388 13.1
    ,Harmonic 16 (-2.791) 22.32
    ,Harmonic 17 (-0.234) 4.78
    ,Harmonic 18 (-0.123) 6.1
    ,Harmonic 19 (-1.442) 13.0
    ,Harmonic 20 (-0.58) 3.92]