Note36.hs

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

import Sharc.Types

note36 :: Note
note36 = Note
    (Pitch 523.251 60 "c5")
    37
    (Range
        (NoteRange
            (NoteRangeAmplitude 9941.76 19 10.37)
            (NoteRangeHarmonicFreq 1 523.25))
        (NoteRange
            (NoteRangeAmplitude 1046.5 2 3121.0)
            (NoteRangeHarmonicFreq 19 9941.76)))
    [Harmonic 1 (-2.777) 2746.71
    ,Harmonic 2 0.998 3121.0
    ,Harmonic 3 (-1.762) 2395.63
    ,Harmonic 4 (-1.839) 1196.96
    ,Harmonic 5 1.202 283.49
    ,Harmonic 6 (-1.494) 773.55
    ,Harmonic 7 (-1.79) 97.23
    ,Harmonic 8 1.856 78.08
    ,Harmonic 9 (-2.363) 39.1
    ,Harmonic 10 0.938 61.12
    ,Harmonic 11 (-2.637) 67.96
    ,Harmonic 12 (-2.775) 27.03
    ,Harmonic 13 (-2.732) 42.32
    ,Harmonic 14 0.213 52.03
    ,Harmonic 15 0.79 19.3
    ,Harmonic 16 1.131 14.3
    ,Harmonic 17 0.482 14.11
    ,Harmonic 18 (-2.108) 61.24
    ,Harmonic 19 2.262 10.37]