Note37.hs

module Sharc.Instruments.CelloMarteleBowing.Note37 (note37) where

import Sharc.Types

note37 :: Note
note37 = Note
    (Pitch 554.365 61 "c#5")
    38
    (Range
        (NoteRange
            (NoteRangeAmplitude 9424.2 17 8.94)
            (NoteRangeHarmonicFreq 1 554.36))
        (NoteRange
            (NoteRangeAmplitude 1108.73 2 5121.0)
            (NoteRangeHarmonicFreq 18 9978.57)))
    [Harmonic 1 (-0.197) 4365.63
    ,Harmonic 2 1.148 5121.0
    ,Harmonic 3 1.153 4553.38
    ,Harmonic 4 2.768 3440.96
    ,Harmonic 5 1.522 1293.91
    ,Harmonic 6 2.235 2353.45
    ,Harmonic 7 0.225 49.75
    ,Harmonic 8 0.161 371.65
    ,Harmonic 9 (-2.332) 151.25
    ,Harmonic 10 1.037 145.31
    ,Harmonic 11 (-3.034) 42.79
    ,Harmonic 12 0.895 96.52
    ,Harmonic 13 1.628 63.33
    ,Harmonic 14 2.956 115.17
    ,Harmonic 15 (-2.589) 105.97
    ,Harmonic 16 2.603 62.01
    ,Harmonic 17 0.325 8.94
    ,Harmonic 18 1.464 28.67]