Note22.hs

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

import Sharc.Types

note22 :: Note
note22 = Note
    (Pitch 466.164 58 "a#4")
    23
    (Range
        (NoteRange
            (NoteRangeAmplitude 8390.95 18 4.0e-2)
            (NoteRangeHarmonicFreq 1 466.16))
        (NoteRange
            (NoteRangeAmplitude 466.16 1 4958.0)
            (NoteRangeHarmonicFreq 21 9789.44)))
    [Harmonic 1 (-1.516) 4958.0
    ,Harmonic 2 (-2.856) 1252.02
    ,Harmonic 3 (-0.76) 200.44
    ,Harmonic 4 1.06 567.21
    ,Harmonic 5 0.716 280.68
    ,Harmonic 6 0.686 17.38
    ,Harmonic 7 (-1.949) 31.91
    ,Harmonic 8 (-1.778) 6.68
    ,Harmonic 9 (-1.692) 20.56
    ,Harmonic 10 1.976 17.72
    ,Harmonic 11 2.176 4.13
    ,Harmonic 12 (-3.105) 6.38
    ,Harmonic 13 1.988 5.54
    ,Harmonic 14 1.394 1.26
    ,Harmonic 15 0.754 0.21
    ,Harmonic 16 2.451 0.58
    ,Harmonic 17 2.987 0.57
    ,Harmonic 18 (-1.461) 4.0e-2
    ,Harmonic 19 2.435 0.39
    ,Harmonic 20 5.0e-3 0.52
    ,Harmonic 21 0.434 0.43]