Note3.hs

module Sharc.Instruments.Violin.Note3 (note3) where

import Sharc.Types

note3 :: Note
note3 = Note
    (Pitch 233.082 46 "a#3")
    4
    (Range
        (NoteRange
            (NoteRangeAmplitude 9323.27 40 0.29)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 466.16 2 2438.0)
            (NoteRangeHarmonicFreq 43 10022.52)))
    [Harmonic 1 (-1.277) 381.63
    ,Harmonic 2 (-1.769) 2438.0
    ,Harmonic 3 2.215 1530.5
    ,Harmonic 4 (-0.879) 915.0
    ,Harmonic 5 2.764 197.4
    ,Harmonic 6 (-2.197) 574.08
    ,Harmonic 7 (-0.952) 674.11
    ,Harmonic 8 (-0.499) 257.8
    ,Harmonic 9 0.522 326.97
    ,Harmonic 10 (-2.395) 456.99
    ,Harmonic 11 (-1.503) 187.3
    ,Harmonic 12 1.962 8.56
    ,Harmonic 13 1.163 248.19
    ,Harmonic 14 (-2.213) 201.84
    ,Harmonic 15 0.813 123.75
    ,Harmonic 16 0.744 213.29
    ,Harmonic 17 (-1.139) 96.72
    ,Harmonic 18 3.048 75.75
    ,Harmonic 19 0.247 67.05
    ,Harmonic 20 (-2.78) 36.47
    ,Harmonic 21 (-0.473) 37.7
    ,Harmonic 22 2.988 19.88
    ,Harmonic 23 1.005 18.58
    ,Harmonic 24 1.646 6.96
    ,Harmonic 25 (-0.116) 20.54
    ,Harmonic 26 (-1.937) 24.15
    ,Harmonic 27 (-3.135) 7.39
    ,Harmonic 28 2.254 11.79
    ,Harmonic 29 0.354 7.7
    ,Harmonic 30 2.747 2.76
    ,Harmonic 31 2.171 4.08
    ,Harmonic 32 2.01 0.31
    ,Harmonic 33 (-1.932) 4.26
    ,Harmonic 34 1.949 9.67
    ,Harmonic 35 (-1.363) 9.89
    ,Harmonic 36 1.43 1.4
    ,Harmonic 37 1.079 0.82
    ,Harmonic 38 (-1.68) 2.14
    ,Harmonic 39 3.044 2.04
    ,Harmonic 40 0.534 0.29
    ,Harmonic 41 2.006 3.67
    ,Harmonic 42 (-0.475) 9.46
    ,Harmonic 43 (-2.322) 3.89]