Note10.hs

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

import Sharc.Types

note10 :: Note
note10 = Note
    (Pitch 233.082 46 "a#3")
    11
    (Range
        (NoteRange
            (NoteRangeAmplitude 9323.27 40 9.0e-2)
            (NoteRangeHarmonicFreq 1 233.08))
        (NoteRange
            (NoteRangeAmplitude 233.08 1 10277.0)
            (NoteRangeHarmonicFreq 43 10022.52)))
    [Harmonic 1 1.341 10277.0
    ,Harmonic 2 (-2.888) 2670.12
    ,Harmonic 3 (-1.592) 223.8
    ,Harmonic 4 (-0.388) 145.46
    ,Harmonic 5 2.366 364.41
    ,Harmonic 6 1.607 34.25
    ,Harmonic 7 (-0.772) 59.59
    ,Harmonic 8 1.232 37.97
    ,Harmonic 9 (-1.271) 12.82
    ,Harmonic 10 0.683 3.54
    ,Harmonic 11 (-0.316) 5.5
    ,Harmonic 12 2.887 2.46
    ,Harmonic 13 (-2.545) 1.8
    ,Harmonic 14 (-1.456) 3.22
    ,Harmonic 15 (-0.494) 1.03
    ,Harmonic 16 (-0.192) 0.86
    ,Harmonic 17 (-1.878) 3.49
    ,Harmonic 18 (-2.495) 1.62
    ,Harmonic 19 2.978 2.59
    ,Harmonic 20 (-2.816) 5.43
    ,Harmonic 21 1.082 0.64
    ,Harmonic 22 (-2.686) 0.86
    ,Harmonic 23 0.42 1.16
    ,Harmonic 24 1.78 0.98
    ,Harmonic 25 (-2.308) 0.69
    ,Harmonic 26 (-0.714) 0.36
    ,Harmonic 27 (-3.041) 1.47
    ,Harmonic 28 (-2.147) 1.11
    ,Harmonic 29 (-0.343) 0.78
    ,Harmonic 30 (-2.461) 0.68
    ,Harmonic 31 1.355 1.85
    ,Harmonic 32 1.199 1.72
    ,Harmonic 33 0.443 1.18
    ,Harmonic 34 2.013 0.62
    ,Harmonic 35 (-3.019) 1.1
    ,Harmonic 36 (-2.814) 0.74
    ,Harmonic 37 2.727 0.3
    ,Harmonic 38 (-2.121) 0.62
    ,Harmonic 39 (-1.074) 0.11
    ,Harmonic 40 (-2.897) 9.0e-2
    ,Harmonic 41 0.12 0.35
    ,Harmonic 42 0.88 0.17
    ,Harmonic 43 0.807 0.76]