Note18.hs

module Sharc.Instruments.CelloMarteleBowing.Note18 (note18) where

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 184.997 42 "f#3")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 9619.84 52 0.94)
            (NoteRangeHarmonicFreq 1 184.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 2 2313.0)
            (NoteRangeHarmonicFreq 53 9804.84)))
    [Harmonic 1 1.32 784.99
    ,Harmonic 2 1.773 2313.0
    ,Harmonic 3 0.434 448.21
    ,Harmonic 4 (-1.031) 504.16
    ,Harmonic 5 (-8.5e-2) 431.04
    ,Harmonic 6 1.805 506.61
    ,Harmonic 7 2.049 106.51
    ,Harmonic 8 2.676 103.43
    ,Harmonic 9 1.938 297.83
    ,Harmonic 10 1.941 36.75
    ,Harmonic 11 (-2.993) 112.32
    ,Harmonic 12 (-0.72) 238.99
    ,Harmonic 13 1.295 201.09
    ,Harmonic 14 2.846 143.66
    ,Harmonic 15 (-0.537) 115.14
    ,Harmonic 16 0.416 52.35
    ,Harmonic 17 2.082 90.14
    ,Harmonic 18 1.946 34.97
    ,Harmonic 19 (-1.152) 18.48
    ,Harmonic 20 (-1.628) 31.75
    ,Harmonic 21 (-0.23) 21.96
    ,Harmonic 22 (-2.3e-2) 18.43
    ,Harmonic 23 (-0.31) 9.02
    ,Harmonic 24 (-1.227) 4.57
    ,Harmonic 25 (-1.367) 3.64
    ,Harmonic 26 0.289 19.85
    ,Harmonic 27 3.119 13.18
    ,Harmonic 28 1.492 12.23
    ,Harmonic 29 2.155 6.95
    ,Harmonic 30 (-0.804) 2.12
    ,Harmonic 31 1.603 8.77
    ,Harmonic 32 (-0.791) 12.24
    ,Harmonic 33 2.025 8.85
    ,Harmonic 34 (-1.9) 7.58
    ,Harmonic 35 (-0.683) 8.45
    ,Harmonic 36 2.299 6.84
    ,Harmonic 37 (-2.331) 3.41
    ,Harmonic 38 (-0.86) 2.29
    ,Harmonic 39 1.689 1.32
    ,Harmonic 40 1.471 3.58
    ,Harmonic 41 (-2.942) 7.76
    ,Harmonic 42 (-1.143) 7.2
    ,Harmonic 43 0.15 2.39
    ,Harmonic 44 (-0.948) 1.44
    ,Harmonic 45 0.319 1.44
    ,Harmonic 46 3.09 1.73
    ,Harmonic 47 (-0.296) 3.27
    ,Harmonic 48 (-2.909) 2.35
    ,Harmonic 49 (-0.976) 4.41
    ,Harmonic 50 0.412 3.33
    ,Harmonic 51 2.522 2.33
    ,Harmonic 52 (-0.86) 0.94
    ,Harmonic 53 0.723 1.24]