Note1.hs

module Sharc.Instruments.ViolinPizzicato.Note1 (note1) where

import Sharc.Types

note1 :: Note
note1 = Note
    (Pitch 207.652 44 "g#3")
    2
    (Range
        (NoteRange
            (NoteRangeAmplitude 8306.08 40 0.36)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 622.95 3 6995.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 3.087 969.44
    ,Harmonic 2 0.568 1120.1
    ,Harmonic 3 1.849 6995.0
    ,Harmonic 4 (-1.178) 795.01
    ,Harmonic 5 2.835 43.47
    ,Harmonic 6 (-0.745) 1177.01
    ,Harmonic 7 (-0.569) 690.53
    ,Harmonic 8 2.954 479.72
    ,Harmonic 9 0.418 214.71
    ,Harmonic 10 (-1.242) 176.2
    ,Harmonic 11 (-1.242) 111.39
    ,Harmonic 12 (-1.583) 48.28
    ,Harmonic 13 2.28 71.22
    ,Harmonic 14 0.133 12.17
    ,Harmonic 15 (-3.059) 17.12
    ,Harmonic 16 (-2.295) 27.0
    ,Harmonic 17 0.205 21.66
    ,Harmonic 18 (-0.365) 1.67
    ,Harmonic 19 (-0.416) 1.54
    ,Harmonic 20 0.665 19.85
    ,Harmonic 21 (-1.808) 16.68
    ,Harmonic 22 (-2.977) 9.16
    ,Harmonic 23 0.704 1.66
    ,Harmonic 24 (-3.087) 14.75
    ,Harmonic 25 2.363 15.96
    ,Harmonic 26 0.6 13.21
    ,Harmonic 27 2.118 2.98
    ,Harmonic 28 (-0.565) 3.44
    ,Harmonic 29 (-2.279) 6.52
    ,Harmonic 30 (-2.259) 3.02
    ,Harmonic 31 0.981 1.86
    ,Harmonic 32 (-2.178) 0.51
    ,Harmonic 33 2.609 2.46
    ,Harmonic 34 (-2.537) 3.78
    ,Harmonic 35 1.823 2.16
    ,Harmonic 36 (-0.296) 0.58
    ,Harmonic 37 1.912 2.37
    ,Harmonic 38 (-0.816) 1.33
    ,Harmonic 39 1.135 1.44
    ,Harmonic 40 2.953 0.36
    ,Harmonic 41 0.963 1.84
    ,Harmonic 42 0.585 2.84
    ,Harmonic 43 (-2.867) 1.39
    ,Harmonic 44 1.954 1.38
    ,Harmonic 45 1.005 0.63
    ,Harmonic 46 (-2.947) 1.45
    ,Harmonic 47 1.241 0.78
    ,Harmonic 48 (-3.031) 1.08]