Note26.hs

module Sharc.Instruments.CelloMarteleBowing.Note26 (note26) where

import Sharc.Types

note26 :: Note
note26 = Note
    (Pitch 293.665 50 "d4")
    27
    (Range
        (NoteRange
            (NoteRangeAmplitude 8809.95 30 1.36)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 293.66 1 2829.0)
            (NoteRangeHarmonicFreq 32 9397.28)))
    [Harmonic 1 1.833 2829.0
    ,Harmonic 2 1.216 1993.37
    ,Harmonic 3 (-2.623) 132.77
    ,Harmonic 4 (-2.21) 667.4
    ,Harmonic 5 (-2.295) 868.84
    ,Harmonic 6 1.378 415.4
    ,Harmonic 7 2.712 475.48
    ,Harmonic 8 (-2.458) 43.57
    ,Harmonic 9 0.115 34.36
    ,Harmonic 10 (-3.004) 124.88
    ,Harmonic 11 (-0.36) 27.3
    ,Harmonic 12 0.225 22.4
    ,Harmonic 13 1.885 3.96
    ,Harmonic 14 (-0.731) 9.52
    ,Harmonic 15 1.791 16.0
    ,Harmonic 16 0.573 8.05
    ,Harmonic 17 (-2.974) 32.5
    ,Harmonic 18 0.172 7.38
    ,Harmonic 19 2.085 28.66
    ,Harmonic 20 (-0.646) 75.07
    ,Harmonic 21 (-0.75) 78.76
    ,Harmonic 22 (-0.201) 36.53
    ,Harmonic 23 0.318 61.96
    ,Harmonic 24 1.146 23.51
    ,Harmonic 25 (-3.122) 8.53
    ,Harmonic 26 (-2.708) 36.76
    ,Harmonic 27 2.464 32.91
    ,Harmonic 28 0.42 3.56
    ,Harmonic 29 1.156 29.92
    ,Harmonic 30 (-0.59) 1.36
    ,Harmonic 31 (-2.317) 5.24
    ,Harmonic 32 2.844 11.28]