Note25.hs

module Sharc.Instruments.Cello.Note25 (note25) where

import Sharc.Types

note25 :: Note
note25 = Note
    (Pitch 277.183 49 "c#4")
    26
    (Range
        (NoteRange
            (NoteRangeAmplitude 9701.4 35 1.81)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 277.18 1 3195.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 2.221 3195.0
    ,Harmonic 2 0.721 1047.01
    ,Harmonic 3 2.513 108.47
    ,Harmonic 4 (-1.583) 1282.24
    ,Harmonic 5 (-0.639) 1793.06
    ,Harmonic 6 (-1.81) 2460.98
    ,Harmonic 7 (-2.551) 502.93
    ,Harmonic 8 1.593 529.34
    ,Harmonic 9 1.05 346.45
    ,Harmonic 10 1.417 239.94
    ,Harmonic 11 2.271 45.51
    ,Harmonic 12 (-2.051) 314.25
    ,Harmonic 13 2.0e-3 434.53
    ,Harmonic 14 (-3.081) 150.56
    ,Harmonic 15 0.945 130.95
    ,Harmonic 16 (-0.636) 35.07
    ,Harmonic 17 (-2.181) 29.22
    ,Harmonic 18 (-0.183) 51.39
    ,Harmonic 19 2.937 50.33
    ,Harmonic 20 (-0.477) 2.72
    ,Harmonic 21 2.495 35.28
    ,Harmonic 22 2.159 17.87
    ,Harmonic 23 0.732 39.06
    ,Harmonic 24 2.554 12.34
    ,Harmonic 25 2.177 29.69
    ,Harmonic 26 (-2.075) 7.08
    ,Harmonic 27 (-2.087) 10.65
    ,Harmonic 28 (-0.34) 15.88
    ,Harmonic 29 7.8e-2 11.06
    ,Harmonic 30 (-1.803) 2.82
    ,Harmonic 31 0.381 4.05
    ,Harmonic 32 (-2.236) 9.97
    ,Harmonic 33 (-1.771) 8.56
    ,Harmonic 34 (-1.497) 4.37
    ,Harmonic 35 1.491 1.81
    ,Harmonic 36 (-0.953) 6.68]