Note33.hs

module Sharc.Instruments.CelloMarteleBowing.Note33 (note33) where

import Sharc.Types

note33 :: Note
note33 = Note
    (Pitch 440.0 57 "a4")
    34
    (Range
        (NoteRange
            (NoteRangeAmplitude 5720.0 13 11.56)
            (NoteRangeHarmonicFreq 1 440.0))
        (NoteRange
            (NoteRangeAmplitude 1320.0 3 2690.0)
            (NoteRangeHarmonicFreq 22 9680.0)))
    [Harmonic 1 (-1.996) 2029.38
    ,Harmonic 2 (-0.554) 980.77
    ,Harmonic 3 (-2.1e-2) 2690.0
    ,Harmonic 4 (-2.276) 2161.78
    ,Harmonic 5 1.753 1196.45
    ,Harmonic 6 (-1.351) 561.74
    ,Harmonic 7 2.951 262.79
    ,Harmonic 8 (-1.57) 180.29
    ,Harmonic 9 (-1.503) 300.25
    ,Harmonic 10 (-0.386) 163.4
    ,Harmonic 11 2.296 170.98
    ,Harmonic 12 3.087 209.94
    ,Harmonic 13 (-3.133) 11.56
    ,Harmonic 14 (-2.729) 59.97
    ,Harmonic 15 (-0.695) 56.95
    ,Harmonic 16 (-2.143) 85.4
    ,Harmonic 17 (-0.382) 49.5
    ,Harmonic 18 (-1.991) 33.76
    ,Harmonic 19 2.221 67.69
    ,Harmonic 20 2.612 24.11
    ,Harmonic 21 (-0.466) 54.93
    ,Harmonic 22 (-1.644) 39.16]