Note13.hs

module Sharc.Instruments.ViolaPizzicato.Note13 (note13) where

import Sharc.Types

note13 :: Note
note13 = Note
    (Pitch 277.183 49 "c#4")
    14
    (Range
        (NoteRange
            (NoteRangeAmplitude 9701.4 35 0.22)
            (NoteRangeHarmonicFreq 1 277.18))
        (NoteRange
            (NoteRangeAmplitude 277.18 1 3981.0)
            (NoteRangeHarmonicFreq 35 9701.4)))
    [Harmonic 1 1.911 3981.0
    ,Harmonic 2 0.379 1017.5
    ,Harmonic 3 (-1.597) 307.79
    ,Harmonic 4 (-1.662) 378.06
    ,Harmonic 5 1.229 147.82
    ,Harmonic 6 0.741 148.93
    ,Harmonic 7 (-0.792) 101.9
    ,Harmonic 8 0.272 31.0
    ,Harmonic 9 (-2.969) 22.99
    ,Harmonic 10 0.226 23.84
    ,Harmonic 11 1.208 7.17
    ,Harmonic 12 (-2.201) 0.52
    ,Harmonic 13 (-3.058) 5.59
    ,Harmonic 14 (-0.409) 2.35
    ,Harmonic 15 0.216 5.0
    ,Harmonic 16 2.301 1.48
    ,Harmonic 17 (-2.97) 2.8
    ,Harmonic 18 0.471 1.67
    ,Harmonic 19 2.577 3.79
    ,Harmonic 20 (-0.334) 3.08
    ,Harmonic 21 2.922 0.64
    ,Harmonic 22 (-0.887) 0.33
    ,Harmonic 23 (-2.197) 1.7
    ,Harmonic 24 (-2.076) 1.23
    ,Harmonic 25 1.643 2.02
    ,Harmonic 26 (-2.616) 1.22
    ,Harmonic 27 1.256 2.31
    ,Harmonic 28 (-2.738) 2.7
    ,Harmonic 29 0.3 1.08
    ,Harmonic 30 (-3.046) 1.48
    ,Harmonic 31 0.322 1.28
    ,Harmonic 32 (-2.22) 0.44
    ,Harmonic 33 0.461 1.36
    ,Harmonic 34 (-2.575) 1.79
    ,Harmonic 35 0.211 0.22]