Note22.hs

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

import Sharc.Types

note22 :: Note
note22 = Note
    (Pitch 233.082 46 "a#3")
    23
    (Range
        (NoteRange
            (NoteRangeAmplitude 9789.44 42 1.06)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 233.08 1 3231.0)
            (NoteRangeHarmonicFreq 43 10022.52)))
    [Harmonic 1 2.912 3231.0
    ,Harmonic 2 0.263 1830.92
    ,Harmonic 3 (-1.23) 1794.27
    ,Harmonic 4 (-2.451) 821.85
    ,Harmonic 5 0.155 732.47
    ,Harmonic 6 0.906 687.19
    ,Harmonic 7 0.269 1029.52
    ,Harmonic 8 (-2.797) 1206.77
    ,Harmonic 9 0.342 367.56
    ,Harmonic 10 (-0.225) 176.45
    ,Harmonic 11 (-0.455) 65.23
    ,Harmonic 12 (-0.828) 333.65
    ,Harmonic 13 (-1.665) 403.81
    ,Harmonic 14 (-3.035) 356.81
    ,Harmonic 15 (-0.668) 114.9
    ,Harmonic 16 2.669 178.4
    ,Harmonic 17 2.488 48.57
    ,Harmonic 18 (-1.676) 62.76
    ,Harmonic 19 3.102 40.81
    ,Harmonic 20 1.216 21.53
    ,Harmonic 21 (-0.972) 48.33
    ,Harmonic 22 1.146 32.11
    ,Harmonic 23 3.097 37.11
    ,Harmonic 24 3.003 48.76
    ,Harmonic 25 (-2.364) 22.74
    ,Harmonic 26 (-1.337) 6.32
    ,Harmonic 27 0.995 16.82
    ,Harmonic 28 1.564 21.71
    ,Harmonic 29 2.726 27.08
    ,Harmonic 30 (-2.648) 35.62
    ,Harmonic 31 (-2.608) 6.89
    ,Harmonic 32 (-0.509) 26.72
    ,Harmonic 33 0.801 8.43
    ,Harmonic 34 1.868 13.39
    ,Harmonic 35 (-1.814) 10.26
    ,Harmonic 36 (-0.766) 6.51
    ,Harmonic 37 (-0.274) 2.77
    ,Harmonic 38 (-1.105) 6.3
    ,Harmonic 39 2.506 2.72
    ,Harmonic 40 (-1.651) 1.55
    ,Harmonic 41 1.596 2.28
    ,Harmonic 42 (-2.896) 1.06
    ,Harmonic 43 2.917 4.77]