Note25.hs

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

import Sharc.Types

note25 :: Note
note25 = Note
    (Pitch 277.183 49 "c#4")
    26
    (Range
        (NoteRange
            (NoteRangeAmplitude 8315.49 30 1.39)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 277.18 1 4794.0)
            (NoteRangeHarmonicFreq 35 9701.4)))
    [Harmonic 1 (-1.756) 4794.0
    ,Harmonic 2 (-1.976) 700.23
    ,Harmonic 3 1.763 461.26
    ,Harmonic 4 (-0.999) 1555.08
    ,Harmonic 5 2.334 1063.25
    ,Harmonic 6 (-2.339) 657.98
    ,Harmonic 7 (-0.333) 858.6
    ,Harmonic 8 (-2.352) 356.46
    ,Harmonic 9 (-1.671) 211.69
    ,Harmonic 10 1.473 65.89
    ,Harmonic 11 1.332 357.6
    ,Harmonic 12 1.278 191.03
    ,Harmonic 13 1.521 50.82
    ,Harmonic 14 (-2.202) 36.63
    ,Harmonic 15 3.049 42.96
    ,Harmonic 16 2.669 45.11
    ,Harmonic 17 1.916 16.69
    ,Harmonic 18 (-0.812) 18.54
    ,Harmonic 19 (-1.172) 33.11
    ,Harmonic 20 2.558 7.28
    ,Harmonic 21 (-2.52) 16.36
    ,Harmonic 22 2.072 8.5
    ,Harmonic 23 (-0.288) 6.6
    ,Harmonic 24 1.042 13.38
    ,Harmonic 25 2.756 10.23
    ,Harmonic 26 1.051 4.9
    ,Harmonic 27 2.082 2.79
    ,Harmonic 28 (-2.351) 7.6
    ,Harmonic 29 (-2.774) 6.84
    ,Harmonic 30 (-0.401) 1.39
    ,Harmonic 31 1.509 1.44
    ,Harmonic 32 1.277 4.89
    ,Harmonic 33 0.139 2.83
    ,Harmonic 34 1.229 1.74
    ,Harmonic 35 0.231 2.85]