Note39.hs

module Sharc.Instruments.ContrabassPizzicato.Note39 (note39) where

import Sharc.Types

note39 :: Note
note39 = Note
    (Pitch 329.628 52 "e4")
    40
    (Range
        (NoteRange
            (NoteRangeAmplitude 5603.67 17 2.27)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 329.62 1 3311.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 2.559 3311.0
    ,Harmonic 2 1.722 3222.43
    ,Harmonic 3 (-0.273) 351.43
    ,Harmonic 4 (-0.55) 860.34
    ,Harmonic 5 0.759 250.33
    ,Harmonic 6 (-1.344) 123.14
    ,Harmonic 7 1.61 63.12
    ,Harmonic 8 (-2.513) 25.09
    ,Harmonic 9 (-1.081) 12.14
    ,Harmonic 10 (-2.731) 22.94
    ,Harmonic 11 (-1.011) 19.0
    ,Harmonic 12 2.057 14.15
    ,Harmonic 13 2.057 39.34
    ,Harmonic 14 0.742 16.03
    ,Harmonic 15 0.424 12.4
    ,Harmonic 16 (-1.384) 19.16
    ,Harmonic 17 (-1.024) 2.27
    ,Harmonic 18 2.333 22.24
    ,Harmonic 19 (-2.215) 5.35
    ,Harmonic 20 (-0.2) 13.12
    ,Harmonic 21 2.986 2.97
    ,Harmonic 22 1.664 14.54
    ,Harmonic 23 2.336 12.52
    ,Harmonic 24 (-1.192) 38.36
    ,Harmonic 25 (-0.116) 13.22
    ,Harmonic 26 3.049 17.43
    ,Harmonic 27 2.967 3.74
    ,Harmonic 28 (-2.402) 32.6
    ,Harmonic 29 (-2.889) 14.74
    ,Harmonic 30 2.484 7.98]