Note15.hs

module Sharc.Instruments.Viola.Note15 (note15) where

import Sharc.Types

note15 :: Note
note15 = Note
    (Pitch 311.127 51 "d#4")
    16
    (Range
        (NoteRange
            (NoteRangeAmplitude 9022.68 29 5.99)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 2177.88 7 10586.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 0.488 4236.58
    ,Harmonic 2 (-1.211) 2438.15
    ,Harmonic 3 1.942 1378.7
    ,Harmonic 4 1.702 3578.54
    ,Harmonic 5 0.17 1247.74
    ,Harmonic 6 2.03 3360.82
    ,Harmonic 7 1.178 10586.0
    ,Harmonic 8 0.348 346.51
    ,Harmonic 9 2.621 995.81
    ,Harmonic 10 1.951 1437.14
    ,Harmonic 11 (-2.177) 432.39
    ,Harmonic 12 (-0.718) 745.44
    ,Harmonic 13 (-2.717) 195.72
    ,Harmonic 14 (-2.471) 286.14
    ,Harmonic 15 2.946 173.15
    ,Harmonic 16 1.422 63.93
    ,Harmonic 17 1.877 203.54
    ,Harmonic 18 (-3.129) 51.93
    ,Harmonic 19 2.4 192.15
    ,Harmonic 20 2.553 77.73
    ,Harmonic 21 (-1.098) 58.5
    ,Harmonic 22 0.707 15.29
    ,Harmonic 23 (-0.221) 43.45
    ,Harmonic 24 (-1.916) 65.44
    ,Harmonic 25 (-2.328) 59.88
    ,Harmonic 26 (-2.906) 96.56
    ,Harmonic 27 2.957 51.0
    ,Harmonic 28 0.874 25.61
    ,Harmonic 29 0.527 5.99
    ,Harmonic 30 3.003 16.52
    ,Harmonic 31 (-2.626) 30.48
    ,Harmonic 32 (-1.453) 28.44]