Note38.hs

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

import Sharc.Types

note38 :: Note
note38 = Note
    (Pitch 587.33 62 "d5")
    39
    (Range
        (NoteRange
            (NoteRangeAmplitude 6460.63 11 3.02)
            (NoteRangeHarmonicFreq 1 587.33))
        (NoteRange
            (NoteRangeAmplitude 587.33 1 3783.0)
            (NoteRangeHarmonicFreq 18 10571.94)))
    [Harmonic 1 (-1.29) 3783.0
    ,Harmonic 2 0.702 2113.65
    ,Harmonic 3 1.899 412.56
    ,Harmonic 4 0.46 294.96
    ,Harmonic 5 2.49 34.12
    ,Harmonic 6 (-1.909) 63.67
    ,Harmonic 7 (-2.276) 16.71
    ,Harmonic 8 (-2.403) 21.13
    ,Harmonic 9 0.968 14.14
    ,Harmonic 10 2.681 9.52
    ,Harmonic 11 0.794 3.02
    ,Harmonic 12 0.884 10.19
    ,Harmonic 13 2.755 4.31
    ,Harmonic 14 0.847 4.8
    ,Harmonic 15 0.413 18.42
    ,Harmonic 16 (-2.434) 4.2
    ,Harmonic 17 (-2.981) 6.75
    ,Harmonic 18 (-1.436) 6.07]