Note8.hs

module Sharc.Instruments.Oboe.Note8 (note8) where

import Sharc.Types

note8 :: Note
note8 = Note
    (Pitch 369.994 54 "f#4")
    9
    (Range
        (NoteRange
            (NoteRangeAmplitude 6659.89 18 2.94)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 1109.98 3 5453.0)
            (NoteRangeHarmonicFreq 26 9619.84)))
    [Harmonic 1 2.282 3949.72
    ,Harmonic 2 1.748 5293.32
    ,Harmonic 3 1.025 5453.0
    ,Harmonic 4 0.384 4580.79
    ,Harmonic 5 (-0.905) 1188.12
    ,Harmonic 6 3.025 616.48
    ,Harmonic 7 2.194 558.84
    ,Harmonic 8 (-0.335) 94.28
    ,Harmonic 9 (-3.026) 392.74
    ,Harmonic 10 1.962 109.66
    ,Harmonic 11 (-0.422) 54.54
    ,Harmonic 12 (-1.906) 58.08
    ,Harmonic 13 (-0.811) 25.53
    ,Harmonic 14 0.307 18.83
    ,Harmonic 15 0.651 87.01
    ,Harmonic 16 2.91 27.09
    ,Harmonic 17 (-2.915) 12.73
    ,Harmonic 18 (-2.865) 2.94
    ,Harmonic 19 0.386 11.53
    ,Harmonic 20 0.851 10.14
    ,Harmonic 21 2.353 8.53
    ,Harmonic 22 2.544 15.95
    ,Harmonic 23 (-1.698) 8.96
    ,Harmonic 24 (-1.686) 8.94
    ,Harmonic 25 (-2.199) 7.16
    ,Harmonic 26 (-2.074) 3.58]