Note25.hs

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

import Sharc.Types

note25 :: Note
note25 = Note
    (Pitch 277.183 49 "c#4")
    26
    (Range
        (NoteRange
            (NoteRangeAmplitude 8869.85 32 1.35)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 277.18 1 1244.0)
            (NoteRangeHarmonicFreq 36 9978.58)))
    [Harmonic 1 (-1.496) 1244.0
    ,Harmonic 2 5.9e-2 193.14
    ,Harmonic 3 2.341 124.94
    ,Harmonic 4 2.913 164.72
    ,Harmonic 5 (-0.174) 231.28
    ,Harmonic 6 (-1.371) 70.23
    ,Harmonic 7 2.781 50.01
    ,Harmonic 8 (-2.348) 98.49
    ,Harmonic 9 2.881 59.71
    ,Harmonic 10 (-2.446) 31.74
    ,Harmonic 11 (-0.24) 5.02
    ,Harmonic 12 2.461 28.88
    ,Harmonic 13 (-0.179) 19.33
    ,Harmonic 14 8.6e-2 5.88
    ,Harmonic 15 (-0.848) 18.61
    ,Harmonic 16 (-1.008) 15.85
    ,Harmonic 17 0.955 37.74
    ,Harmonic 18 0.448 16.29
    ,Harmonic 19 (-3.048) 20.2
    ,Harmonic 20 2.807 8.14
    ,Harmonic 21 0.714 9.12
    ,Harmonic 22 (-2.787) 14.58
    ,Harmonic 23 1.594 5.15
    ,Harmonic 24 3.008 13.34
    ,Harmonic 25 (-2.534) 14.24
    ,Harmonic 26 0.257 7.23
    ,Harmonic 27 3.073 5.83
    ,Harmonic 28 0.977 2.29
    ,Harmonic 29 3.029 3.55
    ,Harmonic 30 2.504 12.52
    ,Harmonic 31 2.381 12.04
    ,Harmonic 32 (-1.366) 1.35
    ,Harmonic 33 (-2.421) 6.25
    ,Harmonic 34 2.905 6.88
    ,Harmonic 35 2.881 5.56
    ,Harmonic 36 1.632 3.38]