Note14.hs

module Sharc.Instruments.ViolaPizzicato.Note14 (note14) where

import Sharc.Types

note14 :: Note
note14 = Note
    (Pitch 293.665 50 "d4")
    15
    (Range
        (NoteRange
            (NoteRangeAmplitude 7047.96 24 9.0e-2)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 293.66 1 2608.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 1.579 2608.0
    ,Harmonic 2 (-0.547) 830.22
    ,Harmonic 3 2.36 270.44
    ,Harmonic 4 1.08 24.04
    ,Harmonic 5 (-6.5e-2) 109.95
    ,Harmonic 6 (-1.147) 11.72
    ,Harmonic 7 0.587 51.65
    ,Harmonic 8 (-0.773) 13.45
    ,Harmonic 9 1.162 24.34
    ,Harmonic 10 1.482 16.44
    ,Harmonic 11 (-0.924) 11.63
    ,Harmonic 12 (-2.943) 1.62
    ,Harmonic 13 2.389 2.93
    ,Harmonic 14 2.841 3.51
    ,Harmonic 15 (-2.576) 1.93
    ,Harmonic 16 2.523 0.45
    ,Harmonic 17 (-2.603) 0.54
    ,Harmonic 18 2.799 1.03
    ,Harmonic 19 (-0.329) 0.39
    ,Harmonic 20 (-3.111) 0.55
    ,Harmonic 21 (-1.515) 0.52
    ,Harmonic 22 (-2.702) 0.12
    ,Harmonic 23 (-2.153) 0.41
    ,Harmonic 24 (-1.523) 9.0e-2
    ,Harmonic 25 1.8 0.31
    ,Harmonic 26 (-2.435) 0.51
    ,Harmonic 27 1.862 0.69
    ,Harmonic 28 (-1.816) 0.15
    ,Harmonic 29 (-2.817) 0.71
    ,Harmonic 30 1.741 9.0e-2
    ,Harmonic 31 (-2.467) 0.15
    ,Harmonic 32 (-2.761) 0.11
    ,Harmonic 33 (-2.571) 0.84
    ,Harmonic 34 2.641 0.36]