Note32.hs

module Sharc.Instruments.ContrabassPizzicato.Note32 (note32) where

import Sharc.Types

note32 :: Note
note32 = Note
    (Pitch 220.0 45 "a3")
    33
    (Range
        (NoteRange
            (NoteRangeAmplitude 9680.0 44 0.12)
            (NoteRangeHarmonicFreq 1 220.0))
        (NoteRange
            (NoteRangeAmplitude 220.0 1 6813.0)
            (NoteRangeHarmonicFreq 45 9900.0)))
    [Harmonic 1 (-1.629) 6813.0
    ,Harmonic 2 0.56 724.19
    ,Harmonic 3 (-2.274) 418.17
    ,Harmonic 4 (-2.473) 185.92
    ,Harmonic 5 0.386 109.05
    ,Harmonic 6 0.149 36.76
    ,Harmonic 7 (-0.346) 13.78
    ,Harmonic 8 (-0.286) 3.36
    ,Harmonic 9 (-0.316) 2.2
    ,Harmonic 10 (-0.563) 1.65
    ,Harmonic 11 (-0.419) 1.43
    ,Harmonic 12 (-0.229) 2.48
    ,Harmonic 13 0.855 1.34
    ,Harmonic 14 (-2.724) 2.04
    ,Harmonic 15 0.113 0.47
    ,Harmonic 16 0.366 0.35
    ,Harmonic 17 1.257 0.67
    ,Harmonic 18 2.779 0.75
    ,Harmonic 19 (-0.254) 1.21
    ,Harmonic 20 (-1.391) 0.69
    ,Harmonic 21 2.36 0.36
    ,Harmonic 22 2.096 1.83
    ,Harmonic 23 (-1.43) 0.42
    ,Harmonic 24 (-0.678) 1.18
    ,Harmonic 25 1.302 0.81
    ,Harmonic 26 0.41 0.94
    ,Harmonic 27 (-0.366) 0.63
    ,Harmonic 28 (-1.701) 1.07
    ,Harmonic 29 1.982 1.44
    ,Harmonic 30 (-0.759) 0.62
    ,Harmonic 31 0.792 0.4
    ,Harmonic 32 0.216 0.69
    ,Harmonic 33 3.043 0.38
    ,Harmonic 34 (-2.02) 0.41
    ,Harmonic 35 (-1.518) 0.69
    ,Harmonic 36 (-0.443) 0.34
    ,Harmonic 37 (-0.844) 0.56
    ,Harmonic 38 1.314 1.58
    ,Harmonic 39 (-0.932) 0.88
    ,Harmonic 40 2.675 1.2
    ,Harmonic 41 (-1.011) 0.38
    ,Harmonic 42 0.752 0.39
    ,Harmonic 43 3.05 0.61
    ,Harmonic 44 (-1.046) 0.12
    ,Harmonic 45 (-2.177) 0.22]