Note28.hs

module Sharc.Instruments.CelloMarteleBowing.Note28 (note28) where

import Sharc.Types

note28 :: Note
note28 = Note
    (Pitch 329.628 52 "e4")
    29
    (Range
        (NoteRange
            (NoteRangeAmplitude 6922.18 21 6.5)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 659.25 2 4847.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 0.825 1196.59
    ,Harmonic 2 1.786 4847.0
    ,Harmonic 3 2.488 2252.57
    ,Harmonic 4 1.189 2327.88
    ,Harmonic 5 7.3e-2 3884.78
    ,Harmonic 6 3.06 1232.2
    ,Harmonic 7 (-1.192) 763.61
    ,Harmonic 8 0.151 456.45
    ,Harmonic 9 1.874 338.4
    ,Harmonic 10 1.001 568.88
    ,Harmonic 11 (-3.106) 633.17
    ,Harmonic 12 1.219 317.96
    ,Harmonic 13 0.978 344.2
    ,Harmonic 14 1.312 107.78
    ,Harmonic 15 0.326 100.83
    ,Harmonic 16 1.537 212.85
    ,Harmonic 17 1.32 46.0
    ,Harmonic 18 (-0.988) 13.89
    ,Harmonic 19 (-2.351) 22.34
    ,Harmonic 20 (-2.166) 15.26
    ,Harmonic 21 (-2.155) 6.5
    ,Harmonic 22 0.594 44.7
    ,Harmonic 23 0.247 48.2
    ,Harmonic 24 2.47 58.86
    ,Harmonic 25 (-1.3e-2) 56.65
    ,Harmonic 26 0.148 9.43
    ,Harmonic 27 (-1.205) 36.59
    ,Harmonic 28 0.33 34.04
    ,Harmonic 29 (-2.579) 9.01
    ,Harmonic 30 2.115 34.55]