Note24.hs

module Sharc.Instruments.CelloMuted.Note24 (note24) where

import Sharc.Types

note24 :: Note
note24 = Note
    (Pitch 261.626 48 "c4")
    25
    (Range
        (NoteRange
            (NoteRangeAmplitude 6540.65 25 1.53)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 261.62 1 741.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 (-1.886) 741.0
    ,Harmonic 2 (-0.397) 99.75
    ,Harmonic 3 (-1.504) 192.72
    ,Harmonic 4 2.913 149.83
    ,Harmonic 5 3.2e-2 201.41
    ,Harmonic 6 (-0.418) 94.54
    ,Harmonic 7 (-0.608) 3.73
    ,Harmonic 8 (-1.395) 95.59
    ,Harmonic 9 (-0.695) 51.6
    ,Harmonic 10 2.367 22.75
    ,Harmonic 11 0.731 31.42
    ,Harmonic 12 (-2.896) 11.01
    ,Harmonic 13 (-1.163) 30.28
    ,Harmonic 14 (-2.934) 21.05
    ,Harmonic 15 2.993 13.76
    ,Harmonic 16 (-1.421) 19.12
    ,Harmonic 17 2.279 3.88
    ,Harmonic 18 (-2.838) 22.11
    ,Harmonic 19 2.059 6.29
    ,Harmonic 20 (-2.989) 6.54
    ,Harmonic 21 3.079 14.61
    ,Harmonic 22 (-1.745) 4.77
    ,Harmonic 23 (-0.385) 14.56
    ,Harmonic 24 0.918 2.94
    ,Harmonic 25 1.362 1.53
    ,Harmonic 26 2.562 3.19
    ,Harmonic 27 (-2.741) 7.45
    ,Harmonic 28 2.128 4.43
    ,Harmonic 29 2.32 4.24
    ,Harmonic 30 (-1.374) 2.69
    ,Harmonic 31 0.446 5.41
    ,Harmonic 32 2.0e-2 5.25
    ,Harmonic 33 1.198 4.3
    ,Harmonic 34 2.72 3.14
    ,Harmonic 35 (-1.695) 2.33
    ,Harmonic 36 (-2.599) 5.4
    ,Harmonic 37 (-1.17) 4.15
    ,Harmonic 38 0.375 3.59]