Note23.hs

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

import Sharc.Types

note23 :: Note
note23 = Note
    (Pitch 246.942 47 "b3")
    24
    (Range
        (NoteRange
            (NoteRangeAmplitude 9877.68 40 0.13)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 246.94 1 3074.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 1.81 3074.0
    ,Harmonic 2 (-0.198) 2104.25
    ,Harmonic 3 1.767 112.37
    ,Harmonic 4 0.849 861.0
    ,Harmonic 5 (-2.292) 166.09
    ,Harmonic 6 (-2.439) 15.61
    ,Harmonic 7 (-0.24) 146.99
    ,Harmonic 8 (-0.842) 113.35
    ,Harmonic 9 2.75 40.07
    ,Harmonic 10 (-1.061) 8.36
    ,Harmonic 11 0.506 63.5
    ,Harmonic 12 2.189 11.55
    ,Harmonic 13 0.937 10.54
    ,Harmonic 14 (-1.691) 15.51
    ,Harmonic 15 (-1.903) 5.14
    ,Harmonic 16 2.428 0.63
    ,Harmonic 17 (-2.482) 4.59
    ,Harmonic 18 0.962 4.28
    ,Harmonic 19 (-0.685) 3.14
    ,Harmonic 20 (-2.313) 0.89
    ,Harmonic 21 (-0.654) 2.28
    ,Harmonic 22 2.189 1.22
    ,Harmonic 23 0.347 0.78
    ,Harmonic 24 1.787 1.84
    ,Harmonic 25 (-0.451) 1.29
    ,Harmonic 26 1.874 0.27
    ,Harmonic 27 (-0.602) 1.29
    ,Harmonic 28 (-2.23) 1.1
    ,Harmonic 29 1.875 1.06
    ,Harmonic 30 1.183 2.83
    ,Harmonic 31 0.194 0.42
    ,Harmonic 32 2.755 1.96
    ,Harmonic 33 (-2.972) 0.56
    ,Harmonic 34 (-2.874) 1.18
    ,Harmonic 35 (-1.535) 0.39
    ,Harmonic 36 (-0.341) 1.45
    ,Harmonic 37 1.018 0.49
    ,Harmonic 38 2.131 1.1
    ,Harmonic 39 1.622 0.89
    ,Harmonic 40 2.073 0.13]