Note27.hs

module Sharc.Instruments.FrenchHorn.Note27 (note27) where

import Sharc.Types

note27 :: Note
note27 = Note
    (Pitch 349.228 53 "f4")
    28
    (Range
        (NoteRange
            (NoteRangeAmplitude 6984.56 20 0.18)
            (NoteRangeHarmonicFreq 1 349.22))
        (NoteRange
            (NoteRangeAmplitude 698.45 2 4713.0)
            (NoteRangeHarmonicFreq 28 9778.38)))
    [Harmonic 1 2.486 4457.97
    ,Harmonic 2 0.89 4713.0
    ,Harmonic 3 (-0.505) 2103.9
    ,Harmonic 4 (-2.044) 952.76
    ,Harmonic 5 2.622 453.79
    ,Harmonic 6 1.001 101.16
    ,Harmonic 7 0.763 30.81
    ,Harmonic 8 7.0e-3 49.08
    ,Harmonic 9 (-1.382) 26.18
    ,Harmonic 10 (-2.509) 19.69
    ,Harmonic 11 2.726 10.42
    ,Harmonic 12 1.886 5.7
    ,Harmonic 13 1.085 1.89
    ,Harmonic 14 (-0.896) 1.73
    ,Harmonic 15 (-0.103) 1.47
    ,Harmonic 16 1.687 1.29
    ,Harmonic 17 1.66 1.84
    ,Harmonic 18 1.953 0.57
    ,Harmonic 19 2.559 2.07
    ,Harmonic 20 1.021 0.18
    ,Harmonic 21 (-1.518) 0.61
    ,Harmonic 22 (-1.996) 0.75
    ,Harmonic 23 (-2.162) 0.89
    ,Harmonic 24 (-2.238) 0.59
    ,Harmonic 25 (-2.655) 0.64
    ,Harmonic 26 (-2.828) 0.88
    ,Harmonic 27 (-2.6) 1.11
    ,Harmonic 28 (-2.414) 1.4]