Note19.hs

module Sharc.Instruments.ViolinsEnsemble.Note19 (note19) where

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 587.33 62 "d5")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 9397.28 16 20.55)
            (NoteRangeHarmonicFreq 1 587.33))
        (NoteRange
            (NoteRangeAmplitude 587.33 1 15990.0)
            (NoteRangeHarmonicFreq 17 9984.61)))
    [Harmonic 1 (-1.892) 15990.0
    ,Harmonic 2 (-2.433) 1253.0
    ,Harmonic 3 (-0.477) 5756.47
    ,Harmonic 4 3.116 3471.39
    ,Harmonic 5 0.529 2662.79
    ,Harmonic 6 (-1.175) 1941.84
    ,Harmonic 7 2.84 1502.42
    ,Harmonic 8 (-0.865) 699.84
    ,Harmonic 9 (-0.189) 1499.66
    ,Harmonic 10 0.502 333.21
    ,Harmonic 11 0.871 318.28
    ,Harmonic 12 1.323 353.16
    ,Harmonic 13 (-2.453) 139.27
    ,Harmonic 14 (-0.763) 79.36
    ,Harmonic 15 1.615 48.81
    ,Harmonic 16 (-1.269) 20.55
    ,Harmonic 17 2.765 28.14]