Note12.hs

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

import Sharc.Types

note12 :: Note
note12 = Note
    (Pitch 391.995 55 "g4")
    13
    (Range
        (NoteRange
            (NoteRangeAmplitude 9015.88 23 0.6)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 1567.98 4 3629.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 (-1.018) 845.05
    ,Harmonic 2 (-1.4) 1141.08
    ,Harmonic 3 (-2.68) 810.22
    ,Harmonic 4 (-1.062) 3629.0
    ,Harmonic 5 2.361 2358.91
    ,Harmonic 6 (-2.281) 1082.97
    ,Harmonic 7 (-1.48) 420.43
    ,Harmonic 8 (-0.676) 484.06
    ,Harmonic 9 2.941 576.28
    ,Harmonic 10 2.771 101.81
    ,Harmonic 11 (-0.473) 98.02
    ,Harmonic 12 (-0.24) 12.22
    ,Harmonic 13 (-1.401) 48.12
    ,Harmonic 14 2.423 38.19
    ,Harmonic 15 (-0.51) 5.61
    ,Harmonic 16 1.824 17.08
    ,Harmonic 17 (-0.814) 13.89
    ,Harmonic 18 (-2.357) 20.43
    ,Harmonic 19 3.118 3.41
    ,Harmonic 20 1.392 10.45
    ,Harmonic 21 (-1.557) 8.39
    ,Harmonic 22 (-0.347) 1.92
    ,Harmonic 23 1.769 0.6
    ,Harmonic 24 (-1.033) 4.04
    ,Harmonic 25 0.752 13.43]