Note28.hs

module Sharc.Instruments.CelloPizzicato.Note28 (note28) where

import Sharc.Types

note28 :: Note
note28 = Note
    (Pitch 329.628 52 "e4")
    29
    (Range
        (NoteRange
            (NoteRangeAmplitude 7911.07 24 3.0e-2)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 329.62 1 3751.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 1.609 3751.0
    ,Harmonic 2 2.566 113.87
    ,Harmonic 3 2.514 198.88
    ,Harmonic 4 0.667 174.83
    ,Harmonic 5 (-0.23) 22.65
    ,Harmonic 6 1.144 32.45
    ,Harmonic 7 0.357 1.34
    ,Harmonic 8 (-0.495) 42.44
    ,Harmonic 9 (-1.405) 13.02
    ,Harmonic 10 (-4.0e-3) 10.76
    ,Harmonic 11 (-2.142) 1.67
    ,Harmonic 12 (-1.494) 1.23
    ,Harmonic 13 2.222 0.83
    ,Harmonic 14 2.079 0.51
    ,Harmonic 15 2.004 1.97
    ,Harmonic 16 1.015 0.62
    ,Harmonic 17 2.478 0.51
    ,Harmonic 18 (-2.182) 0.87
    ,Harmonic 19 (-1.315) 0.72
    ,Harmonic 20 (-1.671) 0.77
    ,Harmonic 21 2.417 0.56
    ,Harmonic 22 (-2.533) 0.47
    ,Harmonic 23 (-2.333) 0.31
    ,Harmonic 24 1.585 3.0e-2
    ,Harmonic 25 2.932 0.31
    ,Harmonic 26 (-0.579) 0.16
    ,Harmonic 27 (-1.091) 0.37
    ,Harmonic 28 (-2.862) 0.26
    ,Harmonic 29 (-2.571) 0.39
    ,Harmonic 30 2.216 0.17]