Note27.hs

module Sharc.Instruments.Cello.Note27 (note27) where

import Sharc.Types

note27 :: Note
note27 = Note
    (Pitch 311.127 51 "d#4")
    28
    (Range
        (NoteRange
            (NoteRangeAmplitude 9333.81 30 0.64)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 2177.88 7 2066.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 0.212 473.93
    ,Harmonic 2 2.172 1712.23
    ,Harmonic 3 (-2.121) 738.92
    ,Harmonic 4 (-1.073) 480.52
    ,Harmonic 5 2.062 1607.41
    ,Harmonic 6 (-1.244) 1940.82
    ,Harmonic 7 0.88 2066.0
    ,Harmonic 8 (-0.821) 558.45
    ,Harmonic 9 2.099 86.16
    ,Harmonic 10 2.262 211.48
    ,Harmonic 11 (-1.872) 227.4
    ,Harmonic 12 (-0.888) 431.38
    ,Harmonic 13 (-2.267) 97.88
    ,Harmonic 14 2.944 33.02
    ,Harmonic 15 1.942 63.47
    ,Harmonic 16 (-1.09) 54.98
    ,Harmonic 17 0.848 67.07
    ,Harmonic 18 2.143 23.36
    ,Harmonic 19 (-0.708) 25.49
    ,Harmonic 20 (-0.245) 34.59
    ,Harmonic 21 (-9.1e-2) 16.57
    ,Harmonic 22 1.524 18.87
    ,Harmonic 23 (-2.868) 19.9
    ,Harmonic 24 0.265 20.36
    ,Harmonic 25 2.173 12.26
    ,Harmonic 26 0.919 12.51
    ,Harmonic 27 0.22 7.22
    ,Harmonic 28 (-2.686) 5.74
    ,Harmonic 29 (-2.772) 12.11
    ,Harmonic 30 2.946 0.64
    ,Harmonic 31 (-1.476) 5.64
    ,Harmonic 32 (-2.384) 6.33]