Note12.hs

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

import Sharc.Types

note12 :: Note
note12 = Note
    (Pitch 391.995 55 "g4")
    13
    (Range
        (NoteRange
            (NoteRangeAmplitude 9407.88 24 1.16)
            (NoteRangeHarmonicFreq 1 391.99))
        (NoteRange
            (NoteRangeAmplitude 391.99 1 3112.0)
            (NoteRangeHarmonicFreq 25 9799.87)))
    [Harmonic 1 (-2.45) 3112.0
    ,Harmonic 2 (-0.648) 2998.83
    ,Harmonic 3 (-2.347) 763.67
    ,Harmonic 4 (-2.729) 397.82
    ,Harmonic 5 (-1.611) 281.12
    ,Harmonic 6 (-1.407) 220.12
    ,Harmonic 7 (-3.14) 56.96
    ,Harmonic 8 (-0.397) 239.02
    ,Harmonic 9 2.315 17.77
    ,Harmonic 10 (-1.923) 49.55
    ,Harmonic 11 (-0.109) 25.98
    ,Harmonic 12 (-2.232) 13.54
    ,Harmonic 13 0.971 8.9
    ,Harmonic 14 (-1.757) 20.99
    ,Harmonic 15 0.271 31.69
    ,Harmonic 16 (-2.762) 10.24
    ,Harmonic 17 (-2.324) 18.95
    ,Harmonic 18 (-2.671) 7.36
    ,Harmonic 19 (-2.265) 13.52
    ,Harmonic 20 (-0.395) 21.9
    ,Harmonic 21 3.009 21.25
    ,Harmonic 22 (-0.245) 3.33
    ,Harmonic 23 1.807 5.47
    ,Harmonic 24 (-2.179) 1.16
    ,Harmonic 25 0.101 9.98]