Note1.hs

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

import Sharc.Types

note1 :: Note
note1 = Note
    (Pitch 207.652 44 "g#3")
    2
    (Range
        (NoteRange
            (NoteRangeAmplitude 7267.82 35 4.97)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 622.95 3 4533.0)
            (NoteRangeHarmonicFreq 47 9759.64)))
    [Harmonic 1 (-1.501) 317.36
    ,Harmonic 2 (-0.947) 3111.96
    ,Harmonic 3 2.625 4533.0
    ,Harmonic 4 (-1.742) 2687.77
    ,Harmonic 5 (-0.373) 1948.12
    ,Harmonic 6 2.382 4510.94
    ,Harmonic 7 (-0.695) 3970.01
    ,Harmonic 8 (-0.953) 1203.08
    ,Harmonic 9 (-0.843) 288.37
    ,Harmonic 10 0.347 1601.22
    ,Harmonic 11 (-2.419) 1789.13
    ,Harmonic 12 0.333 603.89
    ,Harmonic 13 (-2.297) 701.15
    ,Harmonic 14 2.207 671.06
    ,Harmonic 15 (-2.863) 637.43
    ,Harmonic 16 (-0.565) 237.68
    ,Harmonic 17 1.453 821.81
    ,Harmonic 18 2.632 135.34
    ,Harmonic 19 (-0.503) 199.6
    ,Harmonic 20 5.0e-2 82.99
    ,Harmonic 21 1.447 39.82
    ,Harmonic 22 2.221 139.96
    ,Harmonic 23 (-0.566) 112.63
    ,Harmonic 24 2.834 173.81
    ,Harmonic 25 0.466 57.11
    ,Harmonic 26 (-1.681) 92.44
    ,Harmonic 27 (-2.077) 61.9
    ,Harmonic 28 1.608 46.38
    ,Harmonic 29 (-0.729) 22.33
    ,Harmonic 30 (-0.947) 15.89
    ,Harmonic 31 (-2.715) 39.45
    ,Harmonic 32 1.088 27.06
    ,Harmonic 33 (-1.463) 6.01
    ,Harmonic 34 (-3.123) 34.26
    ,Harmonic 35 0.983 4.97
    ,Harmonic 36 (-0.575) 7.32
    ,Harmonic 37 3.027 7.75
    ,Harmonic 38 (-0.512) 11.69
    ,Harmonic 39 (-2.378) 17.63
    ,Harmonic 40 0.177 5.95
    ,Harmonic 41 (-3.13) 12.89
    ,Harmonic 42 (-1.372) 15.49
    ,Harmonic 43 (-2.837) 9.06
    ,Harmonic 44 1.906 7.47
    ,Harmonic 45 (-0.106) 9.45
    ,Harmonic 46 (-2.676) 8.46
    ,Harmonic 47 8.3e-2 6.54]