Note20.hs

module Sharc.Instruments.FrenchHorn.Note20 (note20) where

import Sharc.Types

note20 :: Note
note20 = Note
    (Pitch 233.082 46 "a#3")
    21
    (Range
        (NoteRange
            (NoteRangeAmplitude 9789.44 42 0.16)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 466.16 2 5835.0)
            (NoteRangeHarmonicFreq 42 9789.44)))
    [Harmonic 1 1.391 1869.39
    ,Harmonic 2 (-1.428) 5835.0
    ,Harmonic 3 2.196 3411.77
    ,Harmonic 4 (-0.465) 2066.09
    ,Harmonic 5 3.036 1353.1
    ,Harmonic 6 0.59 747.58
    ,Harmonic 7 (-2.215) 492.15
    ,Harmonic 8 1.33 202.86
    ,Harmonic 9 (-0.863) 44.73
    ,Harmonic 10 (-2.747) 45.05
    ,Harmonic 11 1.76 45.74
    ,Harmonic 12 (-0.933) 40.31
    ,Harmonic 13 2.813 25.35
    ,Harmonic 14 0.654 17.3
    ,Harmonic 15 (-1.889) 16.44
    ,Harmonic 16 2.608 7.33
    ,Harmonic 17 (-3.0e-2) 7.58
    ,Harmonic 18 (-2.667) 3.2
    ,Harmonic 19 1.696 2.95
    ,Harmonic 20 (-0.37) 1.72
    ,Harmonic 21 (-1.472) 0.24
    ,Harmonic 22 2.877 0.79
    ,Harmonic 23 1.183 1.1
    ,Harmonic 24 (-1.448) 0.85
    ,Harmonic 25 1.696 1.42
    ,Harmonic 26 (-2.9e-2) 1.39
    ,Harmonic 27 (-2.118) 2.21
    ,Harmonic 28 2.17 2.56
    ,Harmonic 29 0.195 2.27
    ,Harmonic 30 (-2.107) 1.44
    ,Harmonic 31 1.339 1.52
    ,Harmonic 32 (-0.62) 1.29
    ,Harmonic 33 (-2.803) 1.34
    ,Harmonic 34 1.233 1.07
    ,Harmonic 35 (-1.32) 1.57
    ,Harmonic 36 2.209 1.06
    ,Harmonic 37 0.398 1.09
    ,Harmonic 38 (-1.942) 0.56
    ,Harmonic 39 2.377 0.81
    ,Harmonic 40 (-0.192) 0.99
    ,Harmonic 41 (-2.593) 0.52
    ,Harmonic 42 (-0.23) 0.16]