Note26.hs

module Sharc.Instruments.Viola.Note26 (note26) where

import Sharc.Types

note26 :: Note
note26 = Note
    (Pitch 587.33 62 "d5")
    27
    (Range
        (NoteRange
            (NoteRangeAmplitude 8809.95 15 29.85)
            (NoteRangeHarmonicFreq 1 587.33))
        (NoteRange
            (NoteRangeAmplitude 1174.66 2 3815.0)
            (NoteRangeHarmonicFreq 17 9984.61)))
    [Harmonic 1 (-2.753) 2881.62
    ,Harmonic 2 (-8.9e-2) 3815.0
    ,Harmonic 3 (-3.139) 3488.34
    ,Harmonic 4 (-1.163) 1879.4
    ,Harmonic 5 (-1.972) 2400.28
    ,Harmonic 6 (-2.642) 703.07
    ,Harmonic 7 1.083 320.77
    ,Harmonic 8 (-2.661) 898.26
    ,Harmonic 9 (-2.893) 891.15
    ,Harmonic 10 (-2.287) 609.16
    ,Harmonic 11 (-3.092) 306.91
    ,Harmonic 12 (-1.828) 117.91
    ,Harmonic 13 1.763 150.46
    ,Harmonic 14 (-1.889) 43.46
    ,Harmonic 15 0.138 29.85
    ,Harmonic 16 0.519 66.36
    ,Harmonic 17 2.682 52.65]