Note39.hs

module Sharc.Instruments.CelloMarteleBowing.Note39 (note39) where

import Sharc.Types

note39 :: Note
note39 = Note
    (Pitch 622.254 63 "d#5")
    40
    (Range
        (NoteRange
            (NoteRangeAmplitude 8711.55 14 20.53)
            (NoteRangeHarmonicFreq 1 622.25))
        (NoteRange
            (NoteRangeAmplitude 622.25 1 2744.0)
            (NoteRangeHarmonicFreq 15 9333.81)))
    [Harmonic 1 (-2.418) 2744.0
    ,Harmonic 2 1.828 355.18
    ,Harmonic 3 (-1.018) 1980.93
    ,Harmonic 4 1.585 1216.29
    ,Harmonic 5 (-1.763) 1896.64
    ,Harmonic 6 (-0.501) 296.38
    ,Harmonic 7 (-2.635) 88.49
    ,Harmonic 8 0.544 100.24
    ,Harmonic 9 1.44 53.75
    ,Harmonic 10 1.614 133.75
    ,Harmonic 11 (-0.408) 95.65
    ,Harmonic 12 0.58 94.95
    ,Harmonic 13 (-1.517) 23.67
    ,Harmonic 14 (-1.06) 20.53
    ,Harmonic 15 2.938 21.53]