Note6.hs

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

import Sharc.Types

note6 :: Note
note6 = Note
    (Pitch 277.183 49 "c#4")
    7
    (Range
        (NoteRange
            (NoteRangeAmplitude 8315.49 30 0.19)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 277.18 1 5195.0)
            (NoteRangeHarmonicFreq 37 10255.77)))
    [Harmonic 1 (-1.244) 5195.0
    ,Harmonic 2 1.037 1421.83
    ,Harmonic 3 (-0.248) 885.93
    ,Harmonic 4 (-1.374) 192.91
    ,Harmonic 5 (-1.806) 392.53
    ,Harmonic 6 (-1.228) 93.47
    ,Harmonic 7 2.03 80.71
    ,Harmonic 8 1.362 43.39
    ,Harmonic 9 (-2.862) 96.36
    ,Harmonic 10 0.55 265.92
    ,Harmonic 11 (-3.12) 72.13
    ,Harmonic 12 (-0.661) 208.5
    ,Harmonic 13 (-2.959) 165.8
    ,Harmonic 14 (-1.116) 92.56
    ,Harmonic 15 (-1.406) 23.06
    ,Harmonic 16 (-0.852) 32.81
    ,Harmonic 17 (-1.721) 31.94
    ,Harmonic 18 (-2.078) 3.33
    ,Harmonic 19 1.326 11.6
    ,Harmonic 20 1.402 6.51
    ,Harmonic 21 (-2.594) 3.65
    ,Harmonic 22 1.535 7.65
    ,Harmonic 23 2.106 6.76
    ,Harmonic 24 (-2.899) 1.6
    ,Harmonic 25 (-0.115) 1.65
    ,Harmonic 26 (-3.09) 2.38
    ,Harmonic 27 2.342 6.1
    ,Harmonic 28 2.794 1.23
    ,Harmonic 29 0.427 2.59
    ,Harmonic 30 3.127 0.19
    ,Harmonic 31 (-1.328) 4.01
    ,Harmonic 32 (-1.677) 1.57
    ,Harmonic 33 (-1.92) 0.98
    ,Harmonic 34 (-3.048) 1.3
    ,Harmonic 35 (-2.435) 1.54
    ,Harmonic 36 1.596 1.4
    ,Harmonic 37 2.522 1.52]