Note23.hs

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

import Sharc.Types

note23 :: Note
note23 = Note
    (Pitch 739.989 66 "f#5")
    24
    (Range
        (NoteRange
            (NoteRangeAmplitude 8879.86 12 69.55)
            (NoteRangeHarmonicFreq 1 739.98))
        (NoteRange
            (NoteRangeAmplitude 1479.97 2 7101.0)
            (NoteRangeHarmonicFreq 13 9619.85)))
    [Harmonic 1 (-1.519) 2302.4
    ,Harmonic 2 (-1.917) 7101.0
    ,Harmonic 3 (-0.901) 3352.66
    ,Harmonic 4 (-0.427) 245.41
    ,Harmonic 5 2.691 1179.38
    ,Harmonic 6 2.531 109.92
    ,Harmonic 7 (-2.827) 500.75
    ,Harmonic 8 (-2.767) 295.27
    ,Harmonic 9 1.915 252.65
    ,Harmonic 10 (-1.681) 220.98
    ,Harmonic 11 2.621 141.95
    ,Harmonic 12 1.27 69.55
    ,Harmonic 13 (-1.685) 385.5]