Note23.hs

module Sharc.Instruments.FrenchHorn.Note23 (note23) where

import Sharc.Types

note23 :: Note
note23 = Note
    (Pitch 277.183 49 "c#4")
    24
    (Range
        (NoteRange
            (NoteRangeAmplitude 8315.49 30 0.16)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 554.36 2 5778.0)
            (NoteRangeHarmonicFreq 35 9701.4)))
    [Harmonic 1 1.01 3474.42
    ,Harmonic 2 (-1.819) 5778.0
    ,Harmonic 3 1.712 3405.29
    ,Harmonic 4 (-1.308) 1880.12
    ,Harmonic 5 2.425 953.86
    ,Harmonic 6 (-0.591) 550.13
    ,Harmonic 7 2.688 194.84
    ,Harmonic 8 1.269 47.27
    ,Harmonic 9 (-0.622) 50.8
    ,Harmonic 10 2.88 42.11
    ,Harmonic 11 0.147 24.88
    ,Harmonic 12 (-2.364) 15.66
    ,Harmonic 13 1.224 8.56
    ,Harmonic 14 (-0.909) 6.45
    ,Harmonic 15 (-2.881) 2.22
    ,Harmonic 16 1.391 1.44
    ,Harmonic 17 (-1.343) 1.41
    ,Harmonic 18 2.548 0.32
    ,Harmonic 19 0.223 1.57
    ,Harmonic 20 (-2.738) 2.69
    ,Harmonic 21 0.644 2.94
    ,Harmonic 22 (-1.35) 1.22
    ,Harmonic 23 2.96 1.64
    ,Harmonic 24 (-0.285) 1.66
    ,Harmonic 25 (-2.509) 1.21
    ,Harmonic 26 1.19 1.48
    ,Harmonic 27 (-1.054) 0.94
    ,Harmonic 28 2.142 0.52
    ,Harmonic 29 (-0.936) 0.52
    ,Harmonic 30 (-0.545) 0.16
    ,Harmonic 31 (-1.807) 0.33
    ,Harmonic 32 0.291 0.2
    ,Harmonic 33 0.402 0.36
    ,Harmonic 34 1.486 0.95
    ,Harmonic 35 (-1.66) 0.3]