Note8.hs

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

import Sharc.Types

note8 :: Note
note8 = Note
    (Pitch 311.127 51 "d#4")
    9
    (Range
        (NoteRange
            (NoteRangeAmplitude 8711.55 28 1.1)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 1244.5 4 2375.0)
            (NoteRangeHarmonicFreq 31 9644.93)))
    [Harmonic 1 2.335 477.35
    ,Harmonic 2 0.929 723.71
    ,Harmonic 3 (-1.258) 1373.77
    ,Harmonic 4 1.159 2375.0
    ,Harmonic 5 (-0.476) 403.62
    ,Harmonic 6 (-2.462) 568.31
    ,Harmonic 7 2.198 1522.38
    ,Harmonic 8 2.13 139.75
    ,Harmonic 9 0.424 178.35
    ,Harmonic 10 3.0 63.02
    ,Harmonic 11 (-1.125) 52.57
    ,Harmonic 12 3.001 52.08
    ,Harmonic 13 (-1.884) 70.1
    ,Harmonic 14 2.802 23.69
    ,Harmonic 15 (-2.318) 6.61
    ,Harmonic 16 1.553 6.82
    ,Harmonic 17 (-0.334) 19.19
    ,Harmonic 18 2.671 3.9
    ,Harmonic 19 (-1.978) 6.83
    ,Harmonic 20 (-0.803) 2.31
    ,Harmonic 21 (-1.976) 4.47
    ,Harmonic 22 (-0.934) 4.5
    ,Harmonic 23 (-2.115) 3.65
    ,Harmonic 24 (-2.774) 4.72
    ,Harmonic 25 (-2.933) 1.33
    ,Harmonic 26 1.521 1.91
    ,Harmonic 27 2.692 4.27
    ,Harmonic 28 3.139 1.1
    ,Harmonic 29 2.937 2.88
    ,Harmonic 30 1.788 2.94
    ,Harmonic 31 (-1.15) 1.34]