Note29.hs

module Sharc.Instruments.FrenchHorn.Note29 (note29) where

import Sharc.Types

note29 :: Note
note29 = Note
    (Pitch 391.995 55 "g4")
    30
    (Range
        (NoteRange
            (NoteRangeAmplitude 4703.94 12 5.0e-2)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 1 3932.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 1.846 3932.0
    ,Harmonic 2 (-0.615) 2226.75
    ,Harmonic 3 (-2.994) 732.92
    ,Harmonic 4 1.051 216.58
    ,Harmonic 5 (-0.992) 29.24
    ,Harmonic 6 (-2.106) 7.94
    ,Harmonic 7 2.686 8.16
    ,Harmonic 8 (-3.9e-2) 1.97
    ,Harmonic 9 (-2.514) 1.58
    ,Harmonic 10 1.057 1.02
    ,Harmonic 11 (-1.982) 1.15
    ,Harmonic 12 (-2.77) 5.0e-2
    ,Harmonic 13 2.729 0.17
    ,Harmonic 14 0.245 0.69
    ,Harmonic 15 (-2.063) 1.01
    ,Harmonic 16 1.873 0.4
    ,Harmonic 17 (-0.47) 0.59
    ,Harmonic 18 (-2.474) 0.48
    ,Harmonic 19 2.682 0.75
    ,Harmonic 20 (-2.616) 0.32
    ,Harmonic 21 1.003 0.28
    ,Harmonic 22 (-2.505) 0.24
    ,Harmonic 23 2.349 0.29
    ,Harmonic 24 (-2.004) 0.13
    ,Harmonic 25 (-2.852) 0.49]