Note8.hs

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

import Sharc.Types

note8 :: Note
note8 = Note
    (Pitch 311.127 51 "d#4")
    9
    (Range
        (NoteRange
            (NoteRangeAmplitude 4978.03 16 5.19)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 311.12 1 4037.0)
            (NoteRangeHarmonicFreq 31 9644.93)))
    [Harmonic 1 0.719 4037.0
    ,Harmonic 2 2.237 2374.63
    ,Harmonic 3 3.076 1552.53
    ,Harmonic 4 1.537 2041.62
    ,Harmonic 5 2.837 391.29
    ,Harmonic 6 (-0.515) 192.79
    ,Harmonic 7 0.207 217.48
    ,Harmonic 8 2.084 38.44
    ,Harmonic 9 (-7.0e-2) 145.23
    ,Harmonic 10 (-1.204) 129.11
    ,Harmonic 11 3.116 80.92
    ,Harmonic 12 (-0.836) 126.5
    ,Harmonic 13 1.202 62.29
    ,Harmonic 14 (-1.201) 24.86
    ,Harmonic 15 1.394 16.06
    ,Harmonic 16 1.46 5.19
    ,Harmonic 17 2.08 11.99
    ,Harmonic 18 0.303 5.65
    ,Harmonic 19 (-2.374) 15.92
    ,Harmonic 20 3.096 12.07
    ,Harmonic 21 (-0.623) 8.86
    ,Harmonic 22 (-1.038) 11.78
    ,Harmonic 23 (-0.435) 11.0
    ,Harmonic 24 1.579 11.85
    ,Harmonic 25 3.122 25.38
    ,Harmonic 26 3.075 15.14
    ,Harmonic 27 (-1.586) 8.1
    ,Harmonic 28 2.467 11.25
    ,Harmonic 29 (-1.078) 6.97
    ,Harmonic 30 (-2.381) 5.46
    ,Harmonic 31 1.879 9.62]