Note22.hs

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

import Sharc.Types

note22 :: Note
note22 = Note
    (Pitch 233.082 46 "a#3")
    23
    (Range
        (NoteRange
            (NoteRangeAmplitude 6526.29 28 0.71)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 233.08 1 1927.0)
            (NoteRangeHarmonicFreq 42 9789.44)))
    [Harmonic 1 (-1.452) 1927.0
    ,Harmonic 2 (-1.714) 1598.92
    ,Harmonic 3 1.023 405.16
    ,Harmonic 4 2.743 66.05
    ,Harmonic 5 (-3.066) 309.2
    ,Harmonic 6 (-1.406) 34.33
    ,Harmonic 7 2.666 24.6
    ,Harmonic 8 0.328 87.44
    ,Harmonic 9 (-2.173) 86.49
    ,Harmonic 10 (-2.009) 66.98
    ,Harmonic 11 (-1.943) 21.65
    ,Harmonic 12 1.373 37.44
    ,Harmonic 13 (-0.304) 41.56
    ,Harmonic 14 (-1.072) 56.83
    ,Harmonic 15 (-1.68) 12.98
    ,Harmonic 16 (-0.768) 18.81
    ,Harmonic 17 0.993 22.01
    ,Harmonic 18 (-0.368) 22.66
    ,Harmonic 19 2.326 11.02
    ,Harmonic 20 2.943 17.89
    ,Harmonic 21 1.649 15.12
    ,Harmonic 22 (-4.1e-2) 14.16
    ,Harmonic 23 (-1.548) 29.96
    ,Harmonic 24 2.35 8.83
    ,Harmonic 25 (-0.603) 2.77
    ,Harmonic 26 0.453 16.89
    ,Harmonic 27 (-0.784) 3.43
    ,Harmonic 28 (-0.577) 0.71
    ,Harmonic 29 1.084 3.0
    ,Harmonic 30 2.562 10.94
    ,Harmonic 31 0.162 10.87
    ,Harmonic 32 0.775 1.94
    ,Harmonic 33 3.122 3.11
    ,Harmonic 34 1.288 5.71
    ,Harmonic 35 0.539 7.77
    ,Harmonic 36 (-0.447) 6.4
    ,Harmonic 37 (-2.633) 4.94
    ,Harmonic 38 1.76 5.01
    ,Harmonic 39 0.917 10.74
    ,Harmonic 40 2.223 1.55
    ,Harmonic 41 1.891 1.22
    ,Harmonic 42 0.559 1.82]