Note31.hs

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

import Sharc.Types

note31 :: Note
note31 = Note
    (Pitch 391.995 55 "g4")
    32
    (Range
        (NoteRange
            (NoteRangeAmplitude 6663.91 17 6.0e-2)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 1 672.0)
            (NoteRangeHarmonicFreq 24 9407.88)))
    [Harmonic 1 1.376 672.0
    ,Harmonic 2 2.839 42.19
    ,Harmonic 3 1.348 53.81
    ,Harmonic 4 (-2.048) 73.18
    ,Harmonic 5 0.357 24.35
    ,Harmonic 6 (-0.323) 33.38
    ,Harmonic 7 1.347 6.69
    ,Harmonic 8 (-0.235) 14.83
    ,Harmonic 9 (-1.978) 11.18
    ,Harmonic 10 2.535 1.58
    ,Harmonic 11 (-1.507) 4.49
    ,Harmonic 12 (-2.597) 1.09
    ,Harmonic 13 1.135 2.3
    ,Harmonic 14 0.318 0.75
    ,Harmonic 15 (-2.972) 0.45
    ,Harmonic 16 (-1.46) 0.2
    ,Harmonic 17 (-1.074) 6.0e-2
    ,Harmonic 18 (-1.752) 0.68
    ,Harmonic 19 (-1.833) 8.0e-2
    ,Harmonic 20 0.83 0.62
    ,Harmonic 21 0.909 0.29
    ,Harmonic 22 (-2.449) 0.58
    ,Harmonic 23 2.372 0.62
    ,Harmonic 24 (-2.655) 0.48]