Note22.hs

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

import Sharc.Types

note22 :: Note
note22 = Note
    (Pitch 233.082 46 "a#3")
    23
    (Range
        (NoteRange
            (NoteRangeAmplitude 6293.21 27 0.54)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 233.08 1 5761.0)
            (NoteRangeHarmonicFreq 42 9789.44)))
    [Harmonic 1 1.482 5761.0
    ,Harmonic 2 1.235 3012.13
    ,Harmonic 3 (-0.428) 164.89
    ,Harmonic 4 (-0.342) 441.47
    ,Harmonic 5 (-1.721) 184.11
    ,Harmonic 6 (-1.402) 58.43
    ,Harmonic 7 (-2.8) 201.28
    ,Harmonic 8 1.914 212.93
    ,Harmonic 9 0.332 143.14
    ,Harmonic 10 2.37 21.08
    ,Harmonic 11 0.988 150.73
    ,Harmonic 12 (-2.619) 69.45
    ,Harmonic 13 1.072 82.61
    ,Harmonic 14 (-3.098) 24.47
    ,Harmonic 15 1.611 51.1
    ,Harmonic 16 0.997 32.48
    ,Harmonic 17 2.208 4.62
    ,Harmonic 18 1.334 5.97
    ,Harmonic 19 (-1.479) 20.77
    ,Harmonic 20 (-0.983) 2.08
    ,Harmonic 21 0.139 1.58
    ,Harmonic 22 0.489 1.01
    ,Harmonic 23 (-0.687) 2.04
    ,Harmonic 24 0.464 1.38
    ,Harmonic 25 (-2.022) 0.92
    ,Harmonic 26 (-1.0) 0.66
    ,Harmonic 27 (-1.26) 0.54
    ,Harmonic 28 1.369 0.7
    ,Harmonic 29 (-1.36) 1.77
    ,Harmonic 30 0.77 1.37
    ,Harmonic 31 (-1.216) 2.51
    ,Harmonic 32 0.583 2.09
    ,Harmonic 33 1.166 1.27
    ,Harmonic 34 (-1.722) 0.75
    ,Harmonic 35 (-0.297) 1.86
    ,Harmonic 36 (-1.575) 2.8
    ,Harmonic 37 (-0.818) 1.41
    ,Harmonic 38 1.382 1.09
    ,Harmonic 39 (-0.371) 0.92
    ,Harmonic 40 1.051 0.64
    ,Harmonic 41 (-2.116) 0.95
    ,Harmonic 42 (-2.861) 1.32]