Note36.hs

module Sharc.Instruments.CelloPizzicato.Note36 (note36) where

import Sharc.Types

note36 :: Note
note36 = Note
    (Pitch 523.251 60 "c5")
    37
    (Range
        (NoteRange
            (NoteRangeAmplitude 8895.26 17 0.79)
            (NoteRangeHarmonicFreq 1 523.25))
        (NoteRange
            (NoteRangeAmplitude 523.25 1 4419.0)
            (NoteRangeHarmonicFreq 18 9418.51)))
    [Harmonic 1 0.872 4419.0
    ,Harmonic 2 2.142 2272.03
    ,Harmonic 3 (-2.213) 308.07
    ,Harmonic 4 1.008 375.64
    ,Harmonic 5 (-2.326) 125.29
    ,Harmonic 6 (-0.688) 6.79
    ,Harmonic 7 (-2.881) 58.66
    ,Harmonic 8 2.196 9.73
    ,Harmonic 9 (-2.39) 31.85
    ,Harmonic 10 2.306 12.42
    ,Harmonic 11 (-0.804) 8.38
    ,Harmonic 12 (-2.169) 4.76
    ,Harmonic 13 1.384 0.9
    ,Harmonic 14 (-3.059) 9.31
    ,Harmonic 15 0.833 4.94
    ,Harmonic 16 (-1.512) 3.48
    ,Harmonic 17 2.935 0.79
    ,Harmonic 18 (-2.573) 1.17]