Note36.hs

module Sharc.Instruments.ContrabassPizzicato.Note36 (note36) where

import Sharc.Types

note36 :: Note
note36 = Note
    (Pitch 277.183 49 "c#4")
    37
    (Range
        (NoteRange
            (NoteRangeAmplitude 5266.47 19 0.12)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 277.18 1 10833.0)
            (NoteRangeHarmonicFreq 35 9701.4)))
    [Harmonic 1 1.73 10833.0
    ,Harmonic 2 0.262 1901.16
    ,Harmonic 3 1.386 183.6
    ,Harmonic 4 0.651 402.2
    ,Harmonic 5 (-1.472) 26.5
    ,Harmonic 6 0.212 76.79
    ,Harmonic 7 2.7 8.41
    ,Harmonic 8 (-0.431) 9.67
    ,Harmonic 9 0.268 2.72
    ,Harmonic 10 1.308 3.17
    ,Harmonic 11 (-1.981) 1.05
    ,Harmonic 12 2.935 2.41
    ,Harmonic 13 (-2.544) 2.07
    ,Harmonic 14 2.618 1.39
    ,Harmonic 15 (-0.768) 1.5
    ,Harmonic 16 2.177 0.38
    ,Harmonic 17 2.446 1.18
    ,Harmonic 18 (-1.3e-2) 1.01
    ,Harmonic 19 (-2.995) 0.12
    ,Harmonic 20 2.021 2.79
    ,Harmonic 21 (-1.313) 0.19
    ,Harmonic 22 (-2.616) 1.26
    ,Harmonic 23 (-3.086) 1.15
    ,Harmonic 24 (-2.935) 0.69
    ,Harmonic 25 (-1.295) 0.39
    ,Harmonic 26 2.883 0.8
    ,Harmonic 27 (-0.215) 0.66
    ,Harmonic 28 (-1.773) 2.02
    ,Harmonic 29 (-2.978) 0.83
    ,Harmonic 30 2.243 0.86
    ,Harmonic 31 0.596 0.4
    ,Harmonic 32 (-3.046) 1.5
    ,Harmonic 33 2.462 0.83
    ,Harmonic 34 (-2.67) 0.35
    ,Harmonic 35 2.555 1.26]