Note33.hs

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

import Sharc.Types

note33 :: Note
note33 = Note
    (Pitch 220.0 45 "a3")
    34
    (Range
        (NoteRange
            (NoteRangeAmplitude 9900.0 45 8.0e-2)
            (NoteRangeHarmonicFreq 1 220.0))
        (NoteRange
            (NoteRangeAmplitude 220.0 1 9840.0)
            (NoteRangeHarmonicFreq 45 9900.0)))
    [Harmonic 1 1.385 9840.0
    ,Harmonic 2 2.789 1427.74
    ,Harmonic 3 (-2.737) 872.61
    ,Harmonic 4 (-1.256) 218.99
    ,Harmonic 5 (-0.687) 294.08
    ,Harmonic 6 1.171 273.74
    ,Harmonic 7 0.974 236.47
    ,Harmonic 8 2.33 221.27
    ,Harmonic 9 0.272 132.03
    ,Harmonic 10 (-0.64) 6.92
    ,Harmonic 11 0.28 34.74
    ,Harmonic 12 2.306 49.05
    ,Harmonic 13 (-1.687) 38.62
    ,Harmonic 14 0.157 47.9
    ,Harmonic 15 0.768 36.11
    ,Harmonic 16 2.822 8.89
    ,Harmonic 17 4.0e-3 27.08
    ,Harmonic 18 (-1.9) 15.09
    ,Harmonic 19 0.256 9.28
    ,Harmonic 20 (-3.089) 17.67
    ,Harmonic 21 (-1.966) 3.89
    ,Harmonic 22 (-1.33) 7.14
    ,Harmonic 23 2.171 1.95
    ,Harmonic 24 1.985 3.15
    ,Harmonic 25 (-2.896) 3.85
    ,Harmonic 26 (-2.213) 4.15
    ,Harmonic 27 2.741 2.27
    ,Harmonic 28 2.065 10.89
    ,Harmonic 29 0.662 9.08
    ,Harmonic 30 (-2.595) 7.33
    ,Harmonic 31 1.688 6.18
    ,Harmonic 32 3.118 4.22
    ,Harmonic 33 2.744 3.45
    ,Harmonic 34 (-0.733) 2.76
    ,Harmonic 35 0.204 1.42
    ,Harmonic 36 2.74 1.68
    ,Harmonic 37 (-1.476) 0.53
    ,Harmonic 38 (-0.584) 0.79
    ,Harmonic 39 (-0.693) 0.36
    ,Harmonic 40 (-1.848) 0.19
    ,Harmonic 41 (-2.229) 0.7
    ,Harmonic 42 (-0.374) 1.16
    ,Harmonic 43 0.132 0.26
    ,Harmonic 44 (-1.066) 0.54
    ,Harmonic 45 0.921 8.0e-2]