Note17.hs

module Sharc.Instruments.Violin.Note17 (note17) where

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 523.251 60 "c5")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 9418.51 18 8.5)
            (NoteRangeHarmonicFreq 1 523.25))
        (NoteRange
            (NoteRangeAmplitude 1569.75 3 3757.0)
            (NoteRangeHarmonicFreq 19 9941.76)))
    [Harmonic 1 (-2.438) 3110.65
    ,Harmonic 2 (-1.674) 3300.08
    ,Harmonic 3 (-2.064) 3757.0
    ,Harmonic 4 (-1.054) 2775.07
    ,Harmonic 5 (-2.944) 391.19
    ,Harmonic 6 0.388 1637.93
    ,Harmonic 7 (-2.776) 902.69
    ,Harmonic 8 (-0.707) 473.19
    ,Harmonic 9 1.928 121.04
    ,Harmonic 10 (-2.819) 122.22
    ,Harmonic 11 2.1e-2 79.99
    ,Harmonic 12 2.878 95.37
    ,Harmonic 13 (-0.267) 103.08
    ,Harmonic 14 (-1.151) 63.62
    ,Harmonic 15 (-2.58) 32.52
    ,Harmonic 16 (-1.354) 51.82
    ,Harmonic 17 (-1.789) 44.32
    ,Harmonic 18 1.664 8.5
    ,Harmonic 19 (-0.724) 27.33]