Note4.hs

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

import Sharc.Types

note4 :: Note
note4 = Note
    (Pitch 246.942 47 "b3")
    5
    (Range
        (NoteRange
            (NoteRangeAmplitude 6173.55 25 1.14)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 493.88 2 3685.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 1.412 2350.29
    ,Harmonic 2 2.448 3685.0
    ,Harmonic 3 1.916 1269.64
    ,Harmonic 4 0.362 667.98
    ,Harmonic 5 (-0.478) 2673.2
    ,Harmonic 6 (-2.09) 2553.07
    ,Harmonic 7 0.675 3073.28
    ,Harmonic 8 3.096 688.46
    ,Harmonic 9 2.911 309.06
    ,Harmonic 10 (-2.413) 487.04
    ,Harmonic 11 (-1.827) 130.76
    ,Harmonic 12 (-0.346) 192.71
    ,Harmonic 13 (-2.976) 201.65
    ,Harmonic 14 2.939 96.92
    ,Harmonic 15 2.975 50.36
    ,Harmonic 16 (-1.05) 107.29
    ,Harmonic 17 (-0.916) 59.24
    ,Harmonic 18 (-2.699) 100.76
    ,Harmonic 19 2.474 30.89
    ,Harmonic 20 0.933 14.39
    ,Harmonic 21 2.427 7.12
    ,Harmonic 22 1.216 15.99
    ,Harmonic 23 2.5e-2 5.85
    ,Harmonic 24 1.631 3.62
    ,Harmonic 25 (-0.352) 1.14
    ,Harmonic 26 2.513 4.93
    ,Harmonic 27 (-2.953) 3.3
    ,Harmonic 28 (-1.884) 1.51
    ,Harmonic 29 2.395 1.5
    ,Harmonic 30 (-2.042) 4.05
    ,Harmonic 31 (-0.911) 3.28
    ,Harmonic 32 (-2.077) 5.28
    ,Harmonic 33 2.7 9.12
    ,Harmonic 34 1.921 3.62
    ,Harmonic 35 2.747 2.58
    ,Harmonic 36 0.659 1.66
    ,Harmonic 37 2.0e-2 2.58
    ,Harmonic 38 (-2.986) 2.05
    ,Harmonic 39 2.201 5.91
    ,Harmonic 40 1.83 3.81]