sharc-timbre-0.1: src/Sharc/Instruments/Oboe/Note27.hs

module Sharc.Instruments.Oboe.Note27 (note27) where

import Sharc.Types

note27 :: Note
note27 = Note
    (Pitch 1108.73 73 "c#6")
    28
    (Range
        (NoteRange
            (NoteRangeAmplitude 7761.11 7 9.77)
            (NoteRangeHarmonicFreq 1 1108.73))
        (NoteRange
            (NoteRangeAmplitude 1108.73 1 6046.0)
            (NoteRangeHarmonicFreq 8 8869.84)))
    [Harmonic 1 (-1.768) 6046.0
    ,Harmonic 2 (-2.346) 1058.48
    ,Harmonic 3 (-0.958) 769.03
    ,Harmonic 4 (-1.554) 416.64
    ,Harmonic 5 (-2.639) 122.82
    ,Harmonic 6 0.81 72.43
    ,Harmonic 7 2.144 9.77
    ,Harmonic 8 0.956 16.18]