Note22.hs

module Sharc.Instruments.ViolaMarteleBowing.Note22 (note22) where

import Sharc.Types

note22 :: Note
note22 = Note
    (Pitch 493.883 59 "b4")
    23
    (Range
        (NoteRange
            (NoteRangeAmplitude 9877.66 20 24.35)
            (NoteRangeHarmonicFreq 1 493.88))
        (NoteRange
            (NoteRangeAmplitude 1975.53 4 8357.0)
            (NoteRangeHarmonicFreq 20 9877.66)))
    [Harmonic 1 2.234 1365.44
    ,Harmonic 2 2.222 1680.93
    ,Harmonic 3 1.089 7837.27
    ,Harmonic 4 0.83 8357.0
    ,Harmonic 5 1.248 2779.18
    ,Harmonic 6 1.124 956.93
    ,Harmonic 7 0.594 4236.85
    ,Harmonic 8 (-2.481) 43.88
    ,Harmonic 9 2.2 964.44
    ,Harmonic 10 2.181 69.54
    ,Harmonic 11 (-2.609) 90.6
    ,Harmonic 12 2.36 239.35
    ,Harmonic 13 (-1.743) 450.6
    ,Harmonic 14 1.527 407.8
    ,Harmonic 15 (-2.921) 68.16
    ,Harmonic 16 (-0.283) 85.02
    ,Harmonic 17 (-0.139) 202.1
    ,Harmonic 18 1.351 33.24
    ,Harmonic 19 2.908 102.65
    ,Harmonic 20 (-0.918) 24.35]