Note23.hs

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

import Sharc.Types

note23 :: Note
note23 = Note
    (Pitch 493.883 59 "b4")
    24
    (Range
        (NoteRange
            (NoteRangeAmplitude 9877.66 20 71.75)
            (NoteRangeHarmonicFreq 1 493.88))
        (NoteRange
            (NoteRangeAmplitude 2963.29 6 2721.0)
            (NoteRangeHarmonicFreq 20 9877.66)))
    [Harmonic 1 (-2.137) 1702.51
    ,Harmonic 2 (-1.429) 1606.32
    ,Harmonic 3 (-1.844) 536.45
    ,Harmonic 4 (-3.051) 1264.19
    ,Harmonic 5 (-2.6) 1495.03
    ,Harmonic 6 (-0.674) 2721.0
    ,Harmonic 7 2.567 871.25
    ,Harmonic 8 (-2.267) 1118.75
    ,Harmonic 9 (-0.985) 1028.76
    ,Harmonic 10 1.998 204.06
    ,Harmonic 11 3.058 287.75
    ,Harmonic 12 (-0.562) 323.42
    ,Harmonic 13 (-2.506) 273.28
    ,Harmonic 14 2.821 134.89
    ,Harmonic 15 (-0.86) 98.45
    ,Harmonic 16 0.197 273.96
    ,Harmonic 17 (-2.464) 117.85
    ,Harmonic 18 (-1.577) 170.86
    ,Harmonic 19 1.781 123.08
    ,Harmonic 20 0.232 71.75]