Note19.hs

module Sharc.Instruments.Cello.Note19 (note19) where

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 195.998 43 "g3")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 7839.92 40 0.55)
            (NoteRangeHarmonicFreq 1 195.99))
        (NoteRange
            (NoteRangeAmplitude 195.99 1 2491.0)
            (NoteRangeHarmonicFreq 51 9995.89)))
    [Harmonic 1 1.636 2491.0
    ,Harmonic 2 0.974 2005.17
    ,Harmonic 3 (-2.561) 853.11
    ,Harmonic 4 0.688 206.04
    ,Harmonic 5 0.84 169.37
    ,Harmonic 6 1.498 506.23
    ,Harmonic 7 1.414 514.62
    ,Harmonic 8 1.183 212.2
    ,Harmonic 9 2.952 155.77
    ,Harmonic 10 (-0.917) 220.41
    ,Harmonic 11 0.168 184.72
    ,Harmonic 12 (-2.439) 198.54
    ,Harmonic 13 2.476 36.1
    ,Harmonic 14 (-1.681) 32.12
    ,Harmonic 15 0.976 126.34
    ,Harmonic 16 1.747 46.74
    ,Harmonic 17 2.257 44.05
    ,Harmonic 18 0.843 39.79
    ,Harmonic 19 0.852 74.36
    ,Harmonic 20 2.769 12.82
    ,Harmonic 21 (-2.535) 25.14
    ,Harmonic 22 (-1.313) 6.53
    ,Harmonic 23 0.711 8.62
    ,Harmonic 24 (-0.455) 5.9
    ,Harmonic 25 0.992 5.44
    ,Harmonic 26 2.402 16.13
    ,Harmonic 27 (-2.961) 14.88
    ,Harmonic 28 2.495 1.54
    ,Harmonic 29 2.505 11.47
    ,Harmonic 30 (-2.292) 1.86
    ,Harmonic 31 2.302 4.65
    ,Harmonic 32 1.787 8.21
    ,Harmonic 33 (-0.525) 8.43
    ,Harmonic 34 2.229 15.84
    ,Harmonic 35 (-0.732) 5.33
    ,Harmonic 36 1.82 4.33
    ,Harmonic 37 0.798 5.37
    ,Harmonic 38 (-2.604) 6.53
    ,Harmonic 39 0.729 2.4
    ,Harmonic 40 (-0.246) 0.55
    ,Harmonic 41 2.083 6.95
    ,Harmonic 42 (-1.259) 2.86
    ,Harmonic 43 (-3.108) 1.45
    ,Harmonic 44 0.205 3.93
    ,Harmonic 45 (-3.002) 3.77
    ,Harmonic 46 1.48 1.93
    ,Harmonic 47 (-2.255) 4.42
    ,Harmonic 48 0.827 2.12
    ,Harmonic 49 (-2.635) 2.53
    ,Harmonic 50 0.368 1.84
    ,Harmonic 51 2.391 1.46]