Note8.hs

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

import Sharc.Types

note8 :: Note
note8 = Note
    (Pitch 311.127 51 "d#4")
    9
    (Range
        (NoteRange
            (NoteRangeAmplitude 7467.04 24 0.49)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 622.25 2 15010.0)
            (NoteRangeHarmonicFreq 31 9644.93)))
    [Harmonic 1 0.756 14159.67
    ,Harmonic 2 2.492 15010.0
    ,Harmonic 3 0.24 5164.74
    ,Harmonic 4 2.231 2532.18
    ,Harmonic 5 (-2.94) 487.48
    ,Harmonic 6 1.555 1184.21
    ,Harmonic 7 0.754 866.12
    ,Harmonic 8 (-2.685) 174.1
    ,Harmonic 9 (-1.436) 89.46
    ,Harmonic 10 0.16 67.47
    ,Harmonic 11 0.668 166.3
    ,Harmonic 12 0.674 23.05
    ,Harmonic 13 (-1.205) 29.07
    ,Harmonic 14 (-0.246) 21.74
    ,Harmonic 15 (-2.605) 5.79
    ,Harmonic 16 1.117 7.38
    ,Harmonic 17 (-2.489) 21.67
    ,Harmonic 18 1.665 5.48
    ,Harmonic 19 3.089 4.47
    ,Harmonic 20 (-1.483) 2.59
    ,Harmonic 21 (-2.549) 6.13
    ,Harmonic 22 (-1.384) 2.11
    ,Harmonic 23 0.478 2.48
    ,Harmonic 24 (-1.443) 0.49
    ,Harmonic 25 (-2.927) 3.0
    ,Harmonic 26 (-3.006) 4.44
    ,Harmonic 27 1.496 1.92
    ,Harmonic 28 (-2.882) 3.53
    ,Harmonic 29 2.523 0.94
    ,Harmonic 30 2.044 2.1
    ,Harmonic 31 2.919 1.51]