Note6.hs

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

import Sharc.Types

note6 :: Note
note6 = Note
    (Pitch 184.997 42 "f#3")
    7
    (Range
        (NoteRange
            (NoteRangeAmplitude 9804.84 53 0.13)
            (NoteRangeHarmonicFreq 1 184.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 2 6659.0)
            (NoteRangeHarmonicFreq 54 9989.83)))
    [Harmonic 1 (-2.625) 2397.37
    ,Harmonic 2 (-1.543) 6659.0
    ,Harmonic 3 (-0.286) 322.64
    ,Harmonic 4 (-2.292) 1268.99
    ,Harmonic 5 (-2.028) 58.67
    ,Harmonic 6 2.971 533.07
    ,Harmonic 7 (-1.927) 251.97
    ,Harmonic 8 1.363 105.88
    ,Harmonic 9 (-1.336) 31.35
    ,Harmonic 10 0.744 42.86
    ,Harmonic 11 2.682 13.24
    ,Harmonic 12 (-1.294) 8.5
    ,Harmonic 13 (-2.872) 5.63
    ,Harmonic 14 1.8e-2 2.18
    ,Harmonic 15 3.136 7.09
    ,Harmonic 16 0.527 3.73
    ,Harmonic 17 0.75 2.62
    ,Harmonic 18 (-2.5) 2.64
    ,Harmonic 19 (-1.61) 4.67
    ,Harmonic 20 (-2.407) 1.14
    ,Harmonic 21 2.983 0.68
    ,Harmonic 22 (-2.978) 2.27
    ,Harmonic 23 (-0.414) 5.47
    ,Harmonic 24 (-0.192) 3.21
    ,Harmonic 25 9.1e-2 0.99
    ,Harmonic 26 (-3.9e-2) 1.57
    ,Harmonic 27 (-0.88) 0.8
    ,Harmonic 28 1.529 1.1
    ,Harmonic 29 (-0.424) 0.35
    ,Harmonic 30 (-1.193) 0.58
    ,Harmonic 31 1.958 0.75
    ,Harmonic 32 (-1.588) 0.73
    ,Harmonic 33 (-2.588) 0.35
    ,Harmonic 34 2.459 0.84
    ,Harmonic 35 0.384 1.94
    ,Harmonic 36 1.757 1.12
    ,Harmonic 37 (-1.12) 0.64
    ,Harmonic 38 1.068 0.64
    ,Harmonic 39 (-2.429) 0.67
    ,Harmonic 40 (-1.744) 1.07
    ,Harmonic 41 0.941 0.39
    ,Harmonic 42 1.873 0.49
    ,Harmonic 43 0.28 0.45
    ,Harmonic 44 2.534 0.16
    ,Harmonic 45 (-0.434) 0.4
    ,Harmonic 46 (-0.748) 0.41
    ,Harmonic 47 (-3.085) 0.14
    ,Harmonic 48 1.004 0.15
    ,Harmonic 49 (-8.5e-2) 0.58
    ,Harmonic 50 (-0.222) 0.46
    ,Harmonic 51 (-0.806) 0.61
    ,Harmonic 52 0.274 0.38
    ,Harmonic 53 1.371 0.13
    ,Harmonic 54 2.16 0.4]