Note28.hs

module Sharc.Instruments.EnglishHorn.Note28 (note28) where

import Sharc.Types

note28 :: Note
note28 = Note
    (Pitch 830.609 68 "g#5")
    29
    (Range
        (NoteRange
            (NoteRangeAmplitude 9136.69 11 7.51)
            (NoteRangeHarmonicFreq 1 830.6))
        (NoteRange
            (NoteRangeAmplitude 830.6 1 7323.0)
            (NoteRangeHarmonicFreq 11 9136.69)))
    [Harmonic 1 (-1.812) 7323.0
    ,Harmonic 2 1.083 802.23
    ,Harmonic 3 (-0.558) 951.08
    ,Harmonic 4 (-2.088) 404.92
    ,Harmonic 5 0.781 142.98
    ,Harmonic 6 2.764 123.2
    ,Harmonic 7 2.983 43.22
    ,Harmonic 8 1.146 13.87
    ,Harmonic 9 1.423 25.38
    ,Harmonic 10 1.535 8.62
    ,Harmonic 11 2.404 7.51]