Note12.hs

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

import Sharc.Types

note12 :: Note
note12 = Note
    (Pitch 391.995 55 "g4")
    13
    (Range
        (NoteRange
            (NoteRangeAmplitude 9407.88 24 1.43)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 1 21071.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 1.74 21071.0
    ,Harmonic 2 (-0.201) 3080.7
    ,Harmonic 3 (-0.556) 507.31
    ,Harmonic 4 (-0.999) 7664.24
    ,Harmonic 5 1.52 6678.79
    ,Harmonic 6 1.547 2731.05
    ,Harmonic 7 2.449 1408.78
    ,Harmonic 8 2.555 749.86
    ,Harmonic 9 0.966 1087.55
    ,Harmonic 10 2.862 1417.83
    ,Harmonic 11 (-0.454) 501.67
    ,Harmonic 12 1.952 196.65
    ,Harmonic 13 2.383 207.17
    ,Harmonic 14 2.782 85.24
    ,Harmonic 15 0.305 79.06
    ,Harmonic 16 1.661 23.06
    ,Harmonic 17 (-1.415) 60.39
    ,Harmonic 18 (-0.77) 126.83
    ,Harmonic 19 2.798 54.52
    ,Harmonic 20 (-0.2) 118.83
    ,Harmonic 21 (-1.128) 94.48
    ,Harmonic 22 2.86 63.55
    ,Harmonic 23 (-2.03) 52.52
    ,Harmonic 24 2.692 1.43
    ,Harmonic 25 (-1.52) 26.5]