Note37.hs

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

import Sharc.Types

note37 :: Note
note37 = Note
    (Pitch 554.365 61 "c#5")
    38
    (Range
        (NoteRange
            (NoteRangeAmplitude 7761.11 14 22.3)
            (NoteRangeHarmonicFreq 1 554.36))
        (NoteRange
            (NoteRangeAmplitude 1663.09 3 3350.0)
            (NoteRangeHarmonicFreq 17 9424.2)))
    [Harmonic 1 2.099 1646.09
    ,Harmonic 2 0.118 2485.5
    ,Harmonic 3 1.788 3350.0
    ,Harmonic 4 (-0.368) 740.1
    ,Harmonic 5 3.011 774.89
    ,Harmonic 6 0.687 649.63
    ,Harmonic 7 0.576 86.36
    ,Harmonic 8 (-1.155) 145.53
    ,Harmonic 9 (-0.395) 113.21
    ,Harmonic 10 (-1.452) 86.22
    ,Harmonic 11 (-2.603) 93.22
    ,Harmonic 12 0.554 105.84
    ,Harmonic 13 (-2.968) 33.33
    ,Harmonic 14 0.726 22.3
    ,Harmonic 15 (-1.823) 33.7
    ,Harmonic 16 1.42 40.19
    ,Harmonic 17 (-1.926) 27.16]