Note23.hs

module Sharc.Instruments.CelloMuted.Note23 (note23) where

import Sharc.Types

note23 :: Note
note23 = Note
    (Pitch 246.942 47 "b3")
    24
    (Range
        (NoteRange
            (NoteRangeAmplitude 9630.73 39 2.57)
            (NoteRangeHarmonicFreq 1 246.94))
        (NoteRange
            (NoteRangeAmplitude 246.94 1 1456.0)
            (NoteRangeHarmonicFreq 40 9877.68)))
    [Harmonic 1 (-2.121) 1456.0
    ,Harmonic 2 1.323 1424.19
    ,Harmonic 3 (-1.264) 139.79
    ,Harmonic 4 (-0.939) 95.59
    ,Harmonic 5 (-0.769) 537.39
    ,Harmonic 6 2.915 63.88
    ,Harmonic 7 (-0.386) 214.49
    ,Harmonic 8 (-3.102) 105.61
    ,Harmonic 9 (-1.444) 95.26
    ,Harmonic 10 1.503 5.72
    ,Harmonic 11 (-1.045) 29.93
    ,Harmonic 12 (-1.719) 27.52
    ,Harmonic 13 2.204 58.42
    ,Harmonic 14 (-0.687) 67.35
    ,Harmonic 15 2.32 45.68
    ,Harmonic 16 1.549 12.42
    ,Harmonic 17 (-1.8) 19.51
    ,Harmonic 18 1.438 27.7
    ,Harmonic 19 1.193 7.62
    ,Harmonic 20 2.571 4.49
    ,Harmonic 21 (-0.156) 29.67
    ,Harmonic 22 (-2.732) 21.12
    ,Harmonic 23 1.15 17.12
    ,Harmonic 24 2.213 8.37
    ,Harmonic 25 2.753 19.95
    ,Harmonic 26 2.756 6.51
    ,Harmonic 27 1.13 8.04
    ,Harmonic 28 2.418 5.34
    ,Harmonic 29 (-2.224) 9.15
    ,Harmonic 30 0.861 16.84
    ,Harmonic 31 (-0.162) 20.46
    ,Harmonic 32 (-1.501) 19.41
    ,Harmonic 33 (-2.501) 15.79
    ,Harmonic 34 2.246 3.23
    ,Harmonic 35 (-0.854) 4.17
    ,Harmonic 36 (-1.976) 8.56
    ,Harmonic 37 (-2.922) 6.85
    ,Harmonic 38 1.861 9.01
    ,Harmonic 39 (-2.578) 2.57
    ,Harmonic 40 2.69 6.52]