Note37.hs

module Sharc.Instruments.Contrabass.Note37 (note37) where

import Sharc.Types

note37 :: Note
note37 = Note
    (Pitch 277.183 49 "c#4")
    38
    (Range
        (NoteRange
            (NoteRangeAmplitude 8869.85 32 0.98)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 277.18 1 3503.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 2.217 3503.0
    ,Harmonic 2 0.552 892.79
    ,Harmonic 3 0.161 1496.56
    ,Harmonic 4 2.423 387.48
    ,Harmonic 5 2.012 445.41
    ,Harmonic 6 (-1.787) 488.59
    ,Harmonic 7 (-0.186) 331.18
    ,Harmonic 8 1.731 220.52
    ,Harmonic 9 0.163 526.55
    ,Harmonic 10 0.68 167.46
    ,Harmonic 11 2.268 91.56
    ,Harmonic 12 (-2.221) 33.11
    ,Harmonic 13 (-2.021) 5.07
    ,Harmonic 14 (-1.201) 50.19
    ,Harmonic 15 2.625 28.81
    ,Harmonic 16 (-5.6e-2) 21.34
    ,Harmonic 17 (-2.915) 13.41
    ,Harmonic 18 (-2.23) 12.01
    ,Harmonic 19 1.083 20.41
    ,Harmonic 20 1.373 29.21
    ,Harmonic 21 (-1.28) 7.4
    ,Harmonic 22 2.3 29.48
    ,Harmonic 23 2.74 46.14
    ,Harmonic 24 2.199 41.84
    ,Harmonic 25 0.385 23.35
    ,Harmonic 26 (-0.585) 18.32
    ,Harmonic 27 (-2.546) 9.72
    ,Harmonic 28 (-2.532) 4.96
    ,Harmonic 29 0.567 11.04
    ,Harmonic 30 0.373 11.73
    ,Harmonic 31 (-1.491) 11.67
    ,Harmonic 32 1.373 0.98
    ,Harmonic 33 (-0.168) 6.9
    ,Harmonic 34 (-2.0e-2) 2.17
    ,Harmonic 35 (-2.438) 1.14
    ,Harmonic 36 (-0.765) 2.08]