Note18.hs

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

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 369.994 54 "f#4")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 8879.85 24 0.36)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 1 4614.0)
            (NoteRangeHarmonicFreq 26 9619.84)))
    [Harmonic 1 2.079 4614.0
    ,Harmonic 2 0.543 2513.49
    ,Harmonic 3 0.178 1356.66
    ,Harmonic 4 0.495 216.59
    ,Harmonic 5 2.11 268.36
    ,Harmonic 6 (-2.781) 23.93
    ,Harmonic 7 (-2.257) 57.72
    ,Harmonic 8 2.082 10.99
    ,Harmonic 9 3.009 27.06
    ,Harmonic 10 (-1.835) 10.81
    ,Harmonic 11 1.584 6.38
    ,Harmonic 12 (-2.856) 4.73
    ,Harmonic 13 0.573 3.42
    ,Harmonic 14 (-2.431) 1.22
    ,Harmonic 15 (-2.317) 3.94
    ,Harmonic 16 (-1.759) 2.25
    ,Harmonic 17 (-2.752) 1.53
    ,Harmonic 18 2.435 1.01
    ,Harmonic 19 (-2.526) 0.58
    ,Harmonic 20 (-2.742) 2.14
    ,Harmonic 21 0.993 0.64
    ,Harmonic 22 2.075 0.53
    ,Harmonic 23 (-2.372) 1.87
    ,Harmonic 24 2.591 0.36
    ,Harmonic 25 (-2.336) 0.45
    ,Harmonic 26 3.097 1.17]