Note22.hs

module Sharc.Instruments.CelloMarteleBowing.Note22 (note22) where

import Sharc.Types

note22 :: Note
note22 = Note
    (Pitch 233.082 46 "a#3")
    23
    (Range
        (NoteRange
            (NoteRangeAmplitude 8157.87 35 2.44)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 233.08 1 2983.0)
            (NoteRangeHarmonicFreq 42 9789.44)))
    [Harmonic 1 (-1.258) 2983.0
    ,Harmonic 2 (-2.476) 1207.73
    ,Harmonic 3 (-2.277) 1262.09
    ,Harmonic 4 (-1.326) 863.51
    ,Harmonic 5 3.117 718.01
    ,Harmonic 6 (-0.93) 553.26
    ,Harmonic 7 0.17 1133.02
    ,Harmonic 8 (-0.955) 655.37
    ,Harmonic 9 (-2.166) 731.77
    ,Harmonic 10 (-0.999) 248.66
    ,Harmonic 11 0.891 169.08
    ,Harmonic 12 2.729 237.83
    ,Harmonic 13 (-2.286) 253.89
    ,Harmonic 14 (-1.981) 293.05
    ,Harmonic 15 2.098 56.91
    ,Harmonic 16 0.643 64.76
    ,Harmonic 17 1.631 56.75
    ,Harmonic 18 1.629 87.45
    ,Harmonic 19 1.6 37.41
    ,Harmonic 20 0.997 22.66
    ,Harmonic 21 (-5.2e-2) 5.89
    ,Harmonic 22 1.481 19.65
    ,Harmonic 23 2.173 37.51
    ,Harmonic 24 (-2.154) 11.96
    ,Harmonic 25 3.0e-2 13.6
    ,Harmonic 26 (-0.163) 12.22
    ,Harmonic 27 1.405 9.1
    ,Harmonic 28 (-2.549) 27.66
    ,Harmonic 29 0.835 29.88
    ,Harmonic 30 (-2.85) 22.95
    ,Harmonic 31 0.933 9.21
    ,Harmonic 32 (-2.296) 6.81
    ,Harmonic 33 (-0.412) 11.7
    ,Harmonic 34 2.772 9.67
    ,Harmonic 35 (-1.552) 2.44
    ,Harmonic 36 3.046 3.43
    ,Harmonic 37 0.935 8.09
    ,Harmonic 38 (-1.19) 3.54
    ,Harmonic 39 8.0e-3 14.32
    ,Harmonic 40 1.231 3.81
    ,Harmonic 41 (-1.746) 6.24
    ,Harmonic 42 0.256 3.02]