Note25.hs

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

import Sharc.Types

note25 :: Note
note25 = Note
    (Pitch 277.183 49 "c#4")
    26
    (Range
        (NoteRange
            (NoteRangeAmplitude 9424.22 34 0.13)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 277.18 1 3303.0)
            (NoteRangeHarmonicFreq 35 9701.4)))
    [Harmonic 1 1.632 3303.0
    ,Harmonic 2 2.688 243.42
    ,Harmonic 3 1.276 28.74
    ,Harmonic 4 (-1.743) 71.0
    ,Harmonic 5 1.148 64.48
    ,Harmonic 6 (-0.788) 31.41
    ,Harmonic 7 0.361 15.57
    ,Harmonic 8 (-1.933) 51.64
    ,Harmonic 9 (-2.373) 5.85
    ,Harmonic 10 (-0.261) 30.49
    ,Harmonic 11 0.6 13.6
    ,Harmonic 12 2.59 8.96
    ,Harmonic 13 (-1.087) 2.7
    ,Harmonic 14 2.146 0.73
    ,Harmonic 15 (-0.679) 0.33
    ,Harmonic 16 (-2.841) 0.42
    ,Harmonic 17 (-2.826) 0.71
    ,Harmonic 18 (-2.956) 0.16
    ,Harmonic 19 2.62 0.18
    ,Harmonic 20 (-2.398) 0.69
    ,Harmonic 21 2.768 0.21
    ,Harmonic 22 (-0.929) 0.31
    ,Harmonic 23 (-2.88) 0.26
    ,Harmonic 24 0.0 0.24
    ,Harmonic 25 (-2.779) 0.21
    ,Harmonic 26 1.856 0.35
    ,Harmonic 27 1.688 0.36
    ,Harmonic 28 (-0.924) 0.51
    ,Harmonic 29 (-1.374) 0.3
    ,Harmonic 30 0.262 0.19
    ,Harmonic 31 1.854 0.18
    ,Harmonic 32 (-1.735) 0.34
    ,Harmonic 33 1.62 0.41
    ,Harmonic 34 0.938 0.13
    ,Harmonic 35 0.112 0.24]