Note20.hs

module Sharc.Instruments.Cello.Note20 (note20) where

import Sharc.Types

note20 :: Note
note20 = Note
    (Pitch 207.652 44 "g#3")
    21
    (Range
        (NoteRange
            (NoteRangeAmplitude 8721.38 42 0.12)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 207.65 1 4925.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 (-1.428) 4925.0
    ,Harmonic 2 2.742 511.58
    ,Harmonic 3 1.153 250.54
    ,Harmonic 4 (-2.296) 142.74
    ,Harmonic 5 (-2.822) 408.65
    ,Harmonic 6 (-0.784) 38.78
    ,Harmonic 7 2.907 76.19
    ,Harmonic 8 (-0.635) 124.58
    ,Harmonic 9 (-7.2e-2) 104.12
    ,Harmonic 10 1.04 35.81
    ,Harmonic 11 1.071 97.55
    ,Harmonic 12 (-0.896) 87.21
    ,Harmonic 13 (-1.251) 18.0
    ,Harmonic 14 2.866 40.29
    ,Harmonic 15 1.261 60.61
    ,Harmonic 16 (-3.002) 8.76
    ,Harmonic 17 2.979 18.56
    ,Harmonic 18 0.706 15.99
    ,Harmonic 19 (-1.591) 13.22
    ,Harmonic 20 2.543 10.07
    ,Harmonic 21 1.664 0.61
    ,Harmonic 22 (-1.346) 3.87
    ,Harmonic 23 (-2.763) 5.31
    ,Harmonic 24 6.3e-2 2.55
    ,Harmonic 25 1.933 2.7
    ,Harmonic 26 1.237 2.89
    ,Harmonic 27 2.878 1.49
    ,Harmonic 28 (-3.054) 3.34
    ,Harmonic 29 1.893 0.55
    ,Harmonic 30 2.674 1.61
    ,Harmonic 31 2.79 1.81
    ,Harmonic 32 (-1.652) 2.07
    ,Harmonic 33 1.83 0.53
    ,Harmonic 34 (-1.366) 0.98
    ,Harmonic 35 3.111 1.74
    ,Harmonic 36 (-2.957) 0.38
    ,Harmonic 37 (-1.155) 1.62
    ,Harmonic 38 (-0.444) 1.6
    ,Harmonic 39 0.138 1.29
    ,Harmonic 40 2.261 0.97
    ,Harmonic 41 (-2.971) 0.4
    ,Harmonic 42 (-1.571) 0.12
    ,Harmonic 43 (-3.071) 0.32
    ,Harmonic 44 2.231 0.35
    ,Harmonic 45 2.356 0.45
    ,Harmonic 46 1.552 0.34
    ,Harmonic 47 2.748 0.41
    ,Harmonic 48 2.74 0.55]