Note29.hs

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

import Sharc.Types

note29 :: Note
note29 = Note
    (Pitch 349.228 53 "f4")
    30
    (Range
        (NoteRange
            (NoteRangeAmplitude 7333.78 21 0.66)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 349.22 1 3074.0)
            (NoteRangeHarmonicFreq 28 9778.38)))
    [Harmonic 1 (-1.657) 3074.0
    ,Harmonic 2 0.235 393.85
    ,Harmonic 3 1.037 133.91
    ,Harmonic 4 2.52 55.36
    ,Harmonic 5 2.599 74.44
    ,Harmonic 6 2.66 95.51
    ,Harmonic 7 9.0e-3 21.69
    ,Harmonic 8 (-1.702) 35.81
    ,Harmonic 9 1.14 21.9
    ,Harmonic 10 (-2.383) 3.36
    ,Harmonic 11 (-2.712) 18.88
    ,Harmonic 12 1.341 19.04
    ,Harmonic 13 (-2.072) 29.56
    ,Harmonic 14 (-2.14) 10.26
    ,Harmonic 15 3.001 9.2
    ,Harmonic 16 (-1.604) 11.79
    ,Harmonic 17 2.659 4.98
    ,Harmonic 18 (-2.433) 4.35
    ,Harmonic 19 5.0e-3 7.82
    ,Harmonic 20 2.99 10.08
    ,Harmonic 21 (-0.609) 0.66
    ,Harmonic 22 0.831 8.71
    ,Harmonic 23 (-1.418) 13.22
    ,Harmonic 24 (-0.888) 11.77
    ,Harmonic 25 0.618 6.82
    ,Harmonic 26 (-0.412) 2.03
    ,Harmonic 27 1.004 1.99
    ,Harmonic 28 (-1.638) 2.5]