Note10.hs

module Sharc.Instruments.ViolaMuted.Note10 (note10) where

import Sharc.Types

note10 :: Note
note10 = Note
    (Pitch 233.082 46 "a#3")
    11
    (Range
        (NoteRange
            (NoteRangeAmplitude 10022.52 43 1.28)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 233.08 1 7559.0)
            (NoteRangeHarmonicFreq 43 10022.52)))
    [Harmonic 1 (-1.669) 7559.0
    ,Harmonic 2 (-2.273) 2400.94
    ,Harmonic 3 0.557 1269.34
    ,Harmonic 4 (-0.766) 907.58
    ,Harmonic 5 (-1.23) 435.71
    ,Harmonic 6 0.498 87.49
    ,Harmonic 7 3.069 479.88
    ,Harmonic 8 0.769 229.7
    ,Harmonic 9 (-2.326) 681.14
    ,Harmonic 10 (-0.172) 395.87
    ,Harmonic 11 0.996 198.07
    ,Harmonic 12 2.091 137.76
    ,Harmonic 13 (-1.736) 78.28
    ,Harmonic 14 (-7.3e-2) 231.92
    ,Harmonic 15 (-4.7e-2) 56.44
    ,Harmonic 16 (-0.574) 124.9
    ,Harmonic 17 (-2.383) 57.67
    ,Harmonic 18 0.343 78.88
    ,Harmonic 19 1.754 5.42
    ,Harmonic 20 0.831 35.83
    ,Harmonic 21 (-2.496) 34.37
    ,Harmonic 22 0.874 10.09
    ,Harmonic 23 2.911 21.16
    ,Harmonic 24 (-2.617) 40.97
    ,Harmonic 25 1.059 17.14
    ,Harmonic 26 (-2.773) 11.85
    ,Harmonic 27 (-2.644) 4.96
    ,Harmonic 28 2.925 12.13
    ,Harmonic 29 1.388 6.1
    ,Harmonic 30 0.312 12.55
    ,Harmonic 31 (-2.976) 2.97
    ,Harmonic 32 (-1.856) 9.19
    ,Harmonic 33 1.333 12.63
    ,Harmonic 34 (-1.99) 7.82
    ,Harmonic 35 1.548 2.41
    ,Harmonic 36 (-3.002) 2.06
    ,Harmonic 37 1.817 2.6
    ,Harmonic 38 1.133 4.61
    ,Harmonic 39 (-1.382) 6.36
    ,Harmonic 40 0.813 5.7
    ,Harmonic 41 (-2.759) 2.43
    ,Harmonic 42 1.137 4.2
    ,Harmonic 43 (-1.737) 1.28]