Note35.hs

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

import Sharc.Types

note35 :: Note
note35 = Note
    (Pitch 493.883 59 "b4")
    36
    (Range
        (NoteRange
            (NoteRangeAmplitude 7408.24 15 14.02)
            (NoteRangeHarmonicFreq 1 493.88))
        (NoteRange
            (NoteRangeAmplitude 1975.53 4 4076.0)
            (NoteRangeHarmonicFreq 20 9877.66)))
    [Harmonic 1 1.874 3379.73
    ,Harmonic 2 0.37 2602.37
    ,Harmonic 3 (-1.686) 1053.98
    ,Harmonic 4 (-2.591) 4076.0
    ,Harmonic 5 (-2.268) 2027.74
    ,Harmonic 6 (-0.201) 2068.92
    ,Harmonic 7 0.495 187.21
    ,Harmonic 8 1.822 330.89
    ,Harmonic 9 (-0.364) 145.14
    ,Harmonic 10 3.9e-2 97.7
    ,Harmonic 11 (-2.163) 216.87
    ,Harmonic 12 (-0.616) 130.44
    ,Harmonic 13 1.837 155.86
    ,Harmonic 14 (-2.562) 80.86
    ,Harmonic 15 0.201 14.02
    ,Harmonic 16 3.012 45.45
    ,Harmonic 17 (-0.558) 123.72
    ,Harmonic 18 2.195 95.88
    ,Harmonic 19 (-2.973) 36.64
    ,Harmonic 20 (-1.379) 29.34]