Note1.hs

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

import Sharc.Types

note1 :: Note
note1 = Note
    (Pitch 207.652 44 "g#3")
    2
    (Range
        (NoteRange
            (NoteRangeAmplitude 9344.34 45 3.23)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 415.3 2 14824.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 (-3.115) 512.53
    ,Harmonic 2 (-1.569) 14824.0
    ,Harmonic 3 2.264 4317.48
    ,Harmonic 4 (-1.346) 1556.86
    ,Harmonic 5 0.19 961.61
    ,Harmonic 6 (-1.353) 774.04
    ,Harmonic 7 (-1.225) 1148.32
    ,Harmonic 8 1.52 583.72
    ,Harmonic 9 (-0.79) 1275.54
    ,Harmonic 10 1.514 894.23
    ,Harmonic 11 3.085 202.05
    ,Harmonic 12 0.142 292.6
    ,Harmonic 13 (-1.115) 294.48
    ,Harmonic 14 (-0.982) 211.9
    ,Harmonic 15 1.428 212.15
    ,Harmonic 16 2.818 637.66
    ,Harmonic 17 2.665 207.68
    ,Harmonic 18 (-2.233) 211.47
    ,Harmonic 19 (-1.152) 348.04
    ,Harmonic 20 2.842 126.9
    ,Harmonic 21 0.925 317.67
    ,Harmonic 22 (-2.249) 83.25
    ,Harmonic 23 (-7.7e-2) 130.6
    ,Harmonic 24 (-1.175) 198.02
    ,Harmonic 25 2.422 128.12
    ,Harmonic 26 2.186 86.87
    ,Harmonic 27 1.672 80.29
    ,Harmonic 28 (-1.749) 74.26
    ,Harmonic 29 2.415 53.79
    ,Harmonic 30 (-0.129) 80.31
    ,Harmonic 31 (-1.753) 16.43
    ,Harmonic 32 2.49 16.89
    ,Harmonic 33 (-9.0e-3) 15.98
    ,Harmonic 34 2.467 4.56
    ,Harmonic 35 1.893 14.43
    ,Harmonic 36 (-1.975) 16.86
    ,Harmonic 37 2.946 12.29
    ,Harmonic 38 2.902 15.27
    ,Harmonic 39 5.0e-3 13.62
    ,Harmonic 40 (-1.472) 18.53
    ,Harmonic 41 1.205 13.69
    ,Harmonic 42 1.333 9.56
    ,Harmonic 43 (-3.086) 6.4
    ,Harmonic 44 2.931 12.01
    ,Harmonic 45 0.362 3.23
    ,Harmonic 46 (-0.679) 8.75
    ,Harmonic 47 (-0.948) 9.11
    ,Harmonic 48 (-3.113) 4.56]