Note24.hs

module Sharc.Instruments.CelloMarteleBowing.Note24 (note24) where

import Sharc.Types

note24 :: Note
note24 = Note
    (Pitch 261.626 48 "c4")
    25
    (Range
        (NoteRange
            (NoteRangeAmplitude 7325.52 28 3.32)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 261.62 1 3260.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 (-2.396) 3260.0
    ,Harmonic 2 (-0.84) 792.83
    ,Harmonic 3 (-3.046) 444.52
    ,Harmonic 4 0.554 878.4
    ,Harmonic 5 (-1.163) 635.02
    ,Harmonic 6 (-1.088) 1111.22
    ,Harmonic 7 (-1.486) 1722.98
    ,Harmonic 8 (-3.5e-2) 519.39
    ,Harmonic 9 1.879 355.94
    ,Harmonic 10 (-2.602) 253.05
    ,Harmonic 11 (-0.824) 356.44
    ,Harmonic 12 1.701 736.84
    ,Harmonic 13 (-0.951) 312.39
    ,Harmonic 14 (-2.601) 447.24
    ,Harmonic 15 (-2.332) 208.57
    ,Harmonic 16 2.423 215.63
    ,Harmonic 17 (-0.678) 82.83
    ,Harmonic 18 (-0.673) 31.36
    ,Harmonic 19 4.7e-2 37.71
    ,Harmonic 20 1.139 91.06
    ,Harmonic 21 2.884 81.12
    ,Harmonic 22 (-0.414) 67.66
    ,Harmonic 23 1.781 9.34
    ,Harmonic 24 (-1.217) 72.42
    ,Harmonic 25 0.551 71.82
    ,Harmonic 26 (-2.056) 44.29
    ,Harmonic 27 0.46 35.85
    ,Harmonic 28 1.673 3.32
    ,Harmonic 29 1.908 18.32
    ,Harmonic 30 (-1.279) 40.05
    ,Harmonic 31 0.448 20.64
    ,Harmonic 32 (-1.53) 10.67
    ,Harmonic 33 (-0.723) 8.67
    ,Harmonic 34 2.901 17.45
    ,Harmonic 35 0.749 16.95
    ,Harmonic 36 2.538 12.12
    ,Harmonic 37 (-1.578) 9.56
    ,Harmonic 38 0.843 22.19]