Note13.hs

module Sharc.Instruments.Viola.Note13 (note13) where

import Sharc.Types

note13 :: Note
note13 = Note
    (Pitch 277.183 49 "c#4")
    14
    (Range
        (NoteRange
            (NoteRangeAmplitude 8869.85 32 8.19)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 1385.91 5 6263.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 1.969 4509.09
    ,Harmonic 2 (-0.872) 3526.63
    ,Harmonic 3 0.919 4387.78
    ,Harmonic 4 (-0.949) 2660.26
    ,Harmonic 5 (-2.375) 6263.0
    ,Harmonic 6 (-1.754) 4006.26
    ,Harmonic 7 (-3.037) 2661.3
    ,Harmonic 8 (-7.0e-3) 1148.94
    ,Harmonic 9 (-2.503) 370.52
    ,Harmonic 10 (-2.593) 907.38
    ,Harmonic 11 (-0.439) 819.06
    ,Harmonic 12 1.579 470.04
    ,Harmonic 13 2.735 793.17
    ,Harmonic 14 1.077 1403.06
    ,Harmonic 15 (-0.213) 238.99
    ,Harmonic 16 (-0.527) 67.72
    ,Harmonic 17 1.062 59.71
    ,Harmonic 18 3.087 172.41
    ,Harmonic 19 (-2.237) 125.86
    ,Harmonic 20 (-2.097) 103.46
    ,Harmonic 21 1.419 186.03
    ,Harmonic 22 1.73 153.13
    ,Harmonic 23 (-2.541) 112.95
    ,Harmonic 24 (-2.026) 41.49
    ,Harmonic 25 (-0.513) 23.87
    ,Harmonic 26 2.427 47.49
    ,Harmonic 27 (-1.954) 40.27
    ,Harmonic 28 (-0.529) 79.67
    ,Harmonic 29 (-0.581) 29.68
    ,Harmonic 30 0.735 25.66
    ,Harmonic 31 (-2.855) 22.26
    ,Harmonic 32 (-2.347) 8.19
    ,Harmonic 33 1.634 11.7
    ,Harmonic 34 (-2.988) 16.08
    ,Harmonic 35 (-2.574) 22.05
    ,Harmonic 36 (-1.521) 8.81]