Note26.hs

module Sharc.Instruments.CelloPizzicato.Note26 (note26) where

import Sharc.Types

note26 :: Note
note26 = Note
    (Pitch 293.665 50 "d4")
    27
    (Range
        (NoteRange
            (NoteRangeAmplitude 9690.94 33 6.0e-2)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 293.66 1 4216.0)
            (NoteRangeHarmonicFreq 33 9690.94)))
    [Harmonic 1 1.699 4216.0
    ,Harmonic 2 (-2.226) 726.68
    ,Harmonic 3 (-2.54) 23.91
    ,Harmonic 4 (-0.433) 169.67
    ,Harmonic 5 1.939 91.98
    ,Harmonic 6 1.565 80.64
    ,Harmonic 7 1.055 132.75
    ,Harmonic 8 (-2.24) 30.98
    ,Harmonic 9 (-0.733) 74.94
    ,Harmonic 10 2.389 34.6
    ,Harmonic 11 (-1.938) 42.32
    ,Harmonic 12 2.331 23.7
    ,Harmonic 13 (-1.025) 7.02
    ,Harmonic 14 (-5.1e-2) 4.1
    ,Harmonic 15 0.465 12.07
    ,Harmonic 16 (-4.0e-3) 1.1
    ,Harmonic 17 1.932 1.3
    ,Harmonic 18 0.365 0.54
    ,Harmonic 19 1.986 0.55
    ,Harmonic 20 (-0.129) 0.41
    ,Harmonic 21 (-2.558) 0.24
    ,Harmonic 22 (-1.749) 0.85
    ,Harmonic 23 1.956 0.15
    ,Harmonic 24 (-2.738) 0.35
    ,Harmonic 25 (-3.106) 0.73
    ,Harmonic 26 (-1.511) 0.42
    ,Harmonic 27 2.731 0.72
    ,Harmonic 28 (-2.529) 0.91
    ,Harmonic 29 3.001 0.52
    ,Harmonic 30 1.894 0.27
    ,Harmonic 31 0.977 0.53
    ,Harmonic 32 2.927 0.21
    ,Harmonic 33 (-0.101) 6.0e-2]