Note2.hs

module Sharc.Instruments.ViolinsEnsemble.Note2 (note2) where

import Sharc.Types

note2 :: Note
note2 = Note
    (Pitch 220.0 45 "a3")
    3
    (Range
        (NoteRange
            (NoteRangeAmplitude 9460.0 43 1.4)
            (NoteRangeHarmonicFreq 1 220.0))
        (NoteRange
            (NoteRangeAmplitude 660.0 3 12024.0)
            (NoteRangeHarmonicFreq 45 9900.0)))
    [Harmonic 1 1.401 3811.35
    ,Harmonic 2 0.953 6068.08
    ,Harmonic 3 1.72 12024.0
    ,Harmonic 4 1.684 1192.77
    ,Harmonic 5 (-2.146) 827.85
    ,Harmonic 6 (-3.005) 2074.12
    ,Harmonic 7 1.595 2428.64
    ,Harmonic 8 (-0.639) 611.5
    ,Harmonic 9 (-1.003) 1798.63
    ,Harmonic 10 (-1.09) 823.84
    ,Harmonic 11 (-2.256) 413.61
    ,Harmonic 12 (-1.098) 257.66
    ,Harmonic 13 2.519 92.14
    ,Harmonic 14 0.792 163.94
    ,Harmonic 15 (-1.223) 463.88
    ,Harmonic 16 0.296 392.38
    ,Harmonic 17 2.384 550.41
    ,Harmonic 18 1.255 583.65
    ,Harmonic 19 (-2.895) 1131.42
    ,Harmonic 20 (-0.738) 126.55
    ,Harmonic 21 2.9 87.06
    ,Harmonic 22 0.667 150.17
    ,Harmonic 23 3.053 76.15
    ,Harmonic 24 (-1.096) 126.13
    ,Harmonic 25 (-2.5) 42.15
    ,Harmonic 26 8.8e-2 211.29
    ,Harmonic 27 (-2.0e-3) 110.73
    ,Harmonic 28 (-5.8e-2) 21.91
    ,Harmonic 29 1.385 4.29
    ,Harmonic 30 3.12 11.28
    ,Harmonic 31 0.886 38.59
    ,Harmonic 32 1.215 21.18
    ,Harmonic 33 (-3.086) 28.64
    ,Harmonic 34 2.339 20.41
    ,Harmonic 35 2.419 10.22
    ,Harmonic 36 (-2.799) 48.15
    ,Harmonic 37 (-1.687) 27.91
    ,Harmonic 38 0.825 6.86
    ,Harmonic 39 (-2.033) 7.61
    ,Harmonic 40 (-1.638) 15.82
    ,Harmonic 41 (-0.979) 13.41
    ,Harmonic 42 1.741 14.95
    ,Harmonic 43 2.943 1.4
    ,Harmonic 44 1.046 11.23
    ,Harmonic 45 3.097 5.58]