Note20.hs

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

import Sharc.Types

note20 :: Note
note20 = Note
    (Pitch 207.652 44 "g#3")
    21
    (Range
        (NoteRange
            (NoteRangeAmplitude 7267.82 35 1.0e-2)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 207.65 1 5142.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 (-1.632) 5142.0
    ,Harmonic 2 (-2.861) 155.36
    ,Harmonic 3 (-1.078) 126.31
    ,Harmonic 4 (-3.105) 10.86
    ,Harmonic 5 1.679 15.66
    ,Harmonic 6 (-3.07) 17.18
    ,Harmonic 7 (-1.137) 15.16
    ,Harmonic 8 (-2.926) 8.83
    ,Harmonic 9 3.137 3.09
    ,Harmonic 10 (-0.687) 5.45
    ,Harmonic 11 2.3e-2 3.56
    ,Harmonic 12 1.569 0.43
    ,Harmonic 13 (-1.236) 1.03
    ,Harmonic 14 2.141 0.21
    ,Harmonic 15 (-0.917) 0.47
    ,Harmonic 16 (-2.61) 0.34
    ,Harmonic 17 0.962 0.43
    ,Harmonic 18 1.688 0.14
    ,Harmonic 19 (-2.749) 5.0e-2
    ,Harmonic 20 1.146 0.58
    ,Harmonic 21 2.005 6.0e-2
    ,Harmonic 22 (-1.132) 0.64
    ,Harmonic 23 (-0.366) 0.22
    ,Harmonic 24 5.6e-2 0.23
    ,Harmonic 25 0.27 4.0e-2
    ,Harmonic 26 (-0.411) 0.23
    ,Harmonic 27 (-0.319) 0.21
    ,Harmonic 28 (-1.0e-2) 0.36
    ,Harmonic 29 0.494 4.0e-2
    ,Harmonic 30 0.317 9.0e-2
    ,Harmonic 31 (-0.377) 6.0e-2
    ,Harmonic 32 (-0.463) 0.15
    ,Harmonic 33 0.222 0.13
    ,Harmonic 34 0.282 8.0e-2
    ,Harmonic 35 (-1.215) 1.0e-2
    ,Harmonic 36 (-0.218) 9.0e-2
    ,Harmonic 37 (-0.253) 0.19
    ,Harmonic 38 2.8e-2 0.14
    ,Harmonic 39 1.039 0.14
    ,Harmonic 40 (-0.6) 9.0e-2
    ,Harmonic 41 0.564 0.11
    ,Harmonic 42 (-0.423) 0.18
    ,Harmonic 43 (-1.523) 0.12
    ,Harmonic 44 (-0.393) 0.26
    ,Harmonic 45 (-0.372) 9.0e-2
    ,Harmonic 46 (-1.348) 0.18
    ,Harmonic 47 (-0.137) 0.12
    ,Harmonic 48 (-0.302) 0.23]