Note12.hs

module Sharc.Instruments.ViolinPizzicato.Note12 (note12) where

import Sharc.Types

note12 :: Note
note12 = Note
    (Pitch 391.995 55 "g4")
    13
    (Range
        (NoteRange
            (NoteRangeAmplitude 7055.91 18 0.44)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 1 7009.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 1.479 7009.0
    ,Harmonic 2 (-1.917) 211.55
    ,Harmonic 3 (-0.565) 252.27
    ,Harmonic 4 1.808 394.54
    ,Harmonic 5 (-0.931) 12.93
    ,Harmonic 6 0.742 61.8
    ,Harmonic 7 (-1.252) 37.15
    ,Harmonic 8 0.917 28.89
    ,Harmonic 9 3.116 18.87
    ,Harmonic 10 (-2.014) 5.49
    ,Harmonic 11 (-3.055) 3.28
    ,Harmonic 12 (-3.102) 0.7
    ,Harmonic 13 (-2.694) 2.07
    ,Harmonic 14 (-1.867) 1.61
    ,Harmonic 15 2.484 1.8
    ,Harmonic 16 (-1.945) 2.42
    ,Harmonic 17 (-0.648) 1.72
    ,Harmonic 18 1.467 0.44
    ,Harmonic 19 (-1.349) 0.82
    ,Harmonic 20 2.371 0.65
    ,Harmonic 21 (-2.066) 1.41
    ,Harmonic 22 1.191 1.1
    ,Harmonic 23 (-2.68) 0.59
    ,Harmonic 24 2.645 0.9
    ,Harmonic 25 2.734 0.7]