Note31.hs

module Sharc.Instruments.CelloMarteleBowing.Note31 (note31) where

import Sharc.Types

note31 :: Note
note31 = Note
    (Pitch 391.995 55 "g4")
    32
    (Range
        (NoteRange
            (NoteRangeAmplitude 9799.87 25 2.06)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 1 3264.0)
            (NoteRangeHarmonicFreq 27 10583.86)))
    [Harmonic 1 1.274 3264.0
    ,Harmonic 2 (-1.951) 125.0
    ,Harmonic 3 0.108 565.06
    ,Harmonic 4 (-1.264) 736.87
    ,Harmonic 5 1.426 466.77
    ,Harmonic 6 (-1.049) 203.08
    ,Harmonic 7 (-2.281) 13.61
    ,Harmonic 8 1.029 73.74
    ,Harmonic 9 1.783 3.82
    ,Harmonic 10 (-1.44) 44.61
    ,Harmonic 11 0.509 16.31
    ,Harmonic 12 2.364 49.15
    ,Harmonic 13 0.276 8.02
    ,Harmonic 14 2.801 40.37
    ,Harmonic 15 1.693 16.65
    ,Harmonic 16 (-0.706) 62.14
    ,Harmonic 17 2.228 20.02
    ,Harmonic 18 (-0.519) 22.43
    ,Harmonic 19 (-1.147) 50.2
    ,Harmonic 20 (-2.188) 6.63
    ,Harmonic 21 0.221 41.48
    ,Harmonic 22 0.818 52.51
    ,Harmonic 23 1.674 13.45
    ,Harmonic 24 0.377 6.16
    ,Harmonic 25 (-0.865) 2.06
    ,Harmonic 26 (-2.865) 2.91
    ,Harmonic 27 3.11 4.28]