Note28.hs

module Sharc.Instruments.Cello.Note28 (note28) where

import Sharc.Types

note28 :: Note
note28 = Note
    (Pitch 329.628 52 "e4")
    29
    (Range
        (NoteRange
            (NoteRangeAmplitude 9229.58 28 3.55)
            (NoteRangeHarmonicFreq 1 329.62))
        (NoteRange
            (NoteRangeAmplitude 1648.14 5 2175.0)
            (NoteRangeHarmonicFreq 30 9888.84)))
    [Harmonic 1 (-2.22) 1152.64
    ,Harmonic 2 1.475 1731.53
    ,Harmonic 3 3.03 829.33
    ,Harmonic 4 1.027 1656.36
    ,Harmonic 5 0.127 2175.0
    ,Harmonic 6 3.069 865.63
    ,Harmonic 7 1.632 341.55
    ,Harmonic 8 (-0.187) 469.6
    ,Harmonic 9 2.213 406.02
    ,Harmonic 10 1.063 397.3
    ,Harmonic 11 3.131 534.41
    ,Harmonic 12 2.161 107.99
    ,Harmonic 13 0.795 124.94
    ,Harmonic 14 2.116 34.27
    ,Harmonic 15 (-7.0e-2) 169.1
    ,Harmonic 16 (-2.835) 120.32
    ,Harmonic 17 (-2.167) 15.99
    ,Harmonic 18 2.998 31.64
    ,Harmonic 19 (-1.81) 80.66
    ,Harmonic 20 2.3e-2 82.13
    ,Harmonic 21 1.899 75.3
    ,Harmonic 22 1.781 5.31
    ,Harmonic 23 1.691 22.89
    ,Harmonic 24 (-1.794) 56.55
    ,Harmonic 25 (-3.063) 44.67
    ,Harmonic 26 (-2.734) 41.11
    ,Harmonic 27 1.284 32.2
    ,Harmonic 28 (-2.505) 3.55
    ,Harmonic 29 (-1.876) 17.16
    ,Harmonic 30 1.571 43.79]