Note34.hs

module Sharc.Instruments.CelloPizzicato.Note34 (note34) where

import Sharc.Types

note34 :: Note
note34 = Note
    (Pitch 466.164 58 "a#4")
    35
    (Range
        (NoteRange
            (NoteRangeAmplitude 8857.11 19 6.0e-2)
            (NoteRangeHarmonicFreq 1 466.16))
        (NoteRange
            (NoteRangeAmplitude 466.16 1 4797.0)
            (NoteRangeHarmonicFreq 21 9789.44)))
    [Harmonic 1 (-1.707) 4797.0
    ,Harmonic 2 (-0.119) 164.87
    ,Harmonic 3 (-1.875) 80.64
    ,Harmonic 4 (-2.409) 18.09
    ,Harmonic 5 3.088 17.77
    ,Harmonic 6 1.869 6.4
    ,Harmonic 7 (-2.531) 9.67
    ,Harmonic 8 (-1.428) 4.13
    ,Harmonic 9 (-0.523) 0.74
    ,Harmonic 10 (-2.2) 1.98
    ,Harmonic 11 (-0.888) 1.53
    ,Harmonic 12 (-0.577) 0.43
    ,Harmonic 13 (-2.267) 0.4
    ,Harmonic 14 0.522 0.34
    ,Harmonic 15 1.833 0.8
    ,Harmonic 16 0.674 0.21
    ,Harmonic 17 (-1.568) 1.06
    ,Harmonic 18 0.895 0.65
    ,Harmonic 19 (-0.852) 6.0e-2
    ,Harmonic 20 1.485 7.0e-2
    ,Harmonic 21 0.235 0.41]