Note16.hs

module Sharc.Instruments.FrenchHorn.Note16 (note16) where

import Sharc.Types

note16 :: Note
note16 = Note
    (Pitch 184.997 42 "f#3")
    17
    (Range
        (NoteRange
            (NoteRangeAmplitude 8694.85 47 3.0e-2)
            (NoteRangeHarmonicFreq 1 184.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 2 3614.0)
            (NoteRangeHarmonicFreq 54 9989.83)))
    [Harmonic 1 1.227 1761.75
    ,Harmonic 2 (-1.762) 3614.0
    ,Harmonic 3 1.461 2903.63
    ,Harmonic 4 (-1.549) 1712.27
    ,Harmonic 5 1.752 960.05
    ,Harmonic 6 (-1.3) 612.68
    ,Harmonic 7 2.237 323.65
    ,Harmonic 8 (-0.597) 204.37
    ,Harmonic 9 2.733 113.29
    ,Harmonic 10 (-0.223) 67.15
    ,Harmonic 11 (-2.934) 36.05
    ,Harmonic 12 0.745 29.68
    ,Harmonic 13 (-1.787) 15.15
    ,Harmonic 14 1.705 13.97
    ,Harmonic 15 (-0.996) 4.64
    ,Harmonic 16 2.316 2.03
    ,Harmonic 17 (-0.348) 3.01
    ,Harmonic 18 (-3.061) 3.25
    ,Harmonic 19 1.263 1.44
    ,Harmonic 20 (-0.638) 0.37
    ,Harmonic 21 (-0.466) 0.36
    ,Harmonic 22 (-0.932) 0.66
    ,Harmonic 23 1.967 1.57
    ,Harmonic 24 (-0.705) 1.58
    ,Harmonic 25 3.019 0.35
    ,Harmonic 26 2.304 0.15
    ,Harmonic 27 (-1.414) 0.29
    ,Harmonic 28 (-2.595) 0.37
    ,Harmonic 29 1.494 0.68
    ,Harmonic 30 0.678 0.37
    ,Harmonic 31 (-2.122) 0.66
    ,Harmonic 32 1.428 0.15
    ,Harmonic 33 2.0e-3 0.52
    ,Harmonic 34 (-0.6) 0.27
    ,Harmonic 35 (-2.056) 0.54
    ,Harmonic 36 1.436 0.23
    ,Harmonic 37 0.591 0.35
    ,Harmonic 38 2.806 0.15
    ,Harmonic 39 (-1.863) 0.31
    ,Harmonic 40 (-0.354) 0.3
    ,Harmonic 41 (-1.583) 0.49
    ,Harmonic 42 1.748 0.7
    ,Harmonic 43 (-1.139) 0.95
    ,Harmonic 44 (-1.946) 0.18
    ,Harmonic 45 0.459 0.4
    ,Harmonic 46 (-0.78) 0.32
    ,Harmonic 47 (-1.512) 3.0e-2
    ,Harmonic 48 (-0.282) 0.45
    ,Harmonic 49 2.783 0.49
    ,Harmonic 50 (-2.646) 0.13
    ,Harmonic 51 (-2.493) 0.28
    ,Harmonic 52 1.818 6.0e-2
    ,Harmonic 53 (-0.264) 0.23
    ,Harmonic 54 1.218 0.34]