Note30.hs

module Sharc.Instruments.FrenchHorn.Note30 (note30) where

import Sharc.Types

note30 :: Note
note30 = Note
    (Pitch 415.305 56 "g#4")
    31
    (Range
        (NoteRange
            (NoteRangeAmplitude 2907.13 7 0.14)
            (NoteRangeHarmonicFreq 1 415.3))
        (NoteRange
            (NoteRangeAmplitude 415.3 1 3252.0)
            (NoteRangeHarmonicFreq 24 9967.32)))
    [Harmonic 1 (-1.844) 3252.0
    ,Harmonic 2 (-1.296) 1540.43
    ,Harmonic 3 (-1.245) 339.57
    ,Harmonic 4 (-0.849) 59.57
    ,Harmonic 5 0.484 2.66
    ,Harmonic 6 0.427 3.59
    ,Harmonic 7 (-0.272) 0.14
    ,Harmonic 8 0.159 3.29
    ,Harmonic 9 1.508 0.78
    ,Harmonic 10 0.999 0.9
    ,Harmonic 11 8.3e-2 0.94
    ,Harmonic 12 (-0.393) 0.81
    ,Harmonic 13 0.107 0.59
    ,Harmonic 14 0.729 0.69
    ,Harmonic 15 0.37 0.19
    ,Harmonic 16 1.57 0.26
    ,Harmonic 17 (-0.465) 0.33
    ,Harmonic 18 0.36 0.4
    ,Harmonic 19 (-1.418) 0.69
    ,Harmonic 20 (-0.141) 0.84
    ,Harmonic 21 0.946 0.4
    ,Harmonic 22 (-0.576) 0.5
    ,Harmonic 23 0.171 1.12
    ,Harmonic 24 (-0.791) 0.56]