Note20.hs

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

import Sharc.Types

note20 :: Note
note20 = Note
    (Pitch 207.652 44 "g#3")
    21
    (Range
        (NoteRange
            (NoteRangeAmplitude 7060.16 34 3.0e-2)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 207.65 1 6853.0)
            (NoteRangeHarmonicFreq 47 9759.64)))
    [Harmonic 1 (-1.439) 6853.0
    ,Harmonic 2 (-2.905) 794.89
    ,Harmonic 3 1.775 498.16
    ,Harmonic 4 (-1.839) 300.22
    ,Harmonic 5 (-2.162) 406.05
    ,Harmonic 6 (-0.685) 108.79
    ,Harmonic 7 (-2.533) 54.92
    ,Harmonic 8 2.934 221.44
    ,Harmonic 9 1.161 187.43
    ,Harmonic 10 (-1.853) 153.85
    ,Harmonic 11 2.663 189.73
    ,Harmonic 12 1.597 61.54
    ,Harmonic 13 (-0.323) 43.1
    ,Harmonic 14 (-0.26) 61.1
    ,Harmonic 15 (-1.131) 96.24
    ,Harmonic 16 1.689 4.46
    ,Harmonic 17 (-0.557) 17.6
    ,Harmonic 18 (-2.318) 16.16
    ,Harmonic 19 2.877 18.81
    ,Harmonic 20 1.987 12.58
    ,Harmonic 21 1.484 13.05
    ,Harmonic 22 (-2.759) 6.19
    ,Harmonic 23 (-2.076) 27.87
    ,Harmonic 24 1.55 11.17
    ,Harmonic 25 3.1 9.02
    ,Harmonic 26 1.113 4.81
    ,Harmonic 27 2.996 2.68
    ,Harmonic 28 2.437 7.93
    ,Harmonic 29 2.08 4.19
    ,Harmonic 30 (-2.947) 5.63
    ,Harmonic 31 (-2.048) 13.46
    ,Harmonic 32 5.2e-2 5.62
    ,Harmonic 33 (-0.39) 5.64
    ,Harmonic 34 0.54 3.0e-2
    ,Harmonic 35 (-1.087) 2.79
    ,Harmonic 36 (-0.686) 1.26
    ,Harmonic 37 0.775 3.78
    ,Harmonic 38 1.602 2.93
    ,Harmonic 39 2.909 4.76
    ,Harmonic 40 (-2.928) 1.42
    ,Harmonic 41 0.124 1.31
    ,Harmonic 42 1.226 1.15
    ,Harmonic 43 2.894 1.5
    ,Harmonic 44 (-2.277) 2.1
    ,Harmonic 45 (-1.446) 1.09
    ,Harmonic 46 (-1.778) 0.11
    ,Harmonic 47 (-3.089) 0.78]