Note5.hs

module Sharc.Instruments.ViolinMarteleBowing.Note5 (note5) where

import Sharc.Types

note5 :: Note
note5 = Note
    (Pitch 261.626 48 "c4")
    6
    (Range
        (NoteRange
            (NoteRangeAmplitude 7587.15 29 1.52)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 523.25 2 5491.0)
            (NoteRangeHarmonicFreq 37 9680.16)))
    [Harmonic 1 2.593 2366.37
    ,Harmonic 2 (-1.259) 5491.0
    ,Harmonic 3 1.281 2805.01
    ,Harmonic 4 (-1.365) 1185.43
    ,Harmonic 5 0.847 792.35
    ,Harmonic 6 (-1.266) 4128.71
    ,Harmonic 7 2.993 1497.86
    ,Harmonic 8 (-1.914) 1995.87
    ,Harmonic 9 2.419 713.25
    ,Harmonic 10 (-0.498) 299.62
    ,Harmonic 11 2.252 69.71
    ,Harmonic 12 0.47 151.91
    ,Harmonic 13 (-0.11) 38.56
    ,Harmonic 14 (-2.325) 664.1
    ,Harmonic 15 (-1.273) 41.76
    ,Harmonic 16 (-0.434) 38.92
    ,Harmonic 17 1.197 88.56
    ,Harmonic 18 (-3.112) 38.69
    ,Harmonic 19 1.458 3.95
    ,Harmonic 20 (-2.775) 137.55
    ,Harmonic 21 (-1.822) 29.67
    ,Harmonic 22 (-1.965) 17.4
    ,Harmonic 23 (-0.497) 18.1
    ,Harmonic 24 (-1.438) 29.58
    ,Harmonic 25 9.0e-2 16.1
    ,Harmonic 26 (-8.9e-2) 16.56
    ,Harmonic 27 (-6.8e-2) 2.32
    ,Harmonic 28 (-0.521) 11.18
    ,Harmonic 29 2.373 1.52
    ,Harmonic 30 (-2.627) 13.96
    ,Harmonic 31 0.801 9.6
    ,Harmonic 32 1.782 4.43
    ,Harmonic 33 (-1.201) 3.99
    ,Harmonic 34 0.88 6.03
    ,Harmonic 35 (-0.65) 9.16
    ,Harmonic 36 1.259 3.56
    ,Harmonic 37 0.999 3.02]