Note17.hs

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

import Sharc.Types

note17 :: Note
note17 = Note
    (Pitch 369.994 54 "f#4")
    18
    (Range
        (NoteRange
            (NoteRangeAmplitude 7029.88 19 1.84)
            (NoteRangeHarmonicFreq 1 369.99))
        (NoteRange
            (NoteRangeAmplitude 369.99 1 9652.0)
            (NoteRangeHarmonicFreq 27 9989.83)))
    [Harmonic 1 (-1.875) 9652.0
    ,Harmonic 2 (-1.243) 468.77
    ,Harmonic 3 (-1.363) 1886.37
    ,Harmonic 4 0.377 1327.92
    ,Harmonic 5 (-0.655) 776.93
    ,Harmonic 6 (-1.117) 271.05
    ,Harmonic 7 (-1.007) 454.77
    ,Harmonic 8 2.879 19.38
    ,Harmonic 9 (-1.43) 103.28
    ,Harmonic 10 (-2.589) 53.63
    ,Harmonic 11 0.818 133.17
    ,Harmonic 12 1.704 13.88
    ,Harmonic 13 (-1.225) 30.7
    ,Harmonic 14 2.36 17.61
    ,Harmonic 15 (-2.371) 17.71
    ,Harmonic 16 (-1.0e-2) 5.3
    ,Harmonic 17 1.554 4.86
    ,Harmonic 18 1.11 21.04
    ,Harmonic 19 (-1.866) 1.84
    ,Harmonic 20 0.624 6.16
    ,Harmonic 21 1.993 3.08
    ,Harmonic 22 (-2.958) 4.7
    ,Harmonic 23 1.72 3.13
    ,Harmonic 24 (-1.941) 2.09
    ,Harmonic 25 1.147 9.1
    ,Harmonic 26 0.91 2.0
    ,Harmonic 27 2.23 4.91]