Note31.hs

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

import Sharc.Types

note31 :: Note
note31 = Note
    (Pitch 391.995 55 "g4")
    32
    (Range
        (NoteRange
            (NoteRangeAmplitude 9015.88 23 1.01)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 1 972.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 (-1.547) 972.0
    ,Harmonic 2 (-2.424) 228.85
    ,Harmonic 3 (-0.223) 238.97
    ,Harmonic 4 (-3.055) 111.99
    ,Harmonic 5 (-2.527) 110.86
    ,Harmonic 6 (-2.385) 75.43
    ,Harmonic 7 (-0.293) 47.1
    ,Harmonic 8 0.729 20.16
    ,Harmonic 9 (-0.972) 4.32
    ,Harmonic 10 0.144 8.23
    ,Harmonic 11 (-2.9) 3.57
    ,Harmonic 12 1.723 3.64
    ,Harmonic 13 (-2.405) 11.51
    ,Harmonic 14 (-2.944) 12.48
    ,Harmonic 15 (-1.126) 8.47
    ,Harmonic 16 (-0.497) 10.72
    ,Harmonic 17 0.676 9.85
    ,Harmonic 18 (-2.629) 6.19
    ,Harmonic 19 0.511 6.86
    ,Harmonic 20 (-2.688) 13.31
    ,Harmonic 21 (-1.102) 7.03
    ,Harmonic 22 (-0.461) 7.31
    ,Harmonic 23 (-2.663) 1.01
    ,Harmonic 24 0.789 5.88
    ,Harmonic 25 (-1.269) 3.53]