Note11.hs

module Sharc.Instruments.ViolaPizzicato.Note11 (note11) where

import Sharc.Types

note11 :: Note
note11 = Note
    (Pitch 246.942 47 "b3")
    12
    (Range
        (NoteRange
            (NoteRangeAmplitude 8642.97 35 0.12)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 246.94 1 4263.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 (-1.992) 4263.0
    ,Harmonic 2 0.15 1246.58
    ,Harmonic 3 1.361 348.77
    ,Harmonic 4 (-2.521) 28.0
    ,Harmonic 5 (-2.083) 193.45
    ,Harmonic 6 1.822 39.72
    ,Harmonic 7 (-1.81) 23.08
    ,Harmonic 8 (-0.335) 27.35
    ,Harmonic 9 1.5e-2 12.43
    ,Harmonic 10 (-2.18) 4.45
    ,Harmonic 11 (-5.2e-2) 5.34
    ,Harmonic 12 (-0.108) 2.02
    ,Harmonic 13 (-2.527) 0.2
    ,Harmonic 14 (-1.428) 0.45
    ,Harmonic 15 (-1.364) 3.03
    ,Harmonic 16 2.717 1.61
    ,Harmonic 17 (-0.936) 0.78
    ,Harmonic 18 1.369 0.55
    ,Harmonic 19 0.253 0.3
    ,Harmonic 20 1.334 0.58
    ,Harmonic 21 (-2.163) 1.15
    ,Harmonic 22 3.048 0.64
    ,Harmonic 23 3.121 0.23
    ,Harmonic 24 (-2.886) 0.55
    ,Harmonic 25 1.08 0.32
    ,Harmonic 26 (-2.819) 0.52
    ,Harmonic 27 (-0.498) 0.17
    ,Harmonic 28 0.785 0.56
    ,Harmonic 29 1.604 0.42
    ,Harmonic 30 8.3e-2 0.3
    ,Harmonic 31 (-0.789) 0.43
    ,Harmonic 32 2.093 0.41
    ,Harmonic 33 0.382 0.23
    ,Harmonic 34 0.285 0.29
    ,Harmonic 35 0.207 0.12
    ,Harmonic 36 2.844 0.29
    ,Harmonic 37 (-2.326) 0.14
    ,Harmonic 38 2.508 0.28
    ,Harmonic 39 (-2.322) 0.19
    ,Harmonic 40 2.696 0.37]