Note19.hs

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

import Sharc.Types

note19 :: Note
note19 = Note
    (Pitch 415.305 56 "g#4")
    20
    (Range
        (NoteRange
            (NoteRangeAmplitude 9967.32 24 1.87)
            (NoteRangeHarmonicFreq 1 415.3))
        (NoteRange
            (NoteRangeAmplitude 830.61 2 6264.0)
            (NoteRangeHarmonicFreq 24 9967.32)))
    [Harmonic 1 (-1.712) 4369.52
    ,Harmonic 2 (-0.766) 6264.0
    ,Harmonic 3 (-2.655) 4207.29
    ,Harmonic 4 (-0.921) 1300.24
    ,Harmonic 5 2.534 2693.5
    ,Harmonic 6 (-1.271) 1041.13
    ,Harmonic 7 1.079 678.66
    ,Harmonic 8 1.493 415.06
    ,Harmonic 9 (-1.32) 62.99
    ,Harmonic 10 (-1.889) 60.93
    ,Harmonic 11 (-0.82) 113.12
    ,Harmonic 12 3.096 35.49
    ,Harmonic 13 0.565 32.43
    ,Harmonic 14 2.117 2.02
    ,Harmonic 15 1.887 5.19
    ,Harmonic 16 (-1.786) 64.38
    ,Harmonic 17 1.817 5.27
    ,Harmonic 18 (-0.455) 23.4
    ,Harmonic 19 (-2.598) 4.26
    ,Harmonic 20 (-0.496) 2.82
    ,Harmonic 21 (-2.067) 7.72
    ,Harmonic 22 (-0.769) 13.52
    ,Harmonic 23 1.84 17.26
    ,Harmonic 24 2.709 1.87]