Note38.hs

module Sharc.Instruments.CelloMarteleBowing.Note38 (note38) where

import Sharc.Types

note38 :: Note
note38 = Note
    (Pitch 587.33 62 "d5")
    39
    (Range
        (NoteRange
            (NoteRangeAmplitude 9397.28 16 13.09)
            (NoteRangeHarmonicFreq 1 587.33))
        (NoteRange
            (NoteRangeAmplitude 2349.32 4 3303.0)
            (NoteRangeHarmonicFreq 17 9984.61)))
    [Harmonic 1 0.353 1732.13
    ,Harmonic 2 (-1.129) 1401.48
    ,Harmonic 3 2.899 2965.8
    ,Harmonic 4 (-1.982) 3303.0
    ,Harmonic 5 (-1.205) 1921.92
    ,Harmonic 6 1.65 530.87
    ,Harmonic 7 (-1.902) 264.59
    ,Harmonic 8 (-2.037) 196.48
    ,Harmonic 9 (-0.335) 220.24
    ,Harmonic 10 2.308 53.75
    ,Harmonic 11 (-1.248) 190.18
    ,Harmonic 12 (-0.292) 61.3
    ,Harmonic 13 (-2.839) 90.14
    ,Harmonic 14 5.9e-2 97.48
    ,Harmonic 15 1.304 35.99
    ,Harmonic 16 (-1.118) 13.09
    ,Harmonic 17 (-2.357) 25.74]