Note18.hs

module Sharc.Instruments.Cello.Note18 (note18) where

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 184.997 42 "f#3")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 9434.84 51 0.79)
            (NoteRangeHarmonicFreq 1 184.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 2 1975.0)
            (NoteRangeHarmonicFreq 53 9804.84)))
    [Harmonic 1 1.751 658.21
    ,Harmonic 2 (-1.748) 1975.0
    ,Harmonic 3 (-1.115) 517.25
    ,Harmonic 4 (-1.116) 686.6
    ,Harmonic 5 1.687 262.78
    ,Harmonic 6 (-7.1e-2) 545.15
    ,Harmonic 7 1.006 209.21
    ,Harmonic 8 (-2.076) 135.94
    ,Harmonic 9 (-2.49) 794.01
    ,Harmonic 10 (-1.973) 238.58
    ,Harmonic 11 2.308 235.7
    ,Harmonic 12 (-2.486) 47.91
    ,Harmonic 13 2.771 112.99
    ,Harmonic 14 (-1.2e-2) 105.35
    ,Harmonic 15 (-1.909) 147.9
    ,Harmonic 16 (-1.0e-3) 137.75
    ,Harmonic 17 3.124 113.61
    ,Harmonic 18 (-2.615) 27.89
    ,Harmonic 19 2.186 23.73
    ,Harmonic 20 (-1.87) 56.74
    ,Harmonic 21 0.965 15.48
    ,Harmonic 22 2.48 12.07
    ,Harmonic 23 0.321 20.31
    ,Harmonic 24 3.046 15.24
    ,Harmonic 25 1.082 14.55
    ,Harmonic 26 2.005 6.07
    ,Harmonic 27 (-0.349) 11.58
    ,Harmonic 28 0.463 6.23
    ,Harmonic 29 (-1.86) 10.05
    ,Harmonic 30 1.36 6.11
    ,Harmonic 31 (-1.279) 7.64
    ,Harmonic 32 (-0.768) 4.56
    ,Harmonic 33 (-2.769) 10.38
    ,Harmonic 34 0.238 10.21
    ,Harmonic 35 (-2.54) 11.1
    ,Harmonic 36 0.906 10.15
    ,Harmonic 37 8.6e-2 0.96
    ,Harmonic 38 2.09 2.83
    ,Harmonic 39 (-1.545) 2.1
    ,Harmonic 40 0.313 5.06
    ,Harmonic 41 (-2.175) 1.87
    ,Harmonic 42 1.454 7.14
    ,Harmonic 43 (-2.777) 2.77
    ,Harmonic 44 (-1.751) 3.07
    ,Harmonic 45 0.993 2.98
    ,Harmonic 46 (-0.343) 2.18
    ,Harmonic 47 (-1.592) 2.03
    ,Harmonic 48 0.554 1.14
    ,Harmonic 49 (-0.103) 2.45
    ,Harmonic 50 2.935 2.02
    ,Harmonic 51 0.584 0.79
    ,Harmonic 52 (-0.921) 2.56
    ,Harmonic 53 1.881 4.3]