Note22.hs

module Sharc.Instruments.Oboe.Note22 (note22) where

import Sharc.Types

note22 :: Note
note22 = Note
    (Pitch 830.609 68 "g#5")
    23
    (Range
        (NoteRange
            (NoteRangeAmplitude 6644.87 8 1.83)
            (NoteRangeHarmonicFreq 1 830.6))
        (NoteRange
            (NoteRangeAmplitude 1661.21 2 5776.0)
            (NoteRangeHarmonicFreq 12 9967.3)))
    [Harmonic 1 (-2.372) 5486.45
    ,Harmonic 2 (-1.264) 5776.0
    ,Harmonic 3 (-2.579) 1162.52
    ,Harmonic 4 1.941 142.78
    ,Harmonic 5 (-1.374) 739.54
    ,Harmonic 6 (-1.219) 169.27
    ,Harmonic 7 (-1.3) 41.63
    ,Harmonic 8 1.249 1.83
    ,Harmonic 9 (-1.312) 5.34
    ,Harmonic 10 (-8.8e-2) 29.1
    ,Harmonic 11 0.604 11.94
    ,Harmonic 12 2.075 16.81]