Note24.hs

module Sharc.Instruments.FrenchHorn.Note24 (note24) where

import Sharc.Types

note24 :: Note
note24 = Note
    (Pitch 293.665 50 "d4")
    25
    (Range
        (NoteRange
            (NoteRangeAmplitude 9690.94 33 0.3)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 587.33 2 4463.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 2.834 3243.86
    ,Harmonic 2 1.334 4463.0
    ,Harmonic 3 0.326 2621.7
    ,Harmonic 4 (-1.161) 1198.81
    ,Harmonic 5 (-2.244) 522.48
    ,Harmonic 6 2.585 234.04
    ,Harmonic 7 1.108 40.41
    ,Harmonic 8 1.369 15.86
    ,Harmonic 9 1.011 25.6
    ,Harmonic 10 0.162 14.9
    ,Harmonic 11 (-0.694) 7.85
    ,Harmonic 12 (-2.006) 6.0
    ,Harmonic 13 (-2.048) 5.39
    ,Harmonic 14 3.127 2.64
    ,Harmonic 15 (-2.959) 4.43
    ,Harmonic 16 2.347 2.34
    ,Harmonic 17 2.74 2.85
    ,Harmonic 18 1.967 4.42
    ,Harmonic 19 0.852 3.08
    ,Harmonic 20 (-0.897) 4.17
    ,Harmonic 21 (-1.494) 1.75
    ,Harmonic 22 (-1.387) 3.79
    ,Harmonic 23 (-2.326) 3.07
    ,Harmonic 24 2.82 2.35
    ,Harmonic 25 2.307 1.06
    ,Harmonic 26 1.719 1.05
    ,Harmonic 27 (-0.266) 0.72
    ,Harmonic 28 (-0.866) 1.07
    ,Harmonic 29 (-1.99) 1.05
    ,Harmonic 30 (-2.59) 1.38
    ,Harmonic 31 2.833 1.28
    ,Harmonic 32 1.886 1.03
    ,Harmonic 33 0.498 0.3
    ,Harmonic 34 (-0.813) 0.75]