Note18.hs

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

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 184.997 42 "f#3")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 7029.88 38 1.0e-2)
            (NoteRangeHarmonicFreq 1 184.99))
        (NoteRange
            (NoteRangeAmplitude 184.99 1 4711.0)
            (NoteRangeHarmonicFreq 52 9619.84)))
    [Harmonic 1 (-1.741) 4711.0
    ,Harmonic 2 (-2.317) 154.31
    ,Harmonic 3 (-2.011) 203.03
    ,Harmonic 4 0.246 24.45
    ,Harmonic 5 0.926 114.76
    ,Harmonic 6 (-0.553) 26.75
    ,Harmonic 7 0.892 49.75
    ,Harmonic 8 (-0.863) 30.25
    ,Harmonic 9 2.088 14.42
    ,Harmonic 10 1.432 13.21
    ,Harmonic 11 2.486 1.93
    ,Harmonic 12 0.696 2.03
    ,Harmonic 13 (-1.205) 0.81
    ,Harmonic 14 (-2.482) 0.92
    ,Harmonic 15 (-2.82) 0.54
    ,Harmonic 16 (-1.904) 0.22
    ,Harmonic 17 (-0.497) 8.0e-2
    ,Harmonic 18 (-1.453) 2.0e-2
    ,Harmonic 19 (-2.255) 9.0e-2
    ,Harmonic 20 1.856 0.1
    ,Harmonic 21 (-1.439) 7.0e-2
    ,Harmonic 22 2.282 0.24
    ,Harmonic 23 (-2.199) 0.19
    ,Harmonic 24 (-1.708) 0.24
    ,Harmonic 25 2.475 0.35
    ,Harmonic 26 (-2.5) 0.18
    ,Harmonic 27 (-2.681) 0.16
    ,Harmonic 28 2.865 2.0e-2
    ,Harmonic 29 (-2.771) 0.23
    ,Harmonic 30 (-0.631) 7.0e-2
    ,Harmonic 31 (-1.535) 5.0e-2
    ,Harmonic 32 (-3.075) 0.16
    ,Harmonic 33 1.062 0.14
    ,Harmonic 34 (-1.343) 0.27
    ,Harmonic 35 (-2.285) 9.0e-2
    ,Harmonic 36 (-2.07) 5.0e-2
    ,Harmonic 37 1.536 0.19
    ,Harmonic 38 (-2.276) 1.0e-2
    ,Harmonic 39 (-1.782) 2.0e-2
    ,Harmonic 40 (-0.823) 6.0e-2
    ,Harmonic 41 2.4e-2 0.19
    ,Harmonic 42 (-2.066) 0.11
    ,Harmonic 43 (-1.934) 5.0e-2
    ,Harmonic 44 0.834 0.1
    ,Harmonic 45 0.182 0.18
    ,Harmonic 46 (-0.437) 0.14
    ,Harmonic 47 1.214 0.12
    ,Harmonic 48 (-0.915) 0.39
    ,Harmonic 49 (-2.21) 0.18
    ,Harmonic 50 1.085 6.0e-2
    ,Harmonic 51 (-2.814) 5.0e-2
    ,Harmonic 52 1.595 0.2]