Note4.hs

module Sharc.Instruments.ViolinsEnsemble.Note4 (note4) where

import Sharc.Types

note4 :: Note
note4 = Note
    (Pitch 246.942 47 "b3")
    5
    (Range
        (NoteRange
            (NoteRangeAmplitude 9383.79 38 1.88)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 493.88 2 11805.0)
            (NoteRangeHarmonicFreq 41 10124.62)))
    [Harmonic 1 0.104 9718.0
    ,Harmonic 2 2.087 11805.0
    ,Harmonic 3 2.059 3568.54
    ,Harmonic 4 2.016 1030.16
    ,Harmonic 5 2.275 1343.64
    ,Harmonic 6 1.203 2083.79
    ,Harmonic 7 0.978 1380.11
    ,Harmonic 8 (-1.019) 2645.7
    ,Harmonic 9 1.295 1676.89
    ,Harmonic 10 1.603 145.3
    ,Harmonic 11 3.135 799.29
    ,Harmonic 12 (-2.168) 731.05
    ,Harmonic 13 1.822 813.39
    ,Harmonic 14 1.739 256.42
    ,Harmonic 15 (-2.535) 502.45
    ,Harmonic 16 (-2.699) 992.19
    ,Harmonic 17 0.478 678.25
    ,Harmonic 18 (-1.852) 94.17
    ,Harmonic 19 (-2.427) 194.63
    ,Harmonic 20 2.203 372.23
    ,Harmonic 21 2.226 127.5
    ,Harmonic 22 (-2.746) 147.86
    ,Harmonic 23 (-2.178) 106.08
    ,Harmonic 24 (-2.122) 55.32
    ,Harmonic 25 1.691 41.82
    ,Harmonic 26 (-2.488) 69.98
    ,Harmonic 27 0.346 27.48
    ,Harmonic 28 2.515 3.97
    ,Harmonic 29 (-2.616) 8.32
    ,Harmonic 30 1.677 28.24
    ,Harmonic 31 0.801 32.89
    ,Harmonic 32 0.153 69.11
    ,Harmonic 33 1.452 24.31
    ,Harmonic 34 1.2e-2 13.18
    ,Harmonic 35 1.672 22.51
    ,Harmonic 36 1.674 7.78
    ,Harmonic 37 (-2.713) 7.9
    ,Harmonic 38 2.59 1.88
    ,Harmonic 39 2.217 16.89
    ,Harmonic 40 (-1.356) 9.42
    ,Harmonic 41 2.69 4.47]