Note35.hs

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

import Sharc.Types

note35 :: Note
note35 = Note
    (Pitch 493.883 59 "b4")
    36
    (Range
        (NoteRange
            (NoteRangeAmplitude 6914.36 14 0.76)
            (NoteRangeHarmonicFreq 1 493.88))
        (NoteRange
            (NoteRangeAmplitude 493.88 1 3678.0)
            (NoteRangeHarmonicFreq 20 9877.66)))
    [Harmonic 1 0.931 3678.0
    ,Harmonic 2 1.298 1998.4
    ,Harmonic 3 2.537 320.35
    ,Harmonic 4 (-0.426) 461.72
    ,Harmonic 5 1.112 90.52
    ,Harmonic 6 (-2.203) 43.09
    ,Harmonic 7 1.877 22.97
    ,Harmonic 8 (-1.04) 11.87
    ,Harmonic 9 (-2.288) 6.3
    ,Harmonic 10 (-1.592) 3.72
    ,Harmonic 11 2.591 2.42
    ,Harmonic 12 (-2.865) 3.59
    ,Harmonic 13 (-1.924) 1.5
    ,Harmonic 14 0.481 0.76
    ,Harmonic 15 3.131 2.19
    ,Harmonic 16 2.703 3.72
    ,Harmonic 17 2.819 3.81
    ,Harmonic 18 2.995 3.89
    ,Harmonic 19 (-2.282) 2.05
    ,Harmonic 20 1.548 1.17]