Note29.hs

module Sharc.Instruments.CelloMarteleBowing.Note29 (note29) where

import Sharc.Types

note29 :: Note
note29 = Note
    (Pitch 349.228 53 "f4")
    30
    (Range
        (NoteRange
            (NoteRangeAmplitude 9778.38 28 9.46)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 1746.14 5 6280.0)
            (NoteRangeHarmonicFreq 28 9778.38)))
    [Harmonic 1 (-0.535) 5156.19
    ,Harmonic 2 (-2.902) 3839.36
    ,Harmonic 3 2.48 2317.4
    ,Harmonic 4 2.7 1408.05
    ,Harmonic 5 1.204 6280.0
    ,Harmonic 6 2.2e-2 1290.98
    ,Harmonic 7 (-3.089) 538.86
    ,Harmonic 8 1.915 449.89
    ,Harmonic 9 2.369 557.64
    ,Harmonic 10 1.096 166.03
    ,Harmonic 11 2.649 250.67
    ,Harmonic 12 1.939 123.03
    ,Harmonic 13 (-2.982) 83.68
    ,Harmonic 14 (-0.423) 45.08
    ,Harmonic 15 (-1.362) 85.08
    ,Harmonic 16 (-0.942) 27.88
    ,Harmonic 17 2.477 34.86
    ,Harmonic 18 1.53 33.22
    ,Harmonic 19 (-1.818) 78.24
    ,Harmonic 20 0.412 54.75
    ,Harmonic 21 (-2.068) 31.97
    ,Harmonic 22 (-2.705) 36.88
    ,Harmonic 23 (-2.169) 32.62
    ,Harmonic 24 (-3.082) 20.45
    ,Harmonic 25 1.089 17.95
    ,Harmonic 26 (-2.366) 13.4
    ,Harmonic 27 (-0.242) 17.01
    ,Harmonic 28 2.067 9.46]