sharc-timbre-0.1: src/Sharc/Instruments/Viola/Note37.hs

module Sharc.Instruments.Viola.Note37 (note37) where

import Sharc.Types

note37 :: Note
note37 = Note
    (Pitch 1108.73 73 "c#6")
    38
    (Range
        (NoteRange
            (NoteRangeAmplitude 9978.57 9 2.7)
            (NoteRangeHarmonicFreq 1 1108.73))
        (NoteRange
            (NoteRangeAmplitude 2217.46 2 2180.0)
            (NoteRangeHarmonicFreq 9 9978.57)))
    [Harmonic 1 1.417 1029.56
    ,Harmonic 2 (-1.859) 2180.0
    ,Harmonic 3 (-2.662) 482.16
    ,Harmonic 4 (-1.211) 295.94
    ,Harmonic 5 (-1.738) 108.27
    ,Harmonic 6 1.321 166.75
    ,Harmonic 7 2.461 91.77
    ,Harmonic 8 (-0.359) 98.52
    ,Harmonic 9 2.175 2.7]