Note8.hs

module Sharc.Instruments.ViolaPizzicato.Note8 (note8) where

import Sharc.Types

note8 :: Note
note8 = Note
    (Pitch 207.652 44 "g#3")
    9
    (Range
        (NoteRange
            (NoteRangeAmplitude 6644.86 32 1.25)
            (NoteRangeHarmonicFreq 1 207.65))
        (NoteRange
            (NoteRangeAmplitude 415.3 2 6141.0)
            (NoteRangeHarmonicFreq 48 9967.29)))
    [Harmonic 1 1.749 4637.83
    ,Harmonic 2 1.875 6141.0
    ,Harmonic 3 0.594 1989.68
    ,Harmonic 4 2.886 349.38
    ,Harmonic 5 0.893 428.8
    ,Harmonic 6 2.704 545.73
    ,Harmonic 7 1.199 684.63
    ,Harmonic 8 0.213 103.28
    ,Harmonic 9 2.726 123.36
    ,Harmonic 10 2.663 226.73
    ,Harmonic 11 1.513 163.02
    ,Harmonic 12 0.448 69.68
    ,Harmonic 13 (-1.865) 13.74
    ,Harmonic 14 0.844 36.87
    ,Harmonic 15 (-0.658) 32.93
    ,Harmonic 16 (-0.119) 13.69
    ,Harmonic 17 0.74 7.13
    ,Harmonic 18 0.101 6.22
    ,Harmonic 19 (-0.222) 5.71
    ,Harmonic 20 (-1.1e-2) 4.64
    ,Harmonic 21 (-2.52) 2.4
    ,Harmonic 22 (-0.337) 9.51
    ,Harmonic 23 1.923 7.81
    ,Harmonic 24 (-1.256) 6.41
    ,Harmonic 25 1.361 4.57
    ,Harmonic 26 (-0.754) 3.24
    ,Harmonic 27 2.616 3.29
    ,Harmonic 28 1.088 2.11
    ,Harmonic 29 (-9.5e-2) 1.33
    ,Harmonic 30 2.631 3.62
    ,Harmonic 31 (-1.517) 3.5
    ,Harmonic 32 2.516 1.25
    ,Harmonic 33 0.212 5.05
    ,Harmonic 34 2.688 5.19
    ,Harmonic 35 0.319 1.43
    ,Harmonic 36 (-2.735) 4.0
    ,Harmonic 37 0.331 5.64
    ,Harmonic 38 (-2.879) 3.1
    ,Harmonic 39 1.511 2.76
    ,Harmonic 40 2.4e-2 2.35
    ,Harmonic 41 (-3.081) 5.02
    ,Harmonic 42 0.335 4.87
    ,Harmonic 43 (-2.717) 6.8
    ,Harmonic 44 2.4e-2 3.03
    ,Harmonic 45 (-2.283) 6.67
    ,Harmonic 46 0.683 6.29
    ,Harmonic 47 (-2.055) 11.05
    ,Harmonic 48 0.838 7.5]