Note33.hs

module Sharc.Instruments.ContrabassMuted.Note33 (note33) where

import Sharc.Types

note33 :: Note
note33 = Note
    (Pitch 220.0 45 "a3")
    34
    (Range
        (NoteRange
            (NoteRangeAmplitude 7040.0 32 0.25)
            (NoteRangeHarmonicFreq 1 220.0))
        (NoteRange
            (NoteRangeAmplitude 220.0 1 7822.0)
            (NoteRangeHarmonicFreq 45 9900.0)))
    [Harmonic 1 (-1.865) 7822.0
    ,Harmonic 2 (-1.024) 6251.6
    ,Harmonic 3 (-2.071) 655.71
    ,Harmonic 4 0.739 474.11
    ,Harmonic 5 1.991 1863.25
    ,Harmonic 6 1.762 600.14
    ,Harmonic 7 (-1.541) 606.57
    ,Harmonic 8 (-0.134) 445.23
    ,Harmonic 9 (-2.955) 132.84
    ,Harmonic 10 (-1.26) 260.91
    ,Harmonic 11 3.096 383.97
    ,Harmonic 12 (-2.68) 44.32
    ,Harmonic 13 (-3.01) 162.95
    ,Harmonic 14 2.269 98.24
    ,Harmonic 15 2.743 146.64
    ,Harmonic 16 (-1.461) 83.17
    ,Harmonic 17 2.154 50.22
    ,Harmonic 18 (-2.623) 76.27
    ,Harmonic 19 0.611 27.56
    ,Harmonic 20 1.537 17.93
    ,Harmonic 21 (-3.097) 8.2
    ,Harmonic 22 (-1.104) 11.92
    ,Harmonic 23 (-2.329) 9.63
    ,Harmonic 24 (-2.974) 9.29
    ,Harmonic 25 (-1.02) 9.33
    ,Harmonic 26 2.292 15.05
    ,Harmonic 27 0.573 22.43
    ,Harmonic 28 2.8 1.07
    ,Harmonic 29 0.796 12.37
    ,Harmonic 30 (-2.058) 13.57
    ,Harmonic 31 (-1.783) 5.7
    ,Harmonic 32 1.19 0.25
    ,Harmonic 33 0.424 4.3
    ,Harmonic 34 (-1.416) 8.9
    ,Harmonic 35 1.858 5.29
    ,Harmonic 36 (-1.715) 3.32
    ,Harmonic 37 (-2.032) 2.08
    ,Harmonic 38 (-2.359) 8.2
    ,Harmonic 39 2.887 8.18
    ,Harmonic 40 (-0.202) 11.99
    ,Harmonic 41 (-1.092) 4.11
    ,Harmonic 42 (-3.038) 1.7
    ,Harmonic 43 (-2.984) 1.85
    ,Harmonic 44 2.124 3.08
    ,Harmonic 45 0.816 2.96]