Note18.hs

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

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 184.997 42 "f#3")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 8694.85 47 0.26)
            (NoteRangeHarmonicFreq 1 184.99))
        (NoteRange
            (NoteRangeAmplitude 184.99 1 2041.0)
            (NoteRangeHarmonicFreq 54 9989.83)))
    [Harmonic 1 1.721 2041.0
    ,Harmonic 2 0.622 450.9
    ,Harmonic 3 (-0.986) 98.14
    ,Harmonic 4 0.489 106.32
    ,Harmonic 5 (-1.794) 85.28
    ,Harmonic 6 1.283 53.19
    ,Harmonic 7 (-0.206) 46.81
    ,Harmonic 8 1.645 10.36
    ,Harmonic 9 1.909 15.73
    ,Harmonic 10 1.528 48.61
    ,Harmonic 11 (-0.398) 36.91
    ,Harmonic 12 1.13 17.72
    ,Harmonic 13 1.0e-2 10.76
    ,Harmonic 14 (-2.807) 24.9
    ,Harmonic 15 1.502 17.61
    ,Harmonic 16 0.775 1.69
    ,Harmonic 17 0.897 10.05
    ,Harmonic 18 (-1.139) 6.75
    ,Harmonic 19 3.015 6.47
    ,Harmonic 20 (-2.917) 3.02
    ,Harmonic 21 2.203 1.45
    ,Harmonic 22 2.416 1.04
    ,Harmonic 23 1.816 1.23
    ,Harmonic 24 (-0.154) 2.52
    ,Harmonic 25 (-2.565) 8.79
    ,Harmonic 26 2.231 3.89
    ,Harmonic 27 1.172 4.53
    ,Harmonic 28 (-1.2e-2) 5.31
    ,Harmonic 29 (-1.053) 3.97
    ,Harmonic 30 (-2.398) 3.14
    ,Harmonic 31 0.743 1.88
    ,Harmonic 32 (-1.473) 2.59
    ,Harmonic 33 2.559 1.39
    ,Harmonic 34 (-1.999) 1.08
    ,Harmonic 35 1.769 0.65
    ,Harmonic 36 1.595 0.27
    ,Harmonic 37 0.938 0.67
    ,Harmonic 38 (-1.991) 0.84
    ,Harmonic 39 1.995 0.58
    ,Harmonic 40 (-1.769) 0.26
    ,Harmonic 41 3.122 0.47
    ,Harmonic 42 2.715 2.38
    ,Harmonic 43 2.234 1.36
    ,Harmonic 44 2.145 2.58
    ,Harmonic 45 1.217 1.18
    ,Harmonic 46 1.539 0.7
    ,Harmonic 47 1.66 0.26
    ,Harmonic 48 (-2.578) 0.44
    ,Harmonic 49 (-2.834) 1.11
    ,Harmonic 50 2.345 0.75
    ,Harmonic 51 1.406 0.46
    ,Harmonic 52 1.684 0.4
    ,Harmonic 53 1.046 0.46
    ,Harmonic 54 0.28 0.85]