Note29.hs

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

import Sharc.Types

note29 :: Note
note29 = Note
    (Pitch 349.228 53 "f4")
    30
    (Range
        (NoteRange
            (NoteRangeAmplitude 6635.33 19 7.0e-2)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 349.22 1 2829.0)
            (NoteRangeHarmonicFreq 28 9778.38)))
    [Harmonic 1 1.648 2829.0
    ,Harmonic 2 (-0.159) 115.24
    ,Harmonic 3 0.473 33.25
    ,Harmonic 4 (-1.037) 16.24
    ,Harmonic 5 (-1.882) 10.24
    ,Harmonic 6 (-2.912) 15.56
    ,Harmonic 7 (-1.273) 2.09
    ,Harmonic 8 (-2.061) 9.06
    ,Harmonic 9 (-3.136) 0.84
    ,Harmonic 10 (-1.694) 1.58
    ,Harmonic 11 (-2.25) 0.57
    ,Harmonic 12 2.851 0.14
    ,Harmonic 13 (-2.84) 0.4
    ,Harmonic 14 (-2.247) 0.19
    ,Harmonic 15 (-2.071) 0.3
    ,Harmonic 16 2.677 0.29
    ,Harmonic 17 3.103 0.35
    ,Harmonic 18 (-2.418) 0.27
    ,Harmonic 19 (-2.802) 7.0e-2
    ,Harmonic 20 3.077 0.19
    ,Harmonic 21 (-2.451) 8.0e-2
    ,Harmonic 22 2.69 0.38
    ,Harmonic 23 (-2.296) 0.23
    ,Harmonic 24 2.88 0.13
    ,Harmonic 25 (-2.832) 0.16
    ,Harmonic 26 2.51 0.25
    ,Harmonic 27 (-2.482) 0.21
    ,Harmonic 28 3.109 0.22]