Note7.hs

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

import Sharc.Types

note7 :: Note
note7 = Note
    (Pitch 293.665 50 "d4")
    8
    (Range
        (NoteRange
            (NoteRangeAmplitude 7047.96 24 1.08)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 293.66 1 1792.0)
            (NoteRangeHarmonicFreq 34 9984.61)))
    [Harmonic 1 1.549 1792.0
    ,Harmonic 2 2.884 499.98
    ,Harmonic 3 (-0.112) 494.23
    ,Harmonic 4 0.124 108.75
    ,Harmonic 5 1.531 604.42
    ,Harmonic 6 0.809 20.78
    ,Harmonic 7 (-0.274) 280.55
    ,Harmonic 8 1.564 199.03
    ,Harmonic 9 2.719 34.18
    ,Harmonic 10 (-1.68) 7.67
    ,Harmonic 11 (-1.222) 8.16
    ,Harmonic 12 (-0.648) 29.65
    ,Harmonic 13 (-2.649) 44.88
    ,Harmonic 14 1.948 10.93
    ,Harmonic 15 (-0.633) 16.62
    ,Harmonic 16 (-1.486) 16.63
    ,Harmonic 17 1.379 14.88
    ,Harmonic 18 (-0.603) 13.28
    ,Harmonic 19 0.472 4.26
    ,Harmonic 20 (-2.481) 6.86
    ,Harmonic 21 (-0.44) 6.24
    ,Harmonic 22 (-0.915) 15.41
    ,Harmonic 23 (-1.52) 5.73
    ,Harmonic 24 3.016 1.08
    ,Harmonic 25 1.635 4.56
    ,Harmonic 26 0.374 1.91
    ,Harmonic 27 2.163 7.42
    ,Harmonic 28 (-2.536) 10.81
    ,Harmonic 29 2.053 3.67
    ,Harmonic 30 (-0.827) 8.07
    ,Harmonic 31 (-2.587) 1.47
    ,Harmonic 32 1.841 3.21
    ,Harmonic 33 0.674 9.9
    ,Harmonic 34 (-1.955) 6.36]