Note25.hs

module Sharc.Instruments.FrenchHorn.Note25 (note25) where

import Sharc.Types

note25 :: Note
note25 = Note
    (Pitch 311.127 51 "d#4")
    26
    (Range
        (NoteRange
            (NoteRangeAmplitude 8711.55 28 0.53)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 622.25 2 5048.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 (-1.961) 3721.78
    ,Harmonic 2 (-1.882) 5048.0
    ,Harmonic 3 (-1.383) 3056.95
    ,Harmonic 4 (-1.305) 1368.1
    ,Harmonic 5 (-0.953) 723.98
    ,Harmonic 6 (-0.437) 193.31
    ,Harmonic 7 0.357 75.0
    ,Harmonic 8 2.06 36.28
    ,Harmonic 9 2.438 39.42
    ,Harmonic 10 2.889 17.4
    ,Harmonic 11 (-2.381) 10.4
    ,Harmonic 12 (-1.832) 9.89
    ,Harmonic 13 (-1.221) 6.05
    ,Harmonic 14 (-0.566) 4.12
    ,Harmonic 15 (-6.3e-2) 3.98
    ,Harmonic 16 0.281 2.8
    ,Harmonic 17 0.652 1.61
    ,Harmonic 18 1.157 1.8
    ,Harmonic 19 1.193 0.67
    ,Harmonic 20 (-0.624) 0.81
    ,Harmonic 21 (-0.319) 0.92
    ,Harmonic 22 (-0.629) 1.2
    ,Harmonic 23 (-0.809) 1.19
    ,Harmonic 24 (-0.405) 1.88
    ,Harmonic 25 0.422 1.68
    ,Harmonic 26 0.664 1.25
    ,Harmonic 27 1.163 0.95
    ,Harmonic 28 (-1.816) 0.53
    ,Harmonic 29 (-0.993) 1.12
    ,Harmonic 30 (-0.715) 0.71
    ,Harmonic 31 (-0.27) 1.32
    ,Harmonic 32 (-0.328) 0.9]