Note15.hs

module Sharc.Instruments.ViolaPizzicato.Note15 (note15) where

import Sharc.Types

note15 :: Note
note15 = Note
    (Pitch 311.127 51 "d#4")
    16
    (Range
        (NoteRange
            (NoteRangeAmplitude 8089.3 26 0.21)
            (NoteRangeHarmonicFreq 1 311.12))
        (NoteRange
            (NoteRangeAmplitude 311.12 1 6253.0)
            (NoteRangeHarmonicFreq 32 9956.06)))
    [Harmonic 1 1.476 6253.0
    ,Harmonic 2 (-0.877) 1057.23
    ,Harmonic 3 (-2.841) 260.2
    ,Harmonic 4 (-2.878) 206.73
    ,Harmonic 5 1.563 175.83
    ,Harmonic 6 1.03 192.77
    ,Harmonic 7 3.2e-2 44.77
    ,Harmonic 8 (-2.367) 136.09
    ,Harmonic 9 (-2.551) 29.51
    ,Harmonic 10 (-2.7) 19.4
    ,Harmonic 11 1.557 6.88
    ,Harmonic 12 (-1.667) 13.76
    ,Harmonic 13 (-1.313) 2.65
    ,Harmonic 14 (-2.137) 3.01
    ,Harmonic 15 (-1.758) 4.18
    ,Harmonic 16 (-0.943) 0.7
    ,Harmonic 17 2.706 1.49
    ,Harmonic 18 (-1.641) 1.91
    ,Harmonic 19 2.736 2.16
    ,Harmonic 20 1.28 1.03
    ,Harmonic 21 (-1.006) 0.85
    ,Harmonic 22 (-2.71) 2.11
    ,Harmonic 23 (-2.831) 1.35
    ,Harmonic 24 (-2.578) 1.39
    ,Harmonic 25 0.733 0.85
    ,Harmonic 26 3.106 0.21
    ,Harmonic 27 (-2.237) 0.67
    ,Harmonic 28 3.023 1.45
    ,Harmonic 29 (-1.695) 0.36
    ,Harmonic 30 3.067 1.49
    ,Harmonic 31 2.89 0.65
    ,Harmonic 32 2.158 0.39]