Note17.hs

module Sharc.Instruments.ViolinMarteleBowing.Note17 (note17) where

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 523.251 60 "c5")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 6802.26 13 5.12)
            (NoteRangeHarmonicFreq 1 523.25))
        (NoteRange
            (NoteRangeAmplitude 523.25 1 4138.0)
            (NoteRangeHarmonicFreq 20 10465.02)))
    [Harmonic 1 (-1.248) 4138.0
    ,Harmonic 2 (-0.773) 615.51
    ,Harmonic 3 1.827 420.5
    ,Harmonic 4 (-0.962) 863.16
    ,Harmonic 5 (-1.969) 427.5
    ,Harmonic 6 (-1.814) 183.96
    ,Harmonic 7 (-1.736) 119.78
    ,Harmonic 8 0.17 123.63
    ,Harmonic 9 (-1.152) 219.58
    ,Harmonic 10 1.084 95.35
    ,Harmonic 11 1.801 527.3
    ,Harmonic 12 2.988 302.89
    ,Harmonic 13 3.047 5.12
    ,Harmonic 14 (-0.703) 85.47
    ,Harmonic 15 (-0.12) 75.95
    ,Harmonic 16 0.87 11.52
    ,Harmonic 17 (-0.852) 29.14
    ,Harmonic 18 0.937 13.98
    ,Harmonic 19 (-0.948) 13.77
    ,Harmonic 20 0.16 6.13]