Note12.hs

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

import Sharc.Types

note12 :: Note
note12 = Note
    (Pitch 261.626 48 "c4")
    13
    (Range
        (NoteRange
            (NoteRangeAmplitude 7848.77 30 2.98)
            (NoteRangeHarmonicFreq 1 261.62))
        (NoteRange
            (NoteRangeAmplitude 523.25 2 2298.0)
            (NoteRangeHarmonicFreq 38 9941.78)))
    [Harmonic 1 (-3.012) 1101.49
    ,Harmonic 2 (-0.481) 2298.0
    ,Harmonic 3 (-2.032) 655.74
    ,Harmonic 4 (-1.169) 870.47
    ,Harmonic 5 2.43 893.47
    ,Harmonic 6 1.463 45.34
    ,Harmonic 7 2.992 197.36
    ,Harmonic 8 3.01 292.26
    ,Harmonic 9 2.483 184.13
    ,Harmonic 10 (-0.285) 537.31
    ,Harmonic 11 (-1.137) 336.83
    ,Harmonic 12 2.614 164.78
    ,Harmonic 13 (-2.742) 39.29
    ,Harmonic 14 (-2.961) 149.87
    ,Harmonic 15 (-1.765) 56.14
    ,Harmonic 16 (-2.679) 110.01
    ,Harmonic 17 (-1.332) 19.18
    ,Harmonic 18 3.133 45.74
    ,Harmonic 19 (-1.684) 39.62
    ,Harmonic 20 (-1.255) 36.49
    ,Harmonic 21 3.114 62.89
    ,Harmonic 22 1.95 52.29
    ,Harmonic 23 2.173 40.25
    ,Harmonic 24 1.343 31.8
    ,Harmonic 25 1.765 10.6
    ,Harmonic 26 (-0.383) 8.77
    ,Harmonic 27 0.165 10.76
    ,Harmonic 28 (-0.927) 17.11
    ,Harmonic 29 (-1.897) 23.57
    ,Harmonic 30 (-2.365) 2.98
    ,Harmonic 31 0.213 11.07
    ,Harmonic 32 (-0.967) 6.41
    ,Harmonic 33 (-2.607) 8.19
    ,Harmonic 34 2.303 4.09
    ,Harmonic 35 0.232 10.77
    ,Harmonic 36 0.318 8.09
    ,Harmonic 37 3.8e-2 9.72
    ,Harmonic 38 0.315 6.15]