Note31.hs

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

import Sharc.Types

note31 :: Note
note31 = Note
    (Pitch 391.995 55 "g4")
    32
    (Range
        (NoteRange
            (NoteRangeAmplitude 9799.87 25 3.02)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 1 2399.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 (-1.648) 2399.0
    ,Harmonic 2 2.494 325.29
    ,Harmonic 3 1.436 216.14
    ,Harmonic 4 (-1.338) 462.4
    ,Harmonic 5 (-5.0e-2) 760.74
    ,Harmonic 6 (-2.711) 456.77
    ,Harmonic 7 1.514 135.14
    ,Harmonic 8 (-3.097) 336.58
    ,Harmonic 9 (-1.927) 63.66
    ,Harmonic 10 (-0.105) 66.0
    ,Harmonic 11 (-0.125) 95.42
    ,Harmonic 12 (-0.975) 7.87
    ,Harmonic 13 1.521 42.12
    ,Harmonic 14 3.027 32.43
    ,Harmonic 15 0.205 20.85
    ,Harmonic 16 (-1.606) 24.92
    ,Harmonic 17 2.417 18.54
    ,Harmonic 18 0.697 8.79
    ,Harmonic 19 (-0.638) 8.98
    ,Harmonic 20 (-1.397) 13.77
    ,Harmonic 21 (-1.581) 7.16
    ,Harmonic 22 2.459 4.14
    ,Harmonic 23 1.418 5.42
    ,Harmonic 24 (-1.61) 9.09
    ,Harmonic 25 0.405 3.02]