Note34.hs

module Sharc.Instruments.ContrabassPizzicato.Note34 (note34) where

import Sharc.Types

note34 :: Note
note34 = Note
    (Pitch 246.942 47 "b3")
    35
    (Range
        (NoteRange
            (NoteRangeAmplitude 5185.78 21 6.0e-2)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 246.94 1 2452.0)
            (NoteRangeHarmonicFreq 35 8642.97)))
    [Harmonic 1 (-1.292) 2452.0
    ,Harmonic 2 1.035 433.08
    ,Harmonic 3 (-0.938) 18.58
    ,Harmonic 4 2.926 27.48
    ,Harmonic 5 (-1.061) 32.26
    ,Harmonic 6 0.101 15.1
    ,Harmonic 7 0.872 38.11
    ,Harmonic 8 1.361 2.16
    ,Harmonic 9 (-2.926) 13.16
    ,Harmonic 10 (-1.846) 5.53
    ,Harmonic 11 (-1.981) 12.33
    ,Harmonic 12 (-2.727) 3.29
    ,Harmonic 13 2.638 1.74
    ,Harmonic 14 (-1.227) 3.23
    ,Harmonic 15 (-2.239) 2.29
    ,Harmonic 16 1.167 3.16
    ,Harmonic 17 1.065 2.35
    ,Harmonic 18 (-0.245) 2.3
    ,Harmonic 19 (-5.4e-2) 3.61
    ,Harmonic 20 (-1.0) 2.21
    ,Harmonic 21 (-1.885) 6.0e-2
    ,Harmonic 22 (-1.253) 4.96
    ,Harmonic 23 (-1.071) 2.68
    ,Harmonic 24 (-2.228) 2.4
    ,Harmonic 25 1.33 2.61
    ,Harmonic 26 9.1e-2 1.21
    ,Harmonic 27 (-1.211) 4.27
    ,Harmonic 28 0.105 2.27
    ,Harmonic 29 (-0.883) 1.41
    ,Harmonic 30 (-1.621) 0.4
    ,Harmonic 31 1.077 1.95
    ,Harmonic 32 1.192 0.97
    ,Harmonic 33 (-2.845) 1.37
    ,Harmonic 34 0.555 1.72
    ,Harmonic 35 0.968 1.57]