Note18.hs

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

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 207.652 44 "g#3")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 7060.16 34 9.0e-2)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 415.3 2 3917.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 2.771 1423.15
    ,Harmonic 2 1.735 3917.0
    ,Harmonic 3 0.194 2608.72
    ,Harmonic 4 (-1.129) 1423.27
    ,Harmonic 5 (-2.444) 915.1
    ,Harmonic 6 2.398 533.21
    ,Harmonic 7 1.317 309.1
    ,Harmonic 8 (-0.148) 170.67
    ,Harmonic 9 (-1.618) 53.73
    ,Harmonic 10 (-2.39) 7.22
    ,Harmonic 11 (-2.703) 10.6
    ,Harmonic 12 3.087 4.58
    ,Harmonic 13 2.747 4.24
    ,Harmonic 14 3.045 2.88
    ,Harmonic 15 (-2.932) 1.8
    ,Harmonic 16 2.159 1.3
    ,Harmonic 17 1.032 1.11
    ,Harmonic 18 1.188 2.3
    ,Harmonic 19 (-0.394) 2.44
    ,Harmonic 20 (-1.816) 0.62
    ,Harmonic 21 (-1.473) 0.37
    ,Harmonic 22 2.893 0.25
    ,Harmonic 23 (-2.888) 0.27
    ,Harmonic 24 (-2.711) 0.37
    ,Harmonic 25 (-0.826) 0.5
    ,Harmonic 26 (-1.688) 1.03
    ,Harmonic 27 (-3.101) 0.82
    ,Harmonic 28 2.062 0.4
    ,Harmonic 29 2.138 1.05
    ,Harmonic 30 (-3.9e-2) 0.39
    ,Harmonic 31 (-1.924) 0.76
    ,Harmonic 32 (-2.54) 0.77
    ,Harmonic 33 3.024 0.88
    ,Harmonic 34 2.774 9.0e-2
    ,Harmonic 35 0.304 0.27
    ,Harmonic 36 (-0.895) 0.49
    ,Harmonic 37 (-2.103) 0.39
    ,Harmonic 38 2.669 0.4
    ,Harmonic 39 3.034 0.39
    ,Harmonic 40 2.508 0.28
    ,Harmonic 41 8.7e-2 0.58
    ,Harmonic 42 (-1.725) 0.37
    ,Harmonic 43 (-1.627) 0.54
    ,Harmonic 44 (-2.323) 0.73
    ,Harmonic 45 (-1.993) 0.36
    ,Harmonic 46 (-2.484) 0.4
    ,Harmonic 47 (-1.794) 0.61
    ,Harmonic 48 (-2.602) 0.3]