Note36.hs

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

import Sharc.Types

note36 :: Note
note36 = Note
    (Pitch 261.626 48 "c4")
    37
    (Range
        (NoteRange
            (NoteRangeAmplitude 9156.91 35 1.46)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 523.25 2 2658.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 (-3.008) 2575.42
    ,Harmonic 2 (-2.0e-3) 2658.0
    ,Harmonic 3 (-2.131) 676.98
    ,Harmonic 4 (-2.328) 459.07
    ,Harmonic 5 2.781 534.39
    ,Harmonic 6 0.134 154.18
    ,Harmonic 7 (-0.175) 851.43
    ,Harmonic 8 (-2.423) 82.63
    ,Harmonic 9 (-1.139) 55.11
    ,Harmonic 10 0.248 174.8
    ,Harmonic 11 2.299 84.38
    ,Harmonic 12 (-1.982) 72.82
    ,Harmonic 13 (-1.44) 83.35
    ,Harmonic 14 2.098 51.75
    ,Harmonic 15 (-0.627) 73.02
    ,Harmonic 16 2.991 19.8
    ,Harmonic 17 0.982 40.6
    ,Harmonic 18 2.483 7.75
    ,Harmonic 19 (-2.717) 30.22
    ,Harmonic 20 1.03 10.11
    ,Harmonic 21 (-2.822) 9.83
    ,Harmonic 22 (-0.918) 10.41
    ,Harmonic 23 0.7 14.5
    ,Harmonic 24 (-1.738) 31.1
    ,Harmonic 25 (-1.158) 41.3
    ,Harmonic 26 (-1.065) 21.28
    ,Harmonic 27 (-0.436) 26.06
    ,Harmonic 28 (-2.143) 6.8
    ,Harmonic 29 (-1.033) 9.71
    ,Harmonic 30 (-0.224) 1.47
    ,Harmonic 31 (-0.814) 13.4
    ,Harmonic 32 0.205 8.59
    ,Harmonic 33 6.2e-2 5.74
    ,Harmonic 34 (-1.491) 6.5
    ,Harmonic 35 3.091 1.46
    ,Harmonic 36 2.154 2.36
    ,Harmonic 37 (-0.669) 2.33
    ,Harmonic 38 0.515 1.62]