Note7.hs

module Sharc.Instruments.ViolaPizzicato.Note7 (note7) where

import Sharc.Types

note7 :: Note
note7 = Note
    (Pitch 195.998 43 "g3")
    8
    (Range
        (NoteRange
            (NoteRangeAmplitude 7447.92 38 0.23)
            (NoteRangeHarmonicFreq 1 195.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 2 2466.0)
            (NoteRangeHarmonicFreq 51 9995.89)))
    [Harmonic 1 (-2.547) 1340.99
    ,Harmonic 2 (-1.194) 2466.0
    ,Harmonic 3 2.308 154.85
    ,Harmonic 4 (-1.864) 307.24
    ,Harmonic 5 2.913 579.1
    ,Harmonic 6 (-1.508) 273.59
    ,Harmonic 7 (-0.438) 108.97
    ,Harmonic 8 (-1.606) 89.63
    ,Harmonic 9 5.1e-2 163.56
    ,Harmonic 10 1.493 68.12
    ,Harmonic 11 (-0.421) 7.64
    ,Harmonic 12 (-1.942) 32.69
    ,Harmonic 13 (-0.442) 38.3
    ,Harmonic 14 2.035 5.04
    ,Harmonic 15 (-2.676) 14.63
    ,Harmonic 16 2.814 32.66
    ,Harmonic 17 (-0.757) 4.21
    ,Harmonic 18 5.2e-2 1.2
    ,Harmonic 19 1.014 2.33
    ,Harmonic 20 1.891 2.24
    ,Harmonic 21 1.306 2.52
    ,Harmonic 22 (-1.149) 1.58
    ,Harmonic 23 (-2.52) 0.82
    ,Harmonic 24 (-2.083) 0.94
    ,Harmonic 25 1.513 3.05
    ,Harmonic 26 2.211 0.86
    ,Harmonic 27 (-1.33) 2.5
    ,Harmonic 28 1.488 0.86
    ,Harmonic 29 0.594 0.67
    ,Harmonic 30 2.323 1.29
    ,Harmonic 31 (-0.468) 2.52
    ,Harmonic 32 (-2.631) 1.63
    ,Harmonic 33 0.699 0.64
    ,Harmonic 34 (-1.418) 1.03
    ,Harmonic 35 0.575 1.2
    ,Harmonic 36 (-1.492) 2.06
    ,Harmonic 37 (-0.218) 0.34
    ,Harmonic 38 0.155 0.23
    ,Harmonic 39 1.449 1.62
    ,Harmonic 40 (-2.285) 0.73
    ,Harmonic 41 (-0.356) 1.42
    ,Harmonic 42 0.467 1.29
    ,Harmonic 43 (-2.355) 1.4
    ,Harmonic 44 2.665 0.95
    ,Harmonic 45 0.84 1.43
    ,Harmonic 46 0.749 1.32
    ,Harmonic 47 (-1.758) 1.72
    ,Harmonic 48 1.103 0.49
    ,Harmonic 49 1.721 1.05
    ,Harmonic 50 (-0.114) 0.77
    ,Harmonic 51 (-0.752) 0.66]