Note6.hs

module Sharc.Instruments.ViolinsEnsemble.Note6 (note6) where

import Sharc.Types

note6 :: Note
note6 = Note
    (Pitch 277.183 49 "c#4")
    7
    (Range
        (NoteRange
            (NoteRangeAmplitude 8592.67 31 1.19)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 277.18 1 21312.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 (-1.351) 21312.0
    ,Harmonic 2 (-2.537) 7387.07
    ,Harmonic 3 (-2.874) 1375.66
    ,Harmonic 4 0.684 671.59
    ,Harmonic 5 (-1.18) 1886.33
    ,Harmonic 6 (-8.1e-2) 1075.18
    ,Harmonic 7 (-1.55) 771.91
    ,Harmonic 8 2.406 947.31
    ,Harmonic 9 2.677 982.51
    ,Harmonic 10 (-2.577) 166.03
    ,Harmonic 11 6.9e-2 182.37
    ,Harmonic 12 (-2.63) 424.94
    ,Harmonic 13 (-2.496) 337.08
    ,Harmonic 14 (-2.318) 678.7
    ,Harmonic 15 (-1.984) 698.02
    ,Harmonic 16 (-1.265) 127.09
    ,Harmonic 17 (-1.289) 14.87
    ,Harmonic 18 0.345 36.39
    ,Harmonic 19 (-1.271) 53.43
    ,Harmonic 20 (-0.424) 81.11
    ,Harmonic 21 1.416 51.67
    ,Harmonic 22 2.121 24.92
    ,Harmonic 23 (-2.271) 9.24
    ,Harmonic 24 1.047 8.51
    ,Harmonic 25 (-1.541) 20.53
    ,Harmonic 26 (-2.769) 11.57
    ,Harmonic 27 1.773 15.63
    ,Harmonic 28 (-0.62) 2.48
    ,Harmonic 29 (-2.312) 5.59
    ,Harmonic 30 (-1.311) 9.78
    ,Harmonic 31 0.608 1.19
    ,Harmonic 32 1.758 8.35
    ,Harmonic 33 2.539 1.29
    ,Harmonic 34 0.389 3.91
    ,Harmonic 35 (-1.575) 6.77
    ,Harmonic 36 (-0.702) 3.21]