Note26.hs

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

import Sharc.Types

note26 :: Note
note26 = Note
    (Pitch 293.665 50 "d4")
    27
    (Range
        (NoteRange
            (NoteRangeAmplitude 6460.63 22 1.64)
            (NoteRangeHarmonicFreq 1 293.66))
        (NoteRange
            (NoteRangeAmplitude 293.66 1 1457.0)
            (NoteRangeHarmonicFreq 33 9690.94)))
    [Harmonic 1 2.018 1457.0
    ,Harmonic 2 2.185 1153.25
    ,Harmonic 3 (-0.419) 266.58
    ,Harmonic 4 (-0.559) 132.98
    ,Harmonic 5 (-2.39) 111.18
    ,Harmonic 6 (-3.2e-2) 1368.01
    ,Harmonic 7 (-8.7e-2) 614.46
    ,Harmonic 8 (-0.896) 128.89
    ,Harmonic 9 (-2.786) 11.59
    ,Harmonic 10 2.765 698.65
    ,Harmonic 11 1.091 354.79
    ,Harmonic 12 (-2.297) 56.02
    ,Harmonic 13 (-0.144) 73.49
    ,Harmonic 14 (-1.276) 124.04
    ,Harmonic 15 (-2.212) 88.55
    ,Harmonic 16 0.527 9.62
    ,Harmonic 17 (-0.729) 51.94
    ,Harmonic 18 (-1.7) 58.88
    ,Harmonic 19 0.666 25.81
    ,Harmonic 20 (-1.357) 10.67
    ,Harmonic 21 2.252 58.1
    ,Harmonic 22 (-2.947) 1.64
    ,Harmonic 23 (-1.09) 34.29
    ,Harmonic 24 (-0.354) 13.27
    ,Harmonic 25 (-2.717) 19.44
    ,Harmonic 26 (-0.953) 16.59
    ,Harmonic 27 (-1.126) 17.04
    ,Harmonic 28 (-2.774) 24.41
    ,Harmonic 29 (-2.001) 16.46
    ,Harmonic 30 0.392 18.07
    ,Harmonic 31 0.931 20.42
    ,Harmonic 32 1.587 10.15
    ,Harmonic 33 1.896 8.45]