Note18.hs

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

import Sharc.Types

note18 :: Note
note18 = Note
    (Pitch 554.365 61 "c#5")
    19
    (Range
        (NoteRange
            (NoteRangeAmplitude 8315.47 15 45.94)
            (NoteRangeHarmonicFreq 1 554.36))
        (NoteRange
            (NoteRangeAmplitude 2217.46 4 30250.0)
            (NoteRangeHarmonicFreq 18 9978.57)))
    [Harmonic 1 (-1.286) 23400.8
    ,Harmonic 2 (-0.948) 2157.54
    ,Harmonic 3 (-0.91) 6100.28
    ,Harmonic 4 (-2.278) 30250.0
    ,Harmonic 5 0.507 4789.39
    ,Harmonic 6 (-2.304) 6454.83
    ,Harmonic 7 (-2.413) 4232.58
    ,Harmonic 8 (-0.963) 2102.52
    ,Harmonic 9 1.921 767.38
    ,Harmonic 10 (-1.308) 210.06
    ,Harmonic 11 0.751 310.77
    ,Harmonic 12 (-2.136) 461.37
    ,Harmonic 13 2.031 426.2
    ,Harmonic 14 1.205 452.79
    ,Harmonic 15 (-3.057) 45.94
    ,Harmonic 16 1.403 136.59
    ,Harmonic 17 0.844 168.96
    ,Harmonic 18 1.12 98.76]