Note20.hs

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

import Sharc.Types

note20 :: Note
note20 = Note
    (Pitch 207.652 44 "g#3")
    21
    (Range
        (NoteRange
            (NoteRangeAmplitude 7475.47 36 0.16)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 207.65 1 3903.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 (-1.447) 3903.0
    ,Harmonic 2 (-2.265) 389.95
    ,Harmonic 3 2.011 342.08
    ,Harmonic 4 (-1.558) 74.29
    ,Harmonic 5 (-3.064) 38.44
    ,Harmonic 6 2.113 52.13
    ,Harmonic 7 (-1.254) 39.33
    ,Harmonic 8 1.747 30.07
    ,Harmonic 9 (-1.067) 27.79
    ,Harmonic 10 (-2.397) 11.67
    ,Harmonic 11 (-2.58) 19.51
    ,Harmonic 12 1.958 11.2
    ,Harmonic 13 (-1.586) 30.27
    ,Harmonic 14 1.347 29.12
    ,Harmonic 15 2.231 11.85
    ,Harmonic 16 (-2.918) 10.76
    ,Harmonic 17 2.068 5.61
    ,Harmonic 18 (-1.087) 1.75
    ,Harmonic 19 (-2.04) 0.86
    ,Harmonic 20 (-2.932) 0.86
    ,Harmonic 21 (-2.561) 8.21
    ,Harmonic 22 (-0.604) 11.45
    ,Harmonic 23 1.498 1.81
    ,Harmonic 24 1.869 6.63
    ,Harmonic 25 0.169 2.71
    ,Harmonic 26 2.547 3.28
    ,Harmonic 27 1.002 5.01
    ,Harmonic 28 (-0.933) 6.1
    ,Harmonic 29 (-2.638) 7.32
    ,Harmonic 30 0.239 3.04
    ,Harmonic 31 (-2.96) 0.95
    ,Harmonic 32 (-2.669) 0.43
    ,Harmonic 33 0.871 1.88
    ,Harmonic 34 1.291 1.29
    ,Harmonic 35 (-1.032) 2.33
    ,Harmonic 36 (-1.057) 0.16
    ,Harmonic 37 1.99 0.6
    ,Harmonic 38 (-1.756) 0.82
    ,Harmonic 39 (-2.887) 0.79
    ,Harmonic 40 1.982 0.97
    ,Harmonic 41 1.575 0.8
    ,Harmonic 42 (-2.944) 1.03
    ,Harmonic 43 1.928 1.17
    ,Harmonic 44 0.0 1.3
    ,Harmonic 45 (-1.151) 1.1
    ,Harmonic 46 (-1.245) 0.47
    ,Harmonic 47 (-0.251) 0.32
    ,Harmonic 48 (-1.98) 0.59]