Note5.hs

module Sharc.Instruments.Oboe.Note5 (note5) where

import Sharc.Types

note5 :: Note
note5 = Note
    (Pitch 311.127 51 "d#4")
    6
    (Range
        (NoteRange
            (NoteRangeAmplitude 9644.93 31 0.82)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 1244.5 4 6238.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 (-6.0e-2) 3928.36
    ,Harmonic 2 2.919 4737.38
    ,Harmonic 3 (-1.765) 4289.6
    ,Harmonic 4 1.228 6238.0
    ,Harmonic 5 1.455 847.21
    ,Harmonic 6 1.001 132.05
    ,Harmonic 7 2.594 231.32
    ,Harmonic 8 0.636 772.39
    ,Harmonic 9 2.913 260.34
    ,Harmonic 10 (-0.354) 767.32
    ,Harmonic 11 1.535 312.55
    ,Harmonic 12 (-2.701) 80.03
    ,Harmonic 13 (-0.344) 42.78
    ,Harmonic 14 (-1.83) 5.34
    ,Harmonic 15 0.284 15.1
    ,Harmonic 16 (-1.72) 12.76
    ,Harmonic 17 2.792 9.04
    ,Harmonic 18 (-2.398) 11.43
    ,Harmonic 19 0.295 4.36
    ,Harmonic 20 0.863 4.17
    ,Harmonic 21 1.095 8.2
    ,Harmonic 22 (-1.269) 1.94
    ,Harmonic 23 2.789 2.55
    ,Harmonic 24 2.254 4.24
    ,Harmonic 25 0.453 6.51
    ,Harmonic 26 (-2.853) 2.76
    ,Harmonic 27 (-2.461) 4.79
    ,Harmonic 28 1.182 3.06
    ,Harmonic 29 (-0.396) 1.58
    ,Harmonic 30 2.702 2.51
    ,Harmonic 31 (-1.908) 0.82
    ,Harmonic 32 2.403 3.9]