Note23.hs

module Sharc.Instruments.CelloMarteleBowing.Note23 (note23) where

import Sharc.Types

note23 :: Note
note23 = Note
    (Pitch 246.942 47 "b3")
    24
    (Range
        (NoteRange
            (NoteRangeAmplitude 7161.31 29 8.66)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 1728.59 7 3186.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 0.129 2415.47
    ,Harmonic 2 (-2.661) 2009.36
    ,Harmonic 3 (-1.397) 1149.93
    ,Harmonic 4 2.356 290.47
    ,Harmonic 5 (-0.817) 665.2
    ,Harmonic 6 2.25 535.0
    ,Harmonic 7 1.069 3186.0
    ,Harmonic 8 3.094 1759.97
    ,Harmonic 9 2.336 799.56
    ,Harmonic 10 (-0.533) 511.28
    ,Harmonic 11 2.067 124.51
    ,Harmonic 12 2.105 280.98
    ,Harmonic 13 (-0.779) 538.5
    ,Harmonic 14 0.762 87.15
    ,Harmonic 15 (-0.614) 220.99
    ,Harmonic 16 1.64 149.52
    ,Harmonic 17 (-2.658) 40.56
    ,Harmonic 18 0.321 118.78
    ,Harmonic 19 (-0.233) 51.14
    ,Harmonic 20 2.464 14.38
    ,Harmonic 21 (-1.377) 44.31
    ,Harmonic 22 2.739 61.3
    ,Harmonic 23 1.658 40.73
    ,Harmonic 24 (-1.196) 44.01
    ,Harmonic 25 (-1.197) 46.11
    ,Harmonic 26 (-2.824) 32.72
    ,Harmonic 27 2.226 45.73
    ,Harmonic 28 (-0.21) 31.28
    ,Harmonic 29 0.434 8.66
    ,Harmonic 30 (-0.5) 16.46
    ,Harmonic 31 (-0.915) 28.34
    ,Harmonic 32 (-2.869) 14.12
    ,Harmonic 33 (-2.673) 15.21
    ,Harmonic 34 0.566 27.76
    ,Harmonic 35 2.236 13.13
    ,Harmonic 36 (-0.398) 17.0
    ,Harmonic 37 (-2.581) 43.0
    ,Harmonic 38 1.744 18.41
    ,Harmonic 39 0.811 11.05
    ,Harmonic 40 (-2.078) 13.76]