Note3.hs

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

import Sharc.Types

note3 :: Note
note3 = Note
    (Pitch 233.082 46 "a#3")
    4
    (Range
        (NoteRange
            (NoteRangeAmplitude 8857.11 38 2.5)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 466.16 2 11676.0)
            (NoteRangeHarmonicFreq 45 10488.69)))
    [Harmonic 1 1.547 4965.92
    ,Harmonic 2 (-0.731) 11676.0
    ,Harmonic 3 0.569 3310.08
    ,Harmonic 4 (-1.949) 998.55
    ,Harmonic 5 (-0.801) 506.99
    ,Harmonic 6 2.152 311.9
    ,Harmonic 7 (-2.057) 479.64
    ,Harmonic 8 (-2.686) 167.49
    ,Harmonic 9 (-0.807) 62.04
    ,Harmonic 10 (-2.963) 205.31
    ,Harmonic 11 (-2.108) 119.18
    ,Harmonic 12 (-0.81) 146.73
    ,Harmonic 13 (-1.91) 98.4
    ,Harmonic 14 1.254 134.14
    ,Harmonic 15 (-1.219) 63.28
    ,Harmonic 16 1.49 613.73
    ,Harmonic 17 (-1.006) 62.32
    ,Harmonic 18 (-0.467) 441.93
    ,Harmonic 19 (-3.126) 932.65
    ,Harmonic 20 1.24 71.86
    ,Harmonic 21 (-0.847) 374.36
    ,Harmonic 22 (-0.902) 115.68
    ,Harmonic 23 0.822 35.8
    ,Harmonic 24 1.8 65.81
    ,Harmonic 25 2.647 92.72
    ,Harmonic 26 (-1.757) 135.5
    ,Harmonic 27 2.896 85.03
    ,Harmonic 28 0.278 26.72
    ,Harmonic 29 (-1.824) 16.5
    ,Harmonic 30 1.983 9.42
    ,Harmonic 31 3.2e-2 23.79
    ,Harmonic 32 (-3.123) 13.27
    ,Harmonic 33 (-2.692) 12.43
    ,Harmonic 34 (-1.117) 25.96
    ,Harmonic 35 0.474 19.02
    ,Harmonic 36 1.45 8.48
    ,Harmonic 37 2.192 12.98
    ,Harmonic 38 1.842 2.5
    ,Harmonic 39 (-1.711) 8.65
    ,Harmonic 40 2.918 3.66
    ,Harmonic 41 2.998 9.24
    ,Harmonic 42 (-2.597) 12.54
    ,Harmonic 43 0.297 12.48
    ,Harmonic 44 0.105 7.1
    ,Harmonic 45 2.472 13.46]