Note18.hs

module Sharc.Instruments.Viola.Note18 (note18) where

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 369.994 54 "f#4")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 8879.85 24 7.43)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 1479.97 4 7675.0)
            (NoteRangeHarmonicFreq 26 9619.84)))
    [Harmonic 1 2.219 7591.78
    ,Harmonic 2 1.026 1324.87
    ,Harmonic 3 (-2.264) 1335.54
    ,Harmonic 4 (-1.062) 7675.0
    ,Harmonic 5 (-3.051) 1719.38
    ,Harmonic 6 (-1.706) 3738.3
    ,Harmonic 7 (-0.73) 1080.39
    ,Harmonic 8 (-1.65) 111.77
    ,Harmonic 9 2.936 316.49
    ,Harmonic 10 0.469 396.42
    ,Harmonic 11 3.037 531.54
    ,Harmonic 12 0.906 216.47
    ,Harmonic 13 (-2.819) 151.12
    ,Harmonic 14 (-2.974) 235.26
    ,Harmonic 15 0.429 115.38
    ,Harmonic 16 1.201 64.39
    ,Harmonic 17 (-2.932) 20.39
    ,Harmonic 18 (-0.133) 38.5
    ,Harmonic 19 (-1.239) 9.31
    ,Harmonic 20 2.181 58.37
    ,Harmonic 21 (-0.722) 30.39
    ,Harmonic 22 2.611 29.51
    ,Harmonic 23 1.606 28.26
    ,Harmonic 24 (-3.106) 7.43
    ,Harmonic 25 (-0.599) 15.39
    ,Harmonic 26 2.371 37.24]