Note37.hs

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

import Sharc.Types

note37 :: Note
note37 = Note
    (Pitch 554.365 61 "c#5")
    38
    (Range
        (NoteRange
            (NoteRangeAmplitude 9424.2 17 1.7)
            (NoteRangeHarmonicFreq 1 554.36))
        (NoteRange
            (NoteRangeAmplitude 554.36 1 3875.0)
            (NoteRangeHarmonicFreq 17 9424.2)))
    [Harmonic 1 (-2.036) 3875.0
    ,Harmonic 2 0.104 2940.19
    ,Harmonic 3 (-1.561) 864.12
    ,Harmonic 4 (-0.716) 420.22
    ,Harmonic 5 (-2.201) 561.42
    ,Harmonic 6 (-3.033) 177.41
    ,Harmonic 7 (-2.779) 49.02
    ,Harmonic 8 1.397 28.32
    ,Harmonic 9 1.006 7.59
    ,Harmonic 10 1.37 3.92
    ,Harmonic 11 (-1.119) 6.2
    ,Harmonic 12 (-2.509) 5.56
    ,Harmonic 13 (-1.661) 6.73
    ,Harmonic 14 (-0.15) 4.92
    ,Harmonic 15 (-1.135) 3.37
    ,Harmonic 16 1.047 6.96
    ,Harmonic 17 (-2.989) 1.7]