Note9.hs

module Sharc.Instruments.ViolaPizzicato.Note9 (note9) where

import Sharc.Types

note9 :: Note
note9 = Note
    (Pitch 220.0 45 "a3")
    10
    (Range
        (NoteRange
            (NoteRangeAmplitude 9460.0 43 0.11)
            (NoteRangeHarmonicFreq 1 220.0))
        (NoteRange
            (NoteRangeAmplitude 220.0 1 7261.0)
            (NoteRangeHarmonicFreq 46 10120.0)))
    [Harmonic 1 (-2.153) 7261.0
    ,Harmonic 2 (-2.5e-2) 3543.67
    ,Harmonic 3 2.734 302.54
    ,Harmonic 4 (-0.46) 194.06
    ,Harmonic 5 1.613 869.9
    ,Harmonic 6 (-0.116) 205.94
    ,Harmonic 7 2.994 35.48
    ,Harmonic 8 (-0.688) 16.96
    ,Harmonic 9 2.497 10.6
    ,Harmonic 10 0.776 10.37
    ,Harmonic 11 (-1.847) 3.36
    ,Harmonic 12 (-3.035) 3.72
    ,Harmonic 13 (-1.563) 2.93
    ,Harmonic 14 (-1.479) 1.01
    ,Harmonic 15 (-0.776) 4.34
    ,Harmonic 16 (-1.891) 2.34
    ,Harmonic 17 2.657 1.05
    ,Harmonic 18 (-0.9) 1.96
    ,Harmonic 19 (-0.519) 2.88
    ,Harmonic 20 1.908 1.55
    ,Harmonic 21 (-2.869) 0.93
    ,Harmonic 22 9.3e-2 1.12
    ,Harmonic 23 (-0.288) 0.4
    ,Harmonic 24 2.019 0.43
    ,Harmonic 25 (-2.859) 0.77
    ,Harmonic 26 0.691 0.41
    ,Harmonic 27 2.359 0.91
    ,Harmonic 28 1.316 0.52
    ,Harmonic 29 (-0.465) 1.22
    ,Harmonic 30 (-0.296) 0.58
    ,Harmonic 31 0.237 0.33
    ,Harmonic 32 (-1.877) 0.44
    ,Harmonic 33 2.793 0.26
    ,Harmonic 34 1.485 0.14
    ,Harmonic 35 (-1.91) 0.41
    ,Harmonic 36 (-1.291) 0.52
    ,Harmonic 37 0.304 0.16
    ,Harmonic 38 0.462 0.51
    ,Harmonic 39 0.358 0.21
    ,Harmonic 40 1.828 0.2
    ,Harmonic 41 (-0.653) 0.34
    ,Harmonic 42 (-0.246) 0.44
    ,Harmonic 43 (-0.293) 0.11
    ,Harmonic 44 1.789 0.15
    ,Harmonic 45 2.991 0.49
    ,Harmonic 46 1.529 0.12]