Note7.hs

module Sharc.Instruments.ViolinMarteleBowing.Note7 (note7) where

import Sharc.Types

note7 :: Note
note7 = Note
    (Pitch 293.665 50 "d4")
    8
    (Range
        (NoteRange
            (NoteRangeAmplitude 9397.28 32 0.34)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 880.99 3 2744.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 (-2.419) 331.71
    ,Harmonic 2 (-0.135) 479.89
    ,Harmonic 3 (-2.763) 2744.0
    ,Harmonic 4 (-1.04) 1480.17
    ,Harmonic 5 (-0.563) 599.22
    ,Harmonic 6 (-1.174) 291.69
    ,Harmonic 7 (-0.518) 909.84
    ,Harmonic 8 (-1.059) 780.61
    ,Harmonic 9 (-2.54) 208.85
    ,Harmonic 10 1.578 151.38
    ,Harmonic 11 1.799 79.02
    ,Harmonic 12 (-8.5e-2) 58.28
    ,Harmonic 13 (-2.15) 40.31
    ,Harmonic 14 (-1.956) 69.32
    ,Harmonic 15 1.132 37.25
    ,Harmonic 16 2.268 32.95
    ,Harmonic 17 (-0.357) 16.94
    ,Harmonic 18 (-0.387) 23.76
    ,Harmonic 19 0.361 45.74
    ,Harmonic 20 0.208 13.71
    ,Harmonic 21 3.079 11.87
    ,Harmonic 22 1.288 5.88
    ,Harmonic 23 2.103 7.89
    ,Harmonic 24 1.65 7.88
    ,Harmonic 25 (-1.764) 10.32
    ,Harmonic 26 (-0.32) 1.92
    ,Harmonic 27 (-1.824) 1.08
    ,Harmonic 28 0.278 3.87
    ,Harmonic 29 (-1.16) 4.26
    ,Harmonic 30 0.36 1.7
    ,Harmonic 31 (-0.339) 1.95
    ,Harmonic 32 (-1.614) 0.34
    ,Harmonic 33 (-1.917) 2.9
    ,Harmonic 34 8.4e-2 1.18]