Note23.hs

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

import Sharc.Types

note23 :: Note
note23 = Note
    (Pitch 493.883 59 "b4")
    24
    (Range
        (NoteRange
            (NoteRangeAmplitude 8396.01 17 0.36)
            (NoteRangeHarmonicFreq 1 493.88))
        (NoteRange
            (NoteRangeAmplitude 493.88 1 5070.0)
            (NoteRangeHarmonicFreq 20 9877.66)))
    [Harmonic 1 (-1.457) 5070.0
    ,Harmonic 2 (-1.963) 879.54
    ,Harmonic 3 1.07 253.46
    ,Harmonic 4 (-2.937) 471.65
    ,Harmonic 5 (-1.935) 1194.75
    ,Harmonic 6 (-1.249) 42.82
    ,Harmonic 7 2.261 181.05
    ,Harmonic 8 (-1.082) 117.36
    ,Harmonic 9 (-1.959) 37.22
    ,Harmonic 10 (-1.113) 12.05
    ,Harmonic 11 2.826 15.15
    ,Harmonic 12 (-0.136) 6.68
    ,Harmonic 13 (-0.656) 4.36
    ,Harmonic 14 (-0.867) 0.58
    ,Harmonic 15 (-1.094) 1.81
    ,Harmonic 16 5.8e-2 1.46
    ,Harmonic 17 1.524 0.36
    ,Harmonic 18 (-0.746) 2.21
    ,Harmonic 19 7.0e-3 1.3
    ,Harmonic 20 (-0.366) 1.69]