Note9.hs

module Sharc.Instruments.Oboe.Note9 (note9) where

import Sharc.Types

note9 :: Note
note9 = Note
    (Pitch 391.995 55 "g4")
    10
    (Range
        (NoteRange
            (NoteRangeAmplitude 7447.9 19 0.52)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 1175.98 3 5398.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 (-1.563) 2191.51
    ,Harmonic 2 0.422 3559.05
    ,Harmonic 3 2.155 5398.0
    ,Harmonic 4 (-0.892) 2510.54
    ,Harmonic 5 2.138 942.43
    ,Harmonic 6 0.81 266.08
    ,Harmonic 7 1.547 1263.31
    ,Harmonic 8 2.978 493.57
    ,Harmonic 9 1.355 159.09
    ,Harmonic 10 (-2.619) 120.0
    ,Harmonic 11 0.268 74.78
    ,Harmonic 12 0.974 9.83
    ,Harmonic 13 0.373 55.54
    ,Harmonic 14 1.099 32.69
    ,Harmonic 15 (-1.483) 24.7
    ,Harmonic 16 0.859 30.82
    ,Harmonic 17 (-2.866) 2.14
    ,Harmonic 18 2.517 9.96
    ,Harmonic 19 2.652 0.52
    ,Harmonic 20 2.836 11.97
    ,Harmonic 21 0.886 16.76
    ,Harmonic 22 3.024 9.11
    ,Harmonic 23 1.271 6.01
    ,Harmonic 24 (-2.722) 6.1
    ,Harmonic 25 (-1.769) 7.13]