Note19.hs

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

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 195.998 43 "g3")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 7447.92 38 0.29)
            (NoteRangeHarmonicFreq 1 195.99))
        (NoteRange
            (NoteRangeAmplitude 195.99 1 948.0)
            (NoteRangeHarmonicFreq 51 9995.89)))
    [Harmonic 1 (-2.142) 948.0
    ,Harmonic 2 (-1.309) 941.63
    ,Harmonic 3 (-1.458) 150.82
    ,Harmonic 4 (-1.632) 163.16
    ,Harmonic 5 (-1.207) 220.05
    ,Harmonic 6 0.888 178.08
    ,Harmonic 7 (-0.942) 158.74
    ,Harmonic 8 (-1.591) 69.03
    ,Harmonic 9 3.109 20.08
    ,Harmonic 10 (-0.487) 19.3
    ,Harmonic 11 (-1.362) 40.98
    ,Harmonic 12 (-0.668) 29.91
    ,Harmonic 13 2.367 13.3
    ,Harmonic 14 1.252 38.38
    ,Harmonic 15 (-1.054) 48.79
    ,Harmonic 16 3.026 26.46
    ,Harmonic 17 (-2.03) 13.04
    ,Harmonic 18 (-1.397) 9.82
    ,Harmonic 19 2.805 10.64
    ,Harmonic 20 (-1.678) 3.18
    ,Harmonic 21 (-0.477) 3.97
    ,Harmonic 22 (-2.748) 2.87
    ,Harmonic 23 2.267 12.71
    ,Harmonic 24 2.182 5.45
    ,Harmonic 25 (-2.432) 6.98
    ,Harmonic 26 2.697 6.76
    ,Harmonic 27 2.527 10.59
    ,Harmonic 28 3.111 6.07
    ,Harmonic 29 (-2.267) 8.07
    ,Harmonic 30 2.8e-2 3.32
    ,Harmonic 31 0.257 12.53
    ,Harmonic 32 1.8e-2 3.86
    ,Harmonic 33 (-0.363) 2.88
    ,Harmonic 34 1.446 5.1
    ,Harmonic 35 2.744 2.88
    ,Harmonic 36 (-2.253) 3.01
    ,Harmonic 37 (-1.532) 1.66
    ,Harmonic 38 2.295 0.29
    ,Harmonic 39 0.249 2.06
    ,Harmonic 40 0.547 2.64
    ,Harmonic 41 1.804 2.77
    ,Harmonic 42 2.17 1.76
    ,Harmonic 43 0.557 0.65
    ,Harmonic 44 2.704 1.94
    ,Harmonic 45 (-1.699) 2.49
    ,Harmonic 46 (-0.479) 2.46
    ,Harmonic 47 0.674 2.18
    ,Harmonic 48 1.313 0.73
    ,Harmonic 49 (-1.105) 0.43
    ,Harmonic 50 0.434 1.43
    ,Harmonic 51 1.764 1.55]